Discussion :

[casefayere]

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

[ucfoutu]

Bonsoir,

je me suis arrêté là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
r = "dossier terroir"
r = ThisWorkbook.Path & "\" & "archives_factures"

et reviendrai quant tu auras exposé la logique qui, selon toi, animerait ces 2 lignes ...

[casefayere]

Excuses-moi, il y a encore quelques lignes d'ecriture surperflues que je n'ai pas pensé à supprimer dont celle là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

r = "dossier terroir"

ou celle la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nom = .Files(i).strfilename

procédure corrigée

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
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 = 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).strpathName
         nom2 = nom & "\" & .Files(i).strfilename
         ListBoxARCHIVES.AddItem nom2 'nom du fichier
        Next i
        If .FoundFilesCount = 0 Then
        MsgBox "0" & " fichier trouvé"
        End If
 
End With
End Sub

[SilkyRoad]

bonsoir

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
With Recherche
    .Extension = "*PartieNom*.xls"

http://silkyroad.developpez.com/vba/classefilesearch/

bonne soirée
michel

[casefayere]

Bonsoir et merci,
Je vais essayé d'autant que c'est gràce à tes conseils que j'ai réussi à adapter 2007

[casefayere]

je viens d'essayer mais malgré l'existence réelle des fichiers filtrés mon message me retourne toujours 0 fichiers trouvé
peux-tu regarder 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
33
34
Private Sub UserForm_Initialize()
Dim i As Long
Dim r, nom, nom2, partienom As String
Dim Recherche As ClFileSearch.ClasseFileSearch
partienom = InputBox("rechercher fichier contenant :", "contenu a chercher")
If partienom <> "" Then
Set Recherche = ClFileSearch.Nouvelle_Recherche
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
    .Extension = "*partienom*.xls"
    '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).strpathName
         nom2 = nom & "\" & .Files(i).strfilename
         ListBoxARCHIVES.AddItem nom2 'nom du fichier
        Next i
        If .FoundFilesCount = 0 Then
        MsgBox "0" & " fichier trouvé"
        End If
End With
Else
    Unload Me
End If
End Sub

Encore merci