Date en en tête : samedi 10 novembre 2007

[noviceAG]

Bonjour le Forum,
En ce début de Week end que je vous souhaite excellent, l'un ou l'une d'entre vous pourrait-il (elle) me dire s'il est possible d'avoir dans un en-tête de page la date sous la forme indiqué dans le titre ? A savoir :
Samedi 10 novembre 2007 et non 10/11/07
En vous remerciant bien fort

 

[Banzai64]

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

Bonjour

Format de cellule
Catégorie Personalisée

jjjj jj mmmm aaaa

 

[noviceAG]

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

 

[JHA]

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

 

[SergiO]

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.

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

@+

 

[noviceAG]

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