Excel importation de cellules en VBA

Utilisateur anonyme -  
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je me lance dans le dév en vba sous Excel.

Je voudrais afficher le contenu d'une cellule précise d'un classeur que je sélectionne.
Voici mon code : 
classeur_source = Application.GetOpenFilename("Classeurs Excel,*.xls")
If classeur_source = False Then Exit Sub

MsgBox Workbooks(classeur_source).Sheets("euros").Range("j43")

Ca plante à la dernière ligne, avec le message d'erreur : L'indice n'appartient pas à la sélection.

Une zidée please ?

Merci.



A voir également:

3 réponses

Réponse 1 / 3
Utilisateur anonyme
 
Une précision :
je sélectionne bien un "classeur source" et il est bien reconnu :
si je fais un msbbox classeur_source, je vois bien le nom du fichier sélectionné.
Aussi, la feuille "euros" existe, et il y a bien une valeur en "j43".
Personne ?
Merci.
0
Réponse 2 / 3
dct33 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   39
 
Bonsoir,

pour afficher le contenu d'une cellule

le classeur étant ouvert

Connaitre la page soit par l'index soit par le nom

ex Sheets(1) ou sheets("Feuille1")

après quoi il faut connaitre la ligne et la colonne de la cellule

la valeur = Sheets(1).Cells(Ligne,Colonne)

Bonne programmation
0
Réponse 3 / 3
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

Ça ne fonctionne pas parce que le classeur n'est pas ouvert.

Il faudrait faire: 
Dim xlBook As Workbook 

Set xlBook = Workbooks.Open (classeur_source) 

MsgBox  xlBook.Sheets("euros").Range("j43")


;o)
0