Bonsoir JP,
Heuh à cette heure quand tu arrives, je dfinis au bureau donc pas beaucoup de temps...
Soit tu utilises cette fameuse macroXL4 qui permets de lire dans les fichiers fermés... Faire une recherche dans ce forum à "GetValue"...
Soit tu as des fichiers hyper bien struturés (condition sine qua non) et tu fais écrire le vers le fichier lien par VBA.
Exemple de Structure :
Tous les classeurs sont dans un même répertoire :
C:\Mes Documents\Mes Classeurs\Mes Fiches
Tous tes classeurs ont un noM structuré
File0001.xls
Exemple de Code
FileNumber = ListBox1 '(listbox alimentée avec "0001, 0002, 0003... etc"
Suite = ".xls"
Chemin = "C:\Mes Documents\Mes Classeurs\Mes Fiches\"
With Sheets("Collection")
.Range("A1").Formula = "=[" Chemin & FileNumber" & Suite]Feuil1!A1"
.Range("A2").Formula = "=[" Chemin & FileNumber" & Suite]Feuil1!A1"
.Range("A3").Formula = "=[" Chemin & FileNumber" & Suite]Feuil1!A1"
.Range("A4").Formula = "=[" Chemin & FileNumber" & Suite]Feuil1!A1"
.Range("A5").Formula = "=[" Chemin & FileNumber" & Suite]Feuil1!A1"
'etc...
End With
....
LisboxRecupDonnée.RowSource = "Collection!A1:A5"
............
Enfin voilà mon idée... Maintenant si tes classeurs sont en vrac (pas de même structure... Alors ce sera totalement plus compliqué.
Bonne Soirée
@+Thierry