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

Exclusion de responsabilité du contenu obsolète de la base de connaissances

Cet article a été rédigé sur les produits pour lesquels Microsoft n’offre plus aucune prise en charge. Par conséquent, cet article est proposé « en l’état » et ne sera plus mis à jour.

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 :

AB
1PommesJaunes
2PoiresCrèmes
3AbricotsOranges

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

ID d'article : 467312 - Dernière mise à jour : 7 nov. 2003 - Révision : 1

Commentaires