- Salut Chris,
voici une petit macro qui créera dans ton classeur une feuille avec la liste complète des fichiers (chemin complet) se trouvant sur ton disque dur, fichiers dont tu auras choisi l'extension dans une InputBox (ex: xls).
Tu pourras l'adapter à ton problême.
Sub ChercheXLB()
typeFile = InputBox ("Quel type de fichier?" & Chr(13) & "Taper l'extension!"
Worksheets.Add
ActiveSheet.Name = "Liste des fichiers" & " " & typeFile
[A1].Value = "Liste des fichiers" & " " & typeFile
Selection.Font.Bold = true
Dim LstFile As Long
With Application.FileSearch
.Filename = "*." & typeFile
.LookIn = "C:\"
.SearchSubFolders = True
For LstFile = 1 To .Execute(msoSortByFileName)
ActiveSheet.Cells(LstFile + 1, 1).Value = .FoundFiles(LstFile)
Next LstFile
End With
End Sub
Tu aurais du mettre un petit fichier en exemple, je l'aurai adapté à ton problême moi-même.
Tiens moi au courant du résultat et @+
JB