Pour faire ma recherche de classeur excel j'utilise ce code
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?
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
Je vous remercie de votre aide et @ bientôt.
Partager