Bonjour,
Depuis que j'utilise un fonction Vba qui me permet d'indiquer la date de la dernière modification apportée à un fichier excel, la fonction Ctrl+z ne marche plus.
Voici le code utilisé :
Dim modif As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("EN COURS").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy")
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False
Sh.Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy") _
& " par " & Application.UserName
Application.EnableEvents = True
End Sub
Y a-t-il une solution pour que la fonction Ctrl+z remarche sans supprimer mon code ?
PS : je précise que je suis novice en Vba, je me suis contenté de copier/coller ce code trouvé sur internet.
Merci d'avance.