Récuperer donnees autres classeurs

[agfo]

agfo écrit:

Bonjour le Forum,

J'utilise la macro de MichelXld ci dessous afin de pourvoir récuperer des données dans une liste de fichiers excel. Mais je rencontre un os. Comment faire quand les fichiers sont dans plusieurs sous répertoires différents de c:'/données'/
En ce qui me concerne, mes fichers sont classées dans des sous dossiers mois par mois. Est-il possible que la macro aille automatiquement chercher les classeurs dans tous les sous répertoires de c:données sans avoir à les préciser à chaque fois.
Merci



MichelXld écrit:

bonsoir Arnaud

une proposition de solution par macro :
si par exemple le nom des classeurs est dans la colonne A , cet exemple créée la formule dans la colonne B

Sub boucleClasseurs()
Dim i As Integer

For i = 1 To 300
Cells(i, 2).Formula = '='C:\\donnees\\[' & Cells(i, 1) & ']Feuil1'!$A$1'
Next i

End Sub

bonne soiree
MichelXld