Sub DatelnHeader()
With ActiveSheet.PageSetup .LeftHeader = ""
.CenterHeader = "&D"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With End Sub

Cette macro ajoute une date à l’en-tête lorsque vous l’exécutez. Il utilise simplement la balise « &D » pour ajouter la date. Vous pouvez également le changer en pied de page ou changer le côté en remplaçant le «  » par la balise de date. Et si vous souhaitez ajouter une date spécifique au lieu de la date actuelle, vous pouvez remplacer la balise « &D » par cette date du code.

Sub CustomHeader()
Dim myText As String
myText = InputBox("Enter your text here”, "Enter Text”)