Pied de page et MAJ

[envol]

Bonsoir à tous,

Savez-vous si le pied de page peut afficher automatiquement la date de la dernière MAJ de votre document ?

Par exemple,
le 1er juillet je saisis qquelque chose de nouveau sous un document excel puis je le ferme.
Le 3 juillet, j'ouvre le document et je l'imprime... et le pied de page affiche:" dernière MAJ le 01 juillet 10"

Passez une très bonne soirée

 

[JCGL]

Re : Pied de page et MAJ

Bonjour à tous,

Dans ton code... Ou dans le BeforePrint... Sans fichier pas facile de tenter de vouloir t'aider..

 ActiveSheet.PageSetup.CenterFooter = "Dernière Mise à Jour le &D"

A+ à tous

 

[envol]

Re : Pied de page et MAJ

Bonjour JCGL, bonjour à tous,

Merci JCGL pour cette première réponse.

Mais je suis stade au "0" car je ne savais vraiment pas avant ta réponse si cela était ou non possible.

J'ai fait une démo basique (sans code vba). Tu peux m'aider à faire le fichier avec l'affichage automatique de la date de MAJ à la date d ela MAJ effective ?

Très bon w-end à tous,

 

[JCGL]

Re : Pied de page et MAJ

Bonjour à tous,

Un essai en pièce jointe avec dans le ThisWorkBook :

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = "Dernière Mise à Jour le &D à &T"
End Sub

A+ à tous

 

[phlaurent55]

Re : Pied de page et MAJ

Bonjour envol, Jean-Claude

le 1er juillet je saisis qquelque chose de nouveau sous un document excel puis je le ferme.
Le 3 juillet, j'ouvre le document et je l'imprime... et le pied de page affiche:" dernière MAJ le 01 juillet 10"

@ Jean-Claude ......... de cette manière, tu auras toujours la date du jour de l'impression

Pour cela, il faut stocker la date de la mise à jour dans une cellule de ton fichier lors de la sauvegarde

Pour une impression ultérieure, il faut aller rechercher cette date et la mettre dans le pied de page avant impression

Bon week-end
à+
Philippe

 

[JCGL]

Re : Pied de page et MAJ

Bonjour à tous,
Salut Philippe,

Exact...
Alors un essai dans le code la feuille 1 :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.PageSetup.CenterFooter = "Dernière Mise à Jour le " & Date
End Sub

A+ à tous

 

[envol]

Re : Pied de page et MAJ

Bonjour à tous et merci pour votre soutien,

Je viens de tester et ça semble marcher. je refais un test sur plusieurs jours de la semaine et vous tiens au courant.

bon dimanche

 

[Staple1600]

Re : Pied de page et MAJ

Bonjour

Tu peux aussi utiliser ceci dans ton pied de page

MsgBox ActiveWorkbook.BuiltinDocumentProperties("Last Save Time" ).Value

Option Explicit

A tester donc

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MAJ
MAJ=ActiveWorkbook.BuiltinDocumentProperties("Last Save Time" ).Value
ActiveSheet.PageSetup.CenterFooter = "Dernière Mise à Jour le " & MAJ
End Sub

 

[envol]

Re : Pied de page et MAJ

Bonsoir à Tous,

Eh bien tous marche ! Et la formule de Staple donne en plus l'hr d'enregistrement.

Dommage que sous excel le pied de page ne soit pas compatible avec "figer les volets", mais bon, on peut pas tout avoir (c'est ce que rappel l'aide sous excel).

Merci encore à vous tous.

bonne nuit