Salut,
Cette fonction te renvoie un tableau :
Function ChercheFichier(Nomf$, Rep$, Optional Sourep As Boolean=False)
Dim I&, Tablo
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Rep
.Filename = Nomf & "*.*"
.SearchSubFolders = Sourep
.Execute
ReDim Tablo(.FoundFiles.Count)
For I = 0 To .FoundFiles.Count
Tablo(I) = .FoundFiles(I)
Next I
End With
On Error GoTo 0
ChercheFichier = Tablo
End Function
Par exemple dans une listbox cela donne
lenomdelalistbox.list=cherchefichier("fiche","C:\toto\")
A+++