Acces a un classeur excel externe

Fermé
Chris - 26 mars 2010 à 13:34
 Chris - 26 mars 2010 à 14:52
Bonjour

Je voudrais accéder à un classeur Excel externe dont le nom est stocké dans une cellule
Je m'éxplique
Si je veux appeler la cellule A1 de la feuille feuill1 du classeur toto la syntaxe est de la forme : ='[toto.xls]feuill1'A1
J'ai stocké le nom de mon classeur dans une cellule, par exemple C3 et je voudrais me retrouver avec une syntaxe du genre : ='[C3]Feuill1'A1
Est ce possible

Merci de votre aide

Chris

3 réponses

michel_m
Messages postés
16568
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 mai 2022
3 279
Modifié par michel_m le 26/03/2010 à 14:09
Bonjour,

=INDIRECT("'["&C3&"]Feuil1'!A1")
le classeur toto doit être ouvert
:-x
0
Merci tout d'abord

Maintenant comment faire si le fichier est fermé ?
Est ce encore possible ?

Chris
0
michel_m
Messages postés
16568
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 mai 2022
3 279
26 mars 2010 à 14:23
Merci à l'avenir de signaler que tu as posé la m^me question ailleurs et où
et d'indiquer sur les différents forums utilisés la solution qui t'a convenu

Pour un classeur fermé il faut utiliser VBA: tu as des notions sur ce patois ?
0
Mes excuses pour la demande ailleurs , je ne suis pas habitué aux forums !!!

Pour VBA , j'ai quelques notions , mais je ne demande qu'à apprendre ;-)
0
michel_m
Messages postés
16568
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 mai 2022
3 279
Modifié par michel_m le 26/03/2010 à 14:45
voici une proposition ATTENTION VIRUS DANS LA PROPOSITION AVANT LA MIENNE
(message supprimé)

Sub lire_ferme()
Dim fichier As String, chemin as string
fichier = "toto.xls" 'a adapter
chemin = "D:\documents" 'a adapter


Range("A3") = ExecuteExcel4Macro("'" & chemin & "\[" & fichier & "]Feuil1'!R1C1") 'R1C1=A1
End Sub

ici renvoi en A3 nom du fichier et son répertoire à adapter à ta config
:-x
0
Merci pour ta réponse
Je vais essayer d'adapter cela

Encore merci
0