Discussion :

[Joelatack]

Bonjour

Je dois dans un classeur pouvoir afficher dans une cellule la date de dernière modification du classeur.

J'ai pu trouvé sans problème une macro sur internet qui effectue ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim modif As Boolean 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
If modif = True Then 
Sheets("Nom de la feuille").Range("A1").Value = "Dernière Révision le " & Format(Date, "dd/mm/yyyy") & Format(Time, "hh:mm:ss") 
 
 
End If 
End Sub 
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
modif = True 
End Sub

Le problème c'est que mon classeur doit être protégé par un certificat (signature numérique) et après avoir intégré cette macro, excel me dit que mon classeur utilise des macros 4.0 et que ceci est incomptable avec les signatures numériques.

J'aurai voulu savoir s'il ya une possibilité de contouner ce problème? Soit en utilisant une autre méthode pour la date de dernière modification, ou en permettant les signatures avec une macro 4.0.

Voila merci d'avance.

[AlainTech]

Bonjour,

Où as-tu écrit le code?

[Joelatack]

Je l'avais écrit dans le Workbook et après ça, je ne pouvais plus signer mon classeur.

Mais là j'ai créé un module avec une macro en auto_open() qui récupère la date de dernière modification du document et ça semble marcher.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub auto_open()
       Feuil1.Cells(64, 3).Value =  ActiveWorkbook.BuiltinDocumentProperties.item(12).Value
End Sub

Je ne m'y connais pas du tout en VBA, donc je ne sais pas trop ce qui différencie un macro 4.0 d'une autre. Mais bon en tout cas mon document est signé et j'ai bien la date de dernière modification.