Discussion :

[casefayere]

Bonjour à tous,

j'avais fait le code ci-dessous afin de rechercher des fichiers dans les repertoires et sous-repertoires et les faire apparaitre dans une listbox :

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
ListBoxARCHIVES.Clear
nomfeuil = ActiveSheet.Name
Set Recherche = ClFileSearch.Nouvelle_Recherche
r = ThisWorkbook.Path & "\" & "archives_" & nomfeuil
With Recherche
    .FolderPath = r
    .SubFolders = True
    .SortBy = sort_DateCreated
    .Extension = "*.pdf"
    inombre = .Execute
    stmessage = VBA.Format(inombre, "0"" fichiers trouvés""")
         For i = 1 To .FoundFilesCount
         nom = .Files(i).strfileName
         nom2 = .Files(i).strpathName & "\" & nom
         ListBoxARCHIVES.AddItem nom
        Next i
End With

mais je viens de m'apercevoir que la recherche s'arrête au dernier sous-repertoire trouvé. Je m'explique mieux, exemple :
repertoire de demarrage : archives_factures
1er sous-repertoire, l'année de création du fichier
2eme sous-repertoire, le mois
3eme, le jour
dans le sous-repertoire mois je me retrouve avec plusieurs sous-repertoires jour, soit 2010 03 14, 2010 03 15, 2010 03 16 etc
or ma recherche s'arrête au premier sous-repertoire trouvé, soit 2010 03 14
alors que je voudrais lister tous les "PDF",
merci d'avancede vos conseils
PS : j'ai oublié de dire que j'utilise le complément "classefilesearch"

[casefayere]

excusez-moi mais j'ai mal regardé le résultat, ma formule est correcte
Bonne journée