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
| Sub fichiers_recherches()
Dim i As Long, stmessage As String, nom As String, nom2 As String, inombre As Integer
Dim recherche As ClFileSearch.ClasseFileSearch, r As String, partienom As String
'ci-dessous, on donne à "r" le chemin de la recherche
r = InputBox("Les sous-dossier sont inclus dans la Recherche", "dossier de recherche", ThisWorkbook.Path) 'exemple
'exemple de message au depart
partienom = InputBox("contenu du fichier à rechercher", "RECHERCHE DE FICHIER", ".xlsm")
Set recherche = ClFileSearch.Nouvelle_Recherche
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 & "*"
'procède à la recherche et capture le nombre de fichiers trouvés
inombre = .Execute
If inombre = 0 Then
MsgBox "0" & " fichier trouvé"
Exit Sub
End If
stmessage = VBA.Format(inombre, "0"" fichiers trouvés""")
For i = 1 To .FoundFilesCount
nom = .Files(i).strfileName 'nom fichier
nom2 = .Files(i).strpathName & "\" & nom
Range("a" & i) = nom 'nom du fichier
Range("b" & i) = nom2 'avec son chemin
Next i
End With
End Sub |
Partager