Bonsoir,
Je ne trouve pas la procédure pour filtrer des fichiers par une partie de leur nom avec vba pour excel 2007
voici ma procédure :
quelqu'une pourrait t'il m'aider ?
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
22
23
24
25
26
27
28
29
30
31
32 Private Sub UserForm_Initialize() Dim i As Long Dim r, nom, nom2 As String Dim Recherche As ClFileSearch.ClasseFileSearch Set Recherche = ClFileSearch.Nouvelle_Recherche r = "dossier terroir" r = ThisWorkbook.Path & "\" & "archives_factures" With Recherche 'répertoire pour lancer la recherche .FolderPath = r 'inclu les sous-dossiers dans la recherche .SubFolders = True 'Option de tri: '(Sort_None, sort_Name, sort_Path, sort_Size, sort_DateCreated, sort_LastModified, sort_Type) 'Pas de tri si le paramètre n'est pas spécifié. .SortBy = sort_DateCreated 'procède à la recherche et capture le nombre de fichiers trouvés inombre = .Execute stmessage = VBA.Format(inombre, "0"" fichiers trouvés""") For i = 1 To .FoundFilesCount nom = .Files(i).strfilename nom = .Files(i).strpathName nom2 = nom & "\" & .Files(i).strfilename ListBoxARCHIVES.AddItem nom2 'nom du fichier Next i If .FoundFilesCount = 0 Then MsgBox .FoundFilesCount & " fichier trouvé" End If End With End Sub
Merci d'avance
Partager