Bonjour le forum
Je reviens vers vous pour un probleme de taille de police, dans la mise en page
J'ai tout essayé mais en vain, un peu d'aide de votre part serait la bienvenue
Merci
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
"leftHeader = fond.size = 18
.LeftHeader = Range("K49").Text
End with
End Sub
Alors, je viens de faire le test avec l'enregistreur de macros
(ce que je suggère de faire quand tu bloques sur une syntaxe VBA)
et j'obtiens par exemple (extrait du code obtenu) .RightHeader = "&""-,Gras""&14" .LeftFooter = "&""-,Gras""&16"