Bonjour
Regarde Lien supprimé pour l'impression, et suis bien les indications de Thierry.
Pour l'ouverture du fichier, il suffit de placer dans le code de la procédure Private Sub Workbook_Open(), ces deux lignes
Sheets("Feuil1").Activate
Range("A"&Range("A:A").End(xlDown)) =Format(Date,"jjj j mmm ")&" à " Format(Time,"hh:mm:ss")
Adapte la plage et le nom de la feuille à ton cas
Tu peux connaître aussi quand des impressions ont été faîte :
Toujours dans le ThisWorkBook
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Feuil1").Activate
Range("A"&Range("B:B").End(xlDown)) =Format(Date,"jjj j mmm ")&" à " Format(Time,"hh:mm:ss")
End Sub
Bonne journée
Encore une fois, j'espère ne pas dire beaucoup de "conn....", je suis nul en VBA, mais j'essaye de combler mes lacunes.
@+Jean-Marie