Bonjour,
A partir de ce code, est-il possible de générer, en plus de la taille de chaque fichier trouvé dans le répertoire, le nom du propriétaire et de l'auteur ?
Sub ListeFichiers()
racine = "c:\mesdoc"
Range("a4:F10000").ClearContents
Set fs = CreateObject("Scripting.FileSystemObject")
Set dossier = fs.getfolder(racine) 'DossierRacine
ligne = 2
For Each f In dossier.Files
Cells(ligne, 1) = f.Name
Cells(ligne, 2) = f.Size
Cells(ligne, 3) = f.Datecreated
Cells(ligne, 4) = f.DatelastModified
Cells(ligne, 5) = f.Datelastaccessed
If f.Attributes And vbHidden Then Cells(ligne, 6) = "Caché"
ligne = ligne + 1
Next
End Sub
Merci d'avance