Discussion :

[isis1be]

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.

[fring]

Bonjour,

Dans la rubrique "Contribuer" tu devrais y trouver ton bonheur, notamment cette contribution http://www.developpez.net/forums/sho...d.php?t=529905

[isis1be]

Merci pour le lien, mais comme je suis novice je ne comprend pas comment l'insérer dans mon code
je ne sais pas quoi en faire

[isis1be]

Salut fring
en réaliter je vient de remettre le code et j'ai changé le répertoire D par C mais il ne m'affiche rien du tout, si tu savais me m'aider j'apprécierais.
Merci à toi et à bientôt

[fring]

Ci-dessous j'ai adapté le code de Ouske pour qu'il liste tous les fichiers dans la ListBox1 du UserForm1.

Construit juste un UserForm avec une ListBox et tu pourras tester le code, après ce n'est plus qu'une question de petits réglages pour obtenir exactement ce que tu souhaites

Ne pas oublier d'adapter le chemin dans le code (j'ai mis celui qui se trouvait dans ton code)

Code àinsérer dans un module standard :

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
22
23
24
25
26
27
Option Explicit
Public nb As Integer
 
Sub Appel()
Dim chemin As String
    nb = 0
    chemin = "C:\Documents and Settings\Vinc\Mes documents\Clients" '<-- chemin à adapter
    Lister chemin
    UserForm1.Show
End Sub
 
Public Function Lister(chemin As String)
Dim fs, Rep As Variant, NewRep As String, Nomfich As String
    Set fs = CreateObject("Scripting.FileSystemObject")
    Lister = fs.GetFolder(chemin).Files.Count
    Nomfich = Dir(chemin & "\*.xls")
 
    Do While Nomfich <> ""
        UserForm1.ListBox1.AddItem chemin & "\" & Nomfich
        Nomfich = Dir()
    Loop
 
    For Each Rep In fs.GetFolder(chemin).SubFolders
        NewRep = Lister(Rep.Path)
    Next Rep
 
End Function

[isis1be]

Salut fring
Je te remercie vraiment de ton aide et je vais voir çà
A bientôt