Récupérer la valeur d'une cellule dans une feuille Excel

Numéro d'article: 467312 - Voir les produits auxquels s'applique cet article
Ancien nº de publication de cet article : F17312
Agrandir tout | Réduire tout

Symptômes


Comment récupérer la valeur d'une cellule dans une feuille de calcul
Microsoft Excel 97 incluse dans un contrôle d'objet dépendant ou
indépendant d'un formulaire ?

Résolution


L'exemple suivant permet de récupérer la valeur de la deuxième ligne de la
première colonne d'une feuille de calcul Microsoft Excel 97 incluse dans
un contrôle d'objet indépendant d'un formulaire.

1. Créer une feuille de calcul Microsoft Excel 97 contenant les données
suivantes :

A B
1 Pommes Jaunes
2 Poires Crèmes
3 Abricots Oranges

2. Enregistrer le fichier sous le nom c:\Essai.xls.

3. Dans nouveau formulaire, créer un contrôle cadre d'objet indépendant
nommé C1 et inclure le fichier Essai.xls précédemment construit.

4. Créer un bouton de commande et taper le code suivant sur l'évènement
Sur Clic du bouton de commande :

Private Sub Commande1_Click()

'déverrouille le contrôle d'objet indépendant C1
Me.c1.Locked = False

'Active le contrôle d'objet indépendant C1
Me.c1.Enabled = True

'masque l'application d'où provient l'objet.
Me.c1.Verb = acOLEVerbHide

'démarre l'application d'où provient l'objet
Me.c1.Action = acOLEActivate

'récupère la valeur de la deuxième ligne de la première colonne du
Worksheets numéro 1
MsgBox Me.c1.Object.Worksheets(1).Cells(2, 1)
' et l'affiche dans une boîte de message.

End Sub

5. Passer en mode formulaire et enregistrer les modifications.

6. Cliquer sur le bouton de commande, une boîte de message s'ouvre et
affiche : Poires.

Propriétés

Numéro d'article: 467312 - Dernière mise à jour: vendredi 7 novembre 2003 - Version: 3.0
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Access 97 Standard
Mots-clés : 
KB467312
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.
Exclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com