date de fichier

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:

---

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

---

bonjour
il y a une réponse ici

Citation:

---

https://excel.developpez.com/faq/?page=FichiersDir

---

Par pitié !!
Pas la fonction Dir ni les API (ce sont des calamités), la librairie FSO est autrement plus simple, explicite et sécurisée:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim FSO As Object '// Scripting.FileSystemObject Set FSO = CreateObject("Scripting.FileSystemObject")   Dim Folder As Object '// Scripting.Folder Set Folder = FSO.GetFolder("c:\......")   Dim File As Object '// Scripting.File For Each File In Folder.Files Dim Name As String Name = File.Name   Dim DateCreated As Date DateCreated = File.DateCreated Next

---