Excel macro date derniere modification du doc

Fermé
bastoun
Messages postés
56
Date d'inscription
lundi 26 février 2001
Statut
Membre
Dernière intervention
16 mars 2005
- 23 nov. 2001 à 12:11
alexbarre
Messages postés
170
Date d'inscription
lundi 4 février 2008
Statut
Membre
Dernière intervention
10 avril 2013
- 12 nov. 2009 à 11:58
comment faire en excel pour obtenir la date de dernière modif du classeur dans une cellule

vite de l'aide

7 réponses

Mabelle60
Messages postés
469
Date d'inscription
mercredi 4 avril 2007
Statut
Membre
Dernière intervention
21 juin 2017
125
4 avril 2007 à 22:07
Bonjour
Dans This Workbook, place :
Dim modif As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Feuil1").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)
modif = True
End Sub
3
Merci bcp!
0
Bonjour,
J'aarive pas à utiliser ce code, ça me marque erreur... et g n'obtiens rien..
Faut il mettre toutes ces "Sub" comme ci dessous?
Dim modif As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If modif = True Then
Sheets("Feuil1").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)
modif = True
End Sub
0