Excel importation de cellules en VBA Fermé

Question

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.


Configuration: Un peu de tout

Utilisateur anonyme · Answer

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.

dct33 · Answer

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

Polux31 · Answer

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)

Excel importation de cellules en VBA

3 réponses

Newsletters