Bonjour à tous,

Je suis vraiment toute novice, et je rencontre un gros souci en VBA EXCEL. J'ai récupéré sur le net un programme qui avait pour but d'indiquer la date de modif d'un fichier EXCEL:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Modif = True Then
Sheets("feuil1").Range("D1").Value = "Dernière modif le" & Format(Date, "dd/mm/yyyy")
End If
End Sub
 
Private Sub Workbook_Open()
Modif = True
End Sub
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Modif = True
End Sub
Et je rencontre un problème, la date n'apparait pas en cellule D1 (il n'y a rien, sauf le format qui à l'air d'avoir fonctionné) et je rencontre un bug: Erreur de compilation: Type défini par l'utilisateur non défini pour cette ligne ci: Private Sub Workbook_SheetChange (ByVal Sh As Object, ByVal Target As Range)

La date n'apparait toujours pas, même après plusieurs, modifs et manips y compris le débogage du message d'erreur. Y a-t-il quelqu'un pour m'aider SVP?

Merci d'avance à celui ou celle qui pourra m'aider