rechercher des fichier excel en vba

Salut à tous

J'essaie depuis un bout de temps de faire rechercher des classeurs excel par du vba mais je tombe sur une erreur que je n'arrive pas à solutionner. (à noter que je suis super débutant)

Extrait de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub btnchercher_Click()   Dim ChercheFichier As FileSearch, compteur As Long Set ChercheFichier = Application.FileSearch Dim NomClient As String NomClient = ZoneRech.Value With ChercheFichier LookIn = "C:\Documents and Settings\vincent\Bureau" Filename = NomClient & "*" FileType = msoFileTypeExcelWorkbooks SearchSubFolders = True Execute For compteur = 1 To .FoundFiles.Count ListBoxResult.AddItem.FoundFiles Next End With ListBoxResult.ListIndex = 0     End Sub

---

voici mon code mais il me trouve une erreur à Execute et comme je suis novice je ne voit vraiment pas pourquoi
En faite je doit inscrire le nom à rechercher dans un textbox s'appellant ZoneRech et afficher le résultat dans une ListBoxResult.
Voila merci à tous pour votre aide et à bientôt.

Je vient de voir que j'avais oublié de mettre des points devant certains paramètres donc je les ai rajouter et je n'ai plus le problème execute mais
maintenant il me dit fonction ou variable attendue mais je ne sais pas ce que cela veut dire surtout à cet place (au addItem).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub btnchercher_Click() Dim ChercheFichier As FileSearch, compteur As Long Set ChercheFichier = Application.FileSearch Dim NomClient As String NomClient = ZoneRech.Value With ChercheFichier .LookIn = "C:\Documents and Settings\vincent\Bureau" .Filename = NomClient & "*" .FileType = msoFileTypeExcelWorkbooks .SearchSubFolders = True .Execute For compteur = 1 To .FoundFiles.Count ListBoxResult.AddItem.FoundFiles Next End With ListBoxResult.ListIndex = 0 end sub

---

voila j'avais bien dit que j'était pas fort:king:
encore merci à tous

Bonjour,

OK pour les points.
Par contre, pas de point entre add item et foundfile !!!

un point c'est tout :mouarf:

Bonsoir,

Si tu es sur Excel 2007, la fonction founfile n'existe plus.

Je crois qu'il existe une classe quelque part sur le net
Salutations