Date de copie d'un fichier

Bonjour,

Je voudrai savoir s’il est possible en VBA à partir d’une feuille active de connaitre la date et l’heure d’un fichier qui a été copié dans un répertoire.

J’ai consulté ce lien suivant, mais je n’ai pas trouvé mon bonheur.

En vous remerciant de votre aide.

http://boisgontierjacques.free.fr/

Bonsoir,

Function DateCreationFichier(nf)
  Dim fs, f
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set f = fs.GetFile(nf)
  DateCreationFichier = f.DateCreated
End Function

Function DateModifFichier(nf)
  DateModifFichier = FileDateTime(nf)
End Function

Function DernièreSauvegardeClasseur()
  Application.Volatile
  DernièreSauvegardeClasseur = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

Function CreationClasseurActuel()
  Application.Volatile
  CreationClasseurActuel = ThisWorkbook.BuiltinDocumentProperties("Creation date")
End Function

Ceuzin

Bonjour Ceuzin,

Merci beaucoup pour ta réponse,

J'avoue que je ne voie pas comment je pourrai adapter ton code à mon cas.

Un expéditeur m'envoie un mail avec une pièce jointe nommée Synthèse.xls

Je copie cette pièce jointe dans le dossier C:\PJ Outlook\Synthèse.xls

Dans mon fichier Active.xls en Feuil1 (par exemple en A1), je voudrais savoir la date et l'heure de la copie du fichier Synthèse.xls dans le dossier PJ Outlook.