Date en en tête : samedi 10 novembre 2007

B

Banzai64

XLDnaute Accro

• 10 Novembre 2007

• #2

Re : Date en en tête : samedi 10 novembre 2007

Bonjour

Format de cellule
Catégorie Personalisée

jjjj jj mmmm aaaa

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 10 Novembre 2007

• #3

Re : Date en en tête : samedi 10 novembre 2007

Bonjour Michel, le Forum,
Insomnie toi aussi ?
Vraiment je suis nul de nul mais je ne vois pas comment faire un format de cellule dans un en-tête de page ???
Avec tous mes remerciements

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 10 Novembre 2007

• #4

Re : Date en en tête : samedi 10 novembre 2007

Bonjour NoviceAG,

code retrouvé sur le forum.

avec la date en A1
puis copie du code dans un module de la feuille

Sub novice()
ActiveSheet.PageSetup.LeftHeader = Format(Worksheets("feuil1").Range("A1").Value, "dddd dd mmmm yyyy")
'la valeur de la cellule A1 de la feuille Feuil1 est inscrite dans l'en-tête de gauche.
End Sub

La date sera inscrite en haut et à gauche. A adapter pour le nom de la feuille et pour la cellule.

JHA

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 10 Novembre 2007

• #5

Re : Date en en tête : samedi 10 novembre 2007

Bonsoir à tous,

noviceag veut un en-tête de page.
Je me permets de modifier le code proposé par JHA.

Cette macro à mettre dans ThisWorkbook aura l'avantage d'être automatique et n'a pas besoin d'1 cellule associée.

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftHeader = Format(Date, "dddd dd mmmm yyyy")
End Sub

@+

 

Vote positif 0 Vote négatif

noviceAG

XLDnaute Impliqué

• 11 Novembre 2007

• #6

Re : Date en en tête : samedi 10 novembre 2007

Bonsoir ou plutôt bonjour à vous, le Forum,
Je vous remercie de l'aide apportée et vous souhaite une bon Week-end
Cordialement

 

Vote positif 0 Vote négatif