Insérer la date de modification du classeur

[M@rc]

Bonsoir,
Ne sachant plus vers qui me tourner, je vous fais part de mon soucis que voici : Comment puis procéder pour insérer la date de la dernière modification de mon classeur de 5 feuilles, dans une cellule de la première feuille, nommée 'base'. Une macro est-elle nécessaire et si oui, dans quelle feuille la placer ?
Je vous remercie par avance de votre aide.

 

[@Christophe@]

Bonsoir,

Voici la solution:

A mettre dans le module thisworkbook:

Dim modif As Boolean

Private Sub Workbook_Open()
modif = False
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then

Sheets('Base').Range('A1').Value = 'Dernière modif le ' & Format(Date, 'dd/mm/yyyy') & ' ' & Format(Time,  'hh:mm')
End If
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
modif = True
End Sub

Voila, tu colles le code entier dans ThisWorkbook

bonne chance

@Christophe@

 

[_Thierry]

Bonsoir M@arc, , re @Xtof@

Moi je vois plus simple, toujours dans le Private Module de 'ThisWorkBook' (voir Gif plus bas)

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

Je pars du principe que si l'on sauve, c'est que l'in a changé quelque chose...

Sinon appliquer le 'shmilblick' de mon copain Christophe !

Pour le ThisWorkBook c'est là :


Bonne soirée@+Thierry

 

[M@rc]

Christophe, Thierry,
Un grand merci à tout deux pour votre grande aide.
Bonne soirée.