Mise en forme en-tête personnalisé pour l'édition

Bonsoir le forum,

Actuellement j'utilise la syntaxe suivante :

Frs = [B1]
 With ActiveSheet 
 .PageSetup.CenterHeader = "&""arial,bold"
 .PageSetup.CenterHeader = Frs
 .PrintPreview
 End With

pour imprimer un en-tête personnalisé variable selon le contenu de la cellule B1, par contre la mise en forme (arial et bold) ne fonctionne pas à l'impression.

Comment faire pour que celle-ci fonctionne à chaque fois.

D'avance merci pour votre aide

Bonsoir,

C'est normal, quand tu fais :

 .PageSetup.CenterHeader = "&""arial,bold"
 .PageSetup.CenterHeader = Frs

Tu charges .PageSetup.CenterHeader avec "&""arial,bold"

puis tu écrases ce qui vient d'être fait par .PageSetup.CenterHeader = Frs

C'est un peut comme si tu modifiais une cellule deux fois de suite

Range("A1")=12

Range("A1)=5

Le résultat ne fera 17 que si tu saisis

Range("A1)=Range("A1)+5

En conclusion, si tu saisis :

.PageSetup.CenterHeader = "&""arial,bold" & """" & Frs

cela devrait solutionner ton problème. Il faut bien mettre les 4 guillements sinon cela ne fonctionne pas : Excel s'en sert pour séparer le paramétrage de l'entête du contenu.

A+

Benead

Bonjour Benead,

Je te remercie beaucoup pour ton explication sur mon erreur, ainsi que ta solution.

Encore merci et bonne journée