Difficultés mise en page en tête

Bonjour à tous!

Dans le cadre d'un projet, j'ai besoin de créer une macro qui automatise la mise en page de l'en tête et du pied de page pour l'impression.

Mon problème, c'est que je ne parviens pas à obtenir la mise en page que je souhaite, et j'ai beau tourner dans tous les sens, je ne comprends pas pourquoi.

Voilà ce que je voudrais obtenir:

leftheader (en gras, double souligné, taille 14, italique) : "chaines de car"

centerheader (en gras, double souligné, taille 14) : "chaines de car" + le contenu d'une cellule de ma feuille

rightheader (en gras, double souligné, taille 14): la date du jour

Lorsque je lance ma macro (j'ai essayé via l'enregistreur ou manuellement), mes expressions apparaissent tronquées.

Avez-vous une idée de la solution?

Merci beaucoup!

Pierre

Bonjour

En caractères police 14, le texte est trop long pour une feuille au format Portrait

En formar Paysage, cela devrait convenir

Sub feuille_active()
With ActiveSheet.PageSetup
    'en-tête de page
    .LeftHeader = "&G&I&14&Echaines de car"
    .CenterHeader = "&G&14&Echaines de car" & Sheets(1).Range("A1") '<-- texte (style gras + taille 14 Sans style police+Contenu cellule A1 de Feuil1)
    .RightHeader = "&G&14&Echaines de car" & ":" & "&D"
End With
End Sub

Cordialement

Merci beaucoup, votre code fonctionne parfaitement!

Pierre.