Salut le forum

Avec Excel, ensuite tu imprimes la feuille

Le code

'Liste des fichiers d'un répertoire
'John Walkenbach, mpep

Sub ListFiles()
' Which directory?
Directory = "c:\windows\desktop\"

' Insert new sheet & headers
r = 1
Worksheets.Add
Cells(r, 1) = "FileName"
Cells(r, 2) = "Size"
Cells(r, 3) = "Date/Time"
Range("A1:C1").Font.Bold = True
r = r + 1

' Get the files
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Directory
.Filename = "*.*"
.SearchSubFolders = False
.Execute
' Write the file info
For i = 1 To .FoundFiles.Count
Cells(r, 1) = .FoundFiles(i)
Cells(r, 2) = FileLen(.FoundFiles(i))
Cells(r, 3) = FileDateTime(.FoundFiles(i))
r = r + 1
Next i
End With
End Sub

Mytå

Bonjour,

Merci mais je n'ai rien compris !

Je n'utilise pas Excel. J'avais WORKS Suite avec le tableur Work mais je suis passé maintenant sous la suite Open Office 3 avec Writer, Calc, etc...

Bonsoir,

Merci pour la réponse à mon problème. Je ne suis pas un lion en informatique et, de plus, si j'avais bien en main (à peu près !) la suite Microsoft, je suis passé à Open Office 3 et je patauge un peu n'y retrouvant pas mes marques. Mais ça va venir...