Format date entête personnalisé

Bonjour.

Je souhaiterais avoir comme entête personnalisée "Suivi des ruptures au (date du jour)" mais la date sous la forme jeudi 20 février 2020.

Comment faire svp? j'ai déjà une macro

Sub Change_Format()

ActiveSheet.PageSetup.CenterHeader = Format(Now, "dddd d mmmm yyyy")

End Sub

Mais sans "Suivi des ruptures au"

Merci à vous

Bonjour,

Essaie ainsi :

ActiveSheet.PageSetup.CenterHeader = "Suivi des ruptures au " & Format(VBA.Now, "dddd d mmmm yyyy")

Bonjour.

Impeccable ca fonctionne. Comment fait-on pour rajouter une police en plus?

Fichier en PJ

Sub ChgFormatDate()

ActiveSheet.PageSetup.CenterHeader = "Suivi des ruptures au " & Format(VBA.Now, "dddd d mmmm yyyy")

End Sub

Merci

Bonjour,

à tester,

    With ActiveSheet.PageSetup
    .CenterHeader = "&""Arial,Gras""&26&K00B050" & "Suivi des ruptures au " & Format(VBA.Now, "dddd d mmmm yyyy")
    End With

Merci