Discussion :

[rossemma]

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

[BENNASR]

bonjour
il y a une réponse ici

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

[deedolith]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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