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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.