Heure d'enregistrement

[neonato]

Bonjour tout le monde,

Est-il possible de faire apparaitre dans une cellule ex A1 L'heure et la date à la quelle le fichier complet.xls à été enregistrer la dernière fois ??

Merci de m'aider un peu

Néo

 

[Jean-Marie]

Bonjour

1) Copie le code
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Feuil1").Range("A1") = Date + Time
End Sub

2) Depuis ton fichier, appuie sur Alt+F11

3) Dans la fenêtre propriété, double clique sur le ThisWorkbook de ton fichier

4) Dans la nouvelle fenêtre "Nom du classeur -ThisWorkbook (Code), colle le code précédemment copier.

5) Change le nom de la feuille et la référence de la cellule

6) Retourne sur Excel



@+Jean-Marie

 

[BerNar]

1° Crée un onglet dans ta feuille. Par exemple "InfoEnrgt"
2° Appuie sur les touches Alt+F11
3° Dans 'VBAProject(NomDeTonFichier.xls), double-cliques sur 'ThisWorkBook'
4° Recopies ce code :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Sheets("InfoEnrgt").Cells(2, 1).Value = Now()
End Sub


A chaque fois que tu enregistreras ton fichier, la date et l'heure se mettront à jour.

BerNar.

 

[neonato]

Merci beaucoup Jean marie et bernar pour vos infos
A+
Néo