imprimer date d'enregistrement

[chrisxl]

comment dois je faire pour que la date d'enregistrement de mon fichier XL s'imprime dans une cellule ou dans le pied de page?
merci beaucoup

 

[fba]

Salut,
Mettre ceci dans un module:

Function specdefichiers(specfichier, ret)
' les principales informations
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
ret = ret & UCase(specfichier) & vbCrLf
ret = ret & "Créé le : " & f.DateCreated & vbCrLf
ret = ret & "Dernier accès le : " & f.DateLastAccessed & vbCrLf
ret = ret & "Dernière modif le : " & f.DateLastModified & vbCrLf
ret = ret & "Taille : " & f.Size

End Function
Sub fba()
' sauvegarfder le dossier
ActiveWorkbook.Save
'
Dim specfichier, ret, fs, f, s
'chemin absolu et nom fichier
specfichier = ActiveWorkbook.FullName
'
'1/ appel par la fonction
'
Call specdefichiers(specfichier, ret)
Range("feuil1!A1") = ret
'
'ou
'
'2/ en direct
'
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(specfichier)
Range("feuil1!B1") = UCase(specfichier)
Range("feuil1!B2") = "Créé le : " & f.DateCreated
Range("feuil1!B3") = "Dernier accès le : " & f.DateLastAccessed
Range("feuil1!B4") = "Dernière modif le : " & f.DateLastModified
Range("feuil1!B5") = "Taille : " & f.Size
End Sub

et cela dans ThisWorkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call fba
End Sub