date de modification du fichier dans en-tête

[jlucb]

Hello

Est il possible d'inclure la date de modification du fichier dans le champ "en-tête" pour impression ?

Merci

 

[Cousinhub]

Re : date de modification du fichier dans en-tête

Bonsoir,
tout dépend si tu veux la date et l'heure de la dernière modification, ou la date et l'heure du dernier enregistrement.
Ci dessous les 2 possibilités :
n'oublies pas de déclarer y en Public dans un module standard

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim x
x = Format(FileDateTime(ActiveWorkbook.FullName), "dd/mm/yy hh:mm:ss")
'x te donne la date du dernier enregistrement du classeur
'y te donne la date du dernier changement dans un onglet
    
    With ActiveSheet.PageSetup
        .CenterHeader = "Dernière modification effectuée le : " & x  'ou y
    End With

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
y = Format(Now, "dd/mm/yy hh:mm:ss")
End Sub

 

[jlucb]

Re : date de modification du fichier dans en-tête

OK
ça fonctionne !!
Super merci
JLucb