Pour faire ma recherche de classeur excel j'utilise ce 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
21
Private Sub btnchercher_Click()
    Dim Fichier As String
 
    ListBoxResult.Clear  'on vide en premier
 
    'recherche dans un répertoire précis
 
    Fichier = Dir("C:\Documents and Settings\Vinc\Mes documents\Clients"): 
 
 
    Do While Fichier <> ""
    'UCase pour s'assurer d'une bonne comparaison entre les chaînes
        If UCase(Fichier) Like "*" & UCase(ZoneRech.Value) & "*.XLS" Then
            ListBoxResult.AddItem Fichier
        End If
        Fichier = Dir  ' Recherche suivante
    Loop
 
    'On spécifie l'Index à afficher seulement si la liste n'est pas vide
    If ListBoxResult.ListCount > 0 Then ListBoxResult.ListIndex = 0
End Sub
dans se dossier clients j'ai une série d'autres dossiers avec chacun des classeurs excel dedans et je voudrais trouver les classeurs de tous les dossiers, comment faudrait-il faire car avec se code ca ne marche pas. Faut-il rajouter une étoile à la fin du chemin?

Je vous remercie de votre aide et @ bientôt.