bonjour Popeybk
je te proposes deux methodes , pour inserer la date de la derniere sauvegarde en pied de page
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim i As Byte
For i = 1 To Sheets.Count
ThisWorkbook.Sheets(i).PageSetup.LeftFooter = _
"Derniere sauvegarde le " & Format(ThisWorkbook.BuiltinDocumentProperties("Last save time").Value, "dd.mm.yyyy")
Next
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Cible As Object, val As Object
Dim i As Byte
Set Cible = CreateObject("Scripting.fileSystemObject")
Set val = Cible.getFile(ThisWorkbook.FullName)
For i = 1 To Sheets.Count
ThisWorkbook.Sheets(i).PageSetup.LeftFooter = "Derniere sauvegarde le " & Format(val.dateLastModified, "dd.mm.yyyy")
Next
End Sub
bon week end
michel