Salut à vous toutes et à vous tous
C'est au sujet d'une reponse que ZON ma donné
heeuuuu ...comment on fait pour appeler la fonction ??
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\")
si fichier ZIp je suis preneur ...
Merci qui ??? Zon et tous les autres qui se gratte la tete pour les mauvais comme moi en VBA !!! ha ha ha