rechercher des fichier excel en vba

**isis1be** · 03/10/2007, 16h11

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.

**isis1be** · 03/10/2007, 16h58

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 :

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
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