Recherche taille d'un fichier

Bonjour
Avec FSO :
- ajouter une référence à Microsoft Scripting RunTime au projet VBA
- Exemple à adapter :
Sub Test()
Listerfichiers "D:ParoExcelExemples", True
End Sub

Sub Listerfichiers(Rep As String, SousRep As Boolean)
Dim FSO As Scripting.FileSystemObject
Dim RepSource As Scripting.Folder
Dim SsRep As Scripting.Folder
Dim Fichier As Scripting.File
Dim Lig As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
Set RepSource = FSO.GetFolder(Rep)
Lig = Feuil1.Range("A65536").End(xlUp).Row + 1
Feuil1.Cells(1, 1) = "Nom du fichier"
Feuil1.Cells(1, 2) = "Repertoire"
Feuil1.Cells(1, 3) = "Date de création"
Feuil1.Cells(1, 4) = "Taille Octets"

For Each Fichier In RepSource.Files
Cells(Lig, 1).Formula = Fichier.Name
Cells(Lig, 2).Formula = Fichier.ParentFolder
Cells(Lig, 3).Formula = Fichier.DateCreated
Cells(Lig, 3).NumberFormatLocal = "jj/mm/aa"
Cells(Lig, 4).Formula = Fichier.Size
Lig = Lig + 1
Next Fichier
If SousRep Then
For Each SsRep In RepSource.SubFolders
Listerfichiers SsRep.Path, True
Next SsRep
End If
Set Fichier = Nothing
Set RepSource = Nothing
Set FSO = Nothing
End Sub

Cordialement
Pascal

"Toto" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 0CBD0A5C-17F0-499B-B0C9-C123A7F9240A@microsoft.com...

Bonjour

je recherche une macro qui peut me donner la taille de tous les fichier
d'une liste

Merci
Toto