Lister les fichiers d'un dossier avec la date de créations

Bonjour

Je cherche a renseigner la colonne C de la feuille2 avec la date de création du fichier. ( pour info, je liste tout les PDF d'un dossier en colonne B et je voudrais rajouter dans la colonne C la date de création)

Dim Rep1 As String, Fichiertermine As String
Dim ii As Integer

Worksheets("feuille2").Range("B2:B50").ClearContents

Rep1 = "C:\test\"
Fichiertermine = Dir(Rep1)
ii = 1
Do While Fichiertermine <> ""
ii = ii + 1
Sheets("Suivi_commande").Range("B" & ii) = Fichiertermine

Fichiertermine = Dir
Loop
End Sub

Cordialement

Bonjour,

Voici une proposition de code si j'ai bien compris :

Sub Lister()
dim t(), Rep$, sfilename$, dl&, n&
Rep = "C:\test"
if dir(Rep, vbdirectory) = "" then msgbox "Dossier inexistant", 16: exit sub
sfilename = Dir(Rep & "\*.pdf")
Do While sfilename <> ""
    n = n + 1: redim preserve t(1 to 2, 1 to n)
    t(1, n) = sfilename
    t(2, n) = filedatetime(Rep & "\" & sfilename)
    sfilename = Dir
Loop
with Sheets("Suivi_commande")
    dl = .cells(.rows.count, "B").end(xlup).row
    with .Range("B2:B" & dl)
        .resize(, 2).clearcontents
        if n > 0 then .resize(n, 2) = application.transpose(t)
    end with
end with
End Sub

Tout se passe sur la feuille Suivi_commande désormais.

On récupère les noms de fichier et les dates de création en même temps.

PS : Pour poster du code, vous pouvez utiliser les balises </> du ruban d'icônes.

Cdlt,

Merci pour le code ça plante sur la ligne dim t(), Rep$, sfilename$, dl&, n&