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”)