Lister les documents d'un répertoire dans un tableau

Bonjour à toutes et à tous,

N'étant pas un expert sur les macros et la programmation en VBA, je souhaiterai néanmoins (dans le cadre professionnel) réaliser un tableau qui répertorie les fichiers de plusieurs répertoires afin de faire un chrono de suivi.

Quelles seraient les étapes à réaliser afin de pouvoir avoir un tableau.

J'ai vu ceci sur le forum mais je ne sais pas tout décrire facilement :

Sub ListingFichiers()
Dim Rep As String, Fichier As String
Dim i As Integer

Rep = "C:\Documents and Settings\POSTE F\Bureau\CFAie\"
Fichier = Dir(Rep)
Do While Fichier <> ""
    i = i + 1
    Sheets("Feuil1").Range("A" & i) = Fichier
    Fichier = Dir
Loop
End Sub

Je souhaiterai avoir un tableau comme celui en PJ. Merci de votre aide éventuelle.

Bien cordialement,

Bonjour,

Voilà un code adapté à ton ficher

Sub test()
Dim Rep As String, Fichier As String
Dim i As Integer

Rep = Workbooks(ActiveWorkbook.Name).Path & "\"
Fichier = Dir(Rep)
Do While Fichier <> ""
    i = Range("C" & Rows.Count).End(xlUp).Row + 1
    Sheets("Feuil1").Range("C" & i) = Fichier
    Créa = CreateObject("Scripting.FileSystemObject").GetFile(Rep & Fichier).DateCreated
    Sheets("Feuil1").Range("B" & i) = Créa
    Fichier = Dir
Loop
End Sub

Aplus !

Bonjour

A tester

Classeur à mettre dans répertoire à traiter

A tester,

Attention: macro efface l'existant, si conservation existant elle est a modifier

Cordialement

FINDRH