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
A voir également:

3 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
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