Date enregistrement excel
Résolu
A voir également:
- Excel date dernier enregistrement
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Dernier iphone - Guide
- Si et excel - Guide
12 réponses
salut,
j'ai toujours pas réussi à changer la date de modification à l'enregistrement independement dans chaque feuille.
j'ai repris ce code mais cela ne marche que pour une feuille. si je le recopie pour une autre feuille, cela me crée des erreurs.
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
j'ai toujours pas réussi à changer la date de modification à l'enregistrement independement dans chaque feuille.
j'ai repris ce code mais cela ne marche que pour une feuille. si je le recopie pour une autre feuille, cela me crée des erreurs.
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
'Date de mise à jour par feuille
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
titre = ActiveSheet.Name
reponse = MsgBox("Actualiser la date de mise à jour de la feuille " + titre + " avant d'enregistrer le fichier?", vbOKCancel)
If reponse = vbOK Then
Dim fs, f
nom = ActiveWorkbook.FullName
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(nom)
Cells(1, 1) = "Mis à jour le " + Left(f.DateLastModified, 10)
End If
If reponse = vbCancel Then
End If
End Sub