VBA Police en-tête de page

[Arpette]

Bonjour à toutes et à tous,
je souhaite à l'enregistrement d'un classeur mettre en-tête de page à gauche, le nom de la cellule C4 et y appliquer un format:
Police = "Book Antiqua" Style = "Gras italique" Taille = "21"
J'ai mis ce bout de code, il y a bien le nom de la cellule C4, mais pas le format.

With ActiveSheet.PageSetup
      .LeftHeader = ActiveSheet.Cells(4, 3).Value
      .LeftHeader = "&21&""BOOK ANTIQUA,GRAS ITALIQUE"""
End With

Merci de votre aide
@+

 

[mth]

Re : VBA Police en-tête de page

Bonjour Arpette,

L'enregistreur de macros semble indiquer une écriture légèrement différente, du coup essaie peut-être comme ceci (qui fonctionne chez moi)

With ActiveSheet.PageSetup
        VEntete = ActiveSheet.Cells(4, 3).Value
       .LeftHeader = "&""BOOK ANTIQUA,Gras italique""&21" & VEntete
End With

Bonne journée,

mth

 

[Arpette]

Re : VBA Police en-tête de page

Bonjour MTH, merci c'est nickel
@+