Sujet Précédent Sujet Suivant

Excel importation de cellules en VBA

Fermé
Utilisateur anonyme - 15 avril 2010 à 17:10
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 16 avril 2010 à 21:37
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.



3 réponses

Réponse 1 / 3
Utilisateur anonyme
16 avril 2010 à 08:19
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 jeudi 8 avril 2010 Statut Membre Dernière intervention 20 avril 2010 39
16 avril 2010 à 19:38
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 mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
Modifié par Polux31 le 17/04/2010 à 02:38
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