Excel macro date derniere modification du doc
Fermé
bastoun
alexbarre
- Messages postés
- 56
- Date d'inscription
- lundi 26 février 2001
- Statut
- Membre
- Dernière intervention
- 16 mars 2005
alexbarre
- Messages postés
- 170
- Date d'inscription
- lundi 4 février 2008
- Statut
- Membre
- Dernière intervention
- 10 avril 2013
A voir également:
- Excel insérer date de dernière modification
- Excel insérer date de dernière modification d'une cellule ✓ - Forum - Excel
- Date de dernière modification ✓ - Forum - Excel
- Affichage date modification de cellule excel - Forum - VB / VBA
- Excel macro date derniere modification du doc - Forum - Excel
- EXCEL, dernière modification (date+utilisateu - Forum - Excel
7 réponses
Mabelle60
4 avril 2007 à 22:07
- Messages postés
- 469
- Date d'inscription
- mercredi 4 avril 2007
- Statut
- Membre
- Dernière intervention
- 21 juin 2017
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