Lister fichier, ajout date de modification

Bonjour,

J'ai récupéré le fichier joint sur ce sujet => https://forum.excel-pratique.com/viewtopic.php?f=2&t=32101&hilit=repertoire&start=20

Je souhaiterais avoir la date de dernière modification en colonne C .

Merci de votre aide.

Bonjour,

ton appli étant bien complexe pour moi, je te mets sur une piste avec ceci :

Sub test()
Dim Fso As Object, F As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
'Instanciation de l'objet File
Set F = Fso.GetFile("C:\Users\Michel\Downloads\JsonConverter\JsonConverter.bas")
MsgBox (" Fichier : " & F.Name & " - Taille : " & F.Size & " - Dernière modification : " & F.DateLastModified)
End Sub

edit : bonjour M12, on travaillait sans doute en parallèle, pas encore vu ta réponse.

Bonjour Steelson

J'ai seulement rajouté cette ligne dans le module ModMAJ --> Macro MAJRepertoire la ligne suivante:

 .Cells(LigEcrire, Col).Offset(0, 2) = FileDateTime(F)

Bonjour,

Merci M12 et Steelson.

Exactement ce que je voulais.

Rechercher des sujets similaires à "lister fichier ajout date modification"