Récupération de la date d'un fichier fermé

[grégoryh]

Bonjour à tous,

J'aurais besoin de votre aide.
J'effectue une macro dans laquelle j'aurais besoin de récupérer la date d'un fichier fermé (pas excel).

Pourriez-vous m'éclairer.

Merci

 

[tototiti2008]

Re : Récupération de la date d'un fichier fermé

Bonjour gregoryh,

Qu'entends-tu par Pas Excel ?

 

[grégoryh]

Re : Récupération de la date d'un fichier fermé

salut tototiti,

il s'agit d'un fichier .txt

 

[BOISGONTIER]

Re : Récupération de la date d'un fichier fermé

Bonjour,

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

JB