derniere date de mise à jour

Le
Michel
Bonjour,

J'aimerais pouvoir insérer dans les pieds de pages la date de la
dernière modification du classeur.

C'est possible ?

Merci d'avance.

M.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #20307121
Bonjour Michel,

Dans le ThisWorkbook de ton fichier, si tu mets ces 2 lignes de code,
tu auras dans une cellule la date du dernier enregistrements de ton fichier.

Dans les 2 procédures, tu retiens la feuille et la cellule où tu veux
enregistrer la date du dernier enregistrement.
'-------------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil1.Range("A1") = Date
End Sub
'-------------------------------------

Et à chaque fois que tu lances l'impression d'une feuille de ton fichier :
Toujours dans le ThisWorkbook de ton fichier :

'-------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh.PageSetup
.LeftFooter = Feuil1.Range("A1")
End With
Next
End Sub
'-------------------------------------------------



"Michel"
Bonjour,

J'aimerais pouvoir insérer dans les pieds de pages la date de la
dernière modification du classeur.

C'est possible ?

Merci d'avance.

M.
Michel
Le #20307571
michdenis a utilisé son clavier pour écrire :
Bonjour Michel,

Dans le ThisWorkbook de ton fichier, si tu mets ces 2 lignes de code,
tu auras dans une cellule la date du dernier enregistrements de ton fichier.

Dans les 2 procédures, tu retiens la feuille et la cellule où tu veux
enregistrer la date du dernier enregistrement.
'-------------------------------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Feuil1.Range("A1") = Date
End Sub
'-------------------------------------

Et à chaque fois que tu lances l'impression d'une feuille de ton fichier :
Toujours dans le ThisWorkbook de ton fichier :

'-------------------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh.PageSetup
.LeftFooter = Feuil1.Range("A1")
End With
Next
End Sub
'-------------------------------------------------



Super c'est impeccable, merci et bonne journée
M.
Publicité
Poster une réponse
Anonyme