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
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
A voir également:
- Excel insérer date de dernière modification d'une cellule
- Insérer liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Insérer signature word - Guide
- Excel cellule couleur si condition texte - Guide
7 réponses
Mabelle60
Messages postés
469
Date d'inscription
mercredi 4 avril 2007
Statut
Membre
Dernière intervention
21 juin 2017
130
4 avril 2007 à 22:07
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
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 juil. 2007 à 16:56
12 juil. 2009 à 08:26
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