MACRO EVENEMENTIELLE

[MAXIMUS]

Bonjour à tous,

Je souhaite trouver le code vba qui me permettrait de faire en sorte que lorsqu'on enregistre le Classeur on affiche automatiquement dans toutes les feuilles de ce classeur dans une cellule precise la date du dernier enregistrement.

Merci pour le ou la pro qui saura répondre...

Maximus

 

[ziopizza]

Bonjour MAXIMUS,et le forum,
a mettre dans le workbook.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For Each Feuille In ActiveWorkbook.Sheets
Feuille.Activate
Range('a1').Value = Date
Next
End Sub
Salut
Yves
(Pour avoir l'heure mettre Now() à la place de Date)

Message édité par: ziopizza, à: 31/05/2006 12:19

 

[Maximus]

Merci infinement Yves !!!!!


C'est tout à fait ça. J'ai juste corrigé un peu le code parce que j'ai dans mes feuilles aussi une boite de dialogue donc ça marche pas.

Je tiens dans tous les cas a te remericer, tu m'a enlevé une grosse épine


Bonne continuation à toi pro du vba