Bonjour,

je cherche à mettre dans la colonne A les noms des fichiers d'un répertoire et dans la colonne B la date de création/modification des mêmes fichiers.
j'ai essayé ce code en tant que débutant mais je coinces.

Merci pour votre aide.



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Fichier = Dir(Rep)
DateFile = FileDateTime(Fichier)
i = 0
Do While Fichier <> ""
    i = i + 1
    ws.Range("A" & i) = Fichier
    ws.Range("B" & i) = DateFile
    Fichier = Dir
Loop