Sub listerFichiersRepertoire()
Dim Dossier As String
Dossier = 'C:\\Documents and Settings\\michel\\dossier\\general\\excel'
ListFilesInFolder Dossier, True
End Sub
Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' adapté de Ole P Erlandsen
'necessite d'aviter la reference Microsoft Scripting RunTime :
'dans l'editeur de macros
'Menu Outils
'References
'coches la ligne 'Microsoft Scripting RunTime'
'cliques sur OK pour valider
'
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim XFile As Scripting.File
Set Fso = CreateObject('Scripting.FileSystemObject')
Set SourceFolder = Fso.GetFolder(SourceFolderName)
For Each XFile In SourceFolder.Files
If XFile.Name Like 'Récupération' And _
XFile.Type = 'Document Microsoft Word' Then _
MsgBox XFile.Name
Next XFile
If IncludeSubfolders Then
For Each SubFolder In SourceFolder.SubFolders
ListFilesInFolder SubFolder.Path, True
Next SubFolder
End If
End Sub