Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
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" a écrit dans le message de groupe de discussion :
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.
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" <pasdemail@nul.net> a écrit dans le message de groupe de discussion :
mn.3ade7d9a89c93083.62698@nul.net...
Bonjour,
J'aimerais pouvoir insérer dans les pieds de pages la date de la
dernière modification du classeur.
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" a écrit dans le message de groupe de discussion :
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
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.
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
'-------------------------------------------------
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 '-------------------------------------------------