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.