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 :
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
quelqu'une pourrait t'il m'aider ?
Merci d'avance