Sub TousLesFichiers(LeDossier$, Idx As Long, Optional SousFldr = True)
'pour empêcher l'examen des ss/répertoires, affecter False à SousFldr
Dim fso As Object, Dossier As Object
Dim sousRep As Object, Fich As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(LeDossier)
'"System Volume Information" est inaccessible ==> on le zappe !!
If Dossier.Name <> "System Volume Information" Then
'examen du dossier courant
For Each Fich In Dossier.Files
Idx = Idx + 1
Cells(Idx, 1).Value = Fich.ParentFolder
Cells(Idx, 2).Value = Fich.Name
Cells(Idx, 3).Value = Fich.Size
Cells(Idx, 4).Value = Fich.DateCreated
Cells(Idx, 5).Value = Fich.Type
Cells(Idx, 6).Value = Fich.Attributes
Cells(Idx, 7).Value = Fich.DateLastModified
Next
If SousFldr Then
'traitement récursif des sous dossiers
For Each sousRep In Dossier.subfolders
TousLesFichiers sousRep.Path, Idx
Next sousRep
End If
End If
End Sub 'fs