appel de fonction pour zon

[Fred]

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

 

[Zon]

Salut,

Le fait d'écrire lenomdelalistbox.list=cherchefichier("fiche","C:\toto\")
, tu appelles la fonction qui contrairement à une procédure (Sub) retourne un résultat. En grossissant c'est comme une formule que tu mettrais dans une cellule.

D'ailleurs il ya une erreur qu'on ne voit pas à cause du On error resume next mais c'est plus propre comme ceci:

ReDim Tablo(1 to .FoundFiles.Count)
For I = 1 To .FoundFiles.Count
Tablo(I) = .FoundFiles(I)
Next I

Rappel La propriété List d'une listbox ou d'une combobox est un tableau VBA.

Si tu as des diifficultés à le mettre en place joins un fichier exemple.
A+++

Lien supprimé