D
dam0326
Guest
Bonjour,
Je souhaite ajouter, sur une feuille, la date du dernier enregistrement d’un tableau Excel.
Pour cela, ci-dessous la procédure que j’ai fait :
• ALT F11
• ThisWorkbook
• Workbook
• Sélection de « Before Save »
• Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Feuil1").Range("A1").Value = "Dernière sauvergarde le " & Format(Now, "DD/MM/YY HH:MM:SS") & " par " & Application.UserName
End Sub
Et après comment faire ???
Merci de votre aide
Damien
Je souhaite ajouter, sur une feuille, la date du dernier enregistrement d’un tableau Excel.
Pour cela, ci-dessous la procédure que j’ai fait :
• ALT F11
• ThisWorkbook
• Workbook
• Sélection de « Before Save »
• Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Feuil1").Range("A1").Value = "Dernière sauvergarde le " & Format(Now, "DD/MM/YY HH:MM:SS") & " par " & Application.UserName
End Sub
Et après comment faire ???
Merci de votre aide
Damien