Excel importation de cellules en VBA
Utilisateur anonyme
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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 :
Ca plante à la dernière ligne, avec le message d'erreur : L'indice n'appartient pas à la sélection.
Une zidée please ?
Merci.
--
Quand jimmy dit what'd I say, I love you baby
C'est comme qui dirait, Toute la province qui chante en anglais
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.
--
Quand jimmy dit what'd I say, I love you baby
C'est comme qui dirait, Toute la province qui chante en anglais
3 réponses
-
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. -
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 -
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)
