En-tête\Pied de page Afficher Date +1

Bonjour, je cherche à imprimer un planning pour le lendemain.

J'arrive a mettre la date du jour dans l'entête mais lorsque je tape PLANNING &[Date + 1] cela ne marche pas!!! Ça m'affiche texto "PLANNING &[Date + 1]"

Avez vous une solution?

Cordialement

Bonjour,

j'ai seulement une solution en vba,

à tester,

Sub MaDate()
ActiveSheet.PageSetup.LeftHeader = "PLANNING " & DateSerial(Year(Date), Month(Date), Day(Date) + 1)
End Sub

Encore toi sabV, décidément tu m'auras été d'une grande aide...

A+++

SabV j’airais besoin de mettre une somme dans une entête, penses tu quand faisant comme pour la date je puisse faire la somme de E3 à E55?

re,

voici 2 possibilités,

Sub MonEnTete1()
sm = Format(Application.Sum(Range("E3:E55")), "0.00")
dt = "PLANNING " & DateSerial(Year(Date), Month(Date), Day(Date) + 1) & "    "
ActiveSheet.PageSetup.LeftHeader = dt & "[" & sm & "]"
End Sub

ou

Sub MonEnTete2()
sm = Format(Application.Sum(Range("E3:E55")), "0.00")
dt = "PLANNING " & DateSerial(Year(Date), Month(Date), Day(Date) + 1) & "    "
ActiveSheet.PageSetup.LeftHeader = dt
ActiveSheet.PageSetup.CenterHeader = sm
End Sub
Rechercher des sujets similaires à "tete pied page afficher date"