Re : Récupérer Tailles des Fichiers d'un Répértoire
bonjour Foufoudora essai ce code cell a1 nom fichier cell a2 size
Sub List1()
On Error Resume Next
Application.ScreenUpdating = False
Dim Directory As Variant
Dim r As Variant
Dim i As Variant
'Directory = Range("f1").Value
Directory = "d:\"
r = 1
Cells(r, 1) = "FileName"
Cells(r, 2) = "Size"
r = r + 1
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Directory
'.Filename = "*.*"'tous type de fichiers
.Filename = "*.xls"
.SearchSubFolders = False 'true tous les sous repertoires
.Execute
For i = 1 To .FoundFiles.Count
Cells(r, 1) = .FoundFiles(i)
Cells(r, 2) = FileLen(.FoundFiles(i))
r = r + 1
Next i
End With
End Sub'salutations