excel 2007 filtres de fichiers

Version imprimable

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:

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

08/06/2008, 20h41
ucfoutu
Bonsoir,

je me suis arrêté là :
Code:

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 ...

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

Code:

r = "dossier terroir"

ou celle la :

Code:

nom = .Files(i).strfilename

procédure corrigée

Code:

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

08/06/2008, 21h43
SilkyRoad
bonsoir

Tu peux essayer
Code:

1 2 With Recherche .Extension = "*PartieNom*.xls"
http://silkyroad.developpez.com/vba/classefilesearch/

bonne soirée
michel
08/06/2008, 21h45
casefayere

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

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:

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

09/06/2008, 07h50
SilkyRoad

Bonjour,

je viens de tester sous Excel2002 en attendant de revérifier ce soir sous Excel2007, mais je ne rencontre aucun soucis: le filtre en indiquant une partie du nom fonctionne bien.

j'ose espérer que dans l'exemple de ton message précédent, tu as remplacé

Code:

.Extension = "*partienom*.xls"

par les vrais termes à rechercher ... ;o)

bonne journée
michel
09/06/2008, 09h29
casefayere

Bonjour
c'est sympa de t'occuper de mon problème, partienom est la variable que j'ai donnée à un message
09/06/2008, 10h03
SilkyRoad

dans ce cas il faut écrire

Code:

.Extension = "*" & partienom & "*.xls"

michel
09/06/2008, 14h13
casefayere

Encore merci Michel, ça marche, remerci aussi pour le complément classefilesearch

à Bientôt peut-être

Dominique