Format vba En-tête page

[VINCEGR]

bonjour le forum,

j'ai le code ci-dessous qui inscrit le mois dans mon en-tête de page avec un format standard et je souhaiterais un format de 18 en gras
est-ce possible ?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup

.RightHeader = Format(Date - 40, "MMMM - yyyy") 'en-tête droit

End With
End Sub

merci d'avance

 

[Odesta]

Re : Format vba En-tête page

Bonjour

avec ceci pour tout l'entête

.RightHeader = "&B " & Format(Date - 40, "MMMM - yyyy")

Cordialement
Olivier

 

[natorp]

Re : Format vba En-tête page

bjr VinceGR et Olivier
avec 18 en plus :

        .RightHeader = "&B&18 " & Format(Date - 40, "MMMM - yyyy")

cordialement, Gérard

 

[VINCEGR]

Re : Format vba En-tête page

Bonjour Odesta et natorp,

Merci pour réponse,
bonne soirée
@+

 

[VINCEGR]

Re : Format vba En-tête page

Bonjour le forum,

mon format date est la date du jour - 40 jours mais je souhaiterais un format :

"le mois en cours - 1 " mais quel paramètre indiqué à la place de date ?

j'ai essayé mais bogage :

.RightHeader = Format(Date, "Month" - 1, "MMMM - yyyy") 'en-tête droit

merci d'avance

 

[VINCEGR]

Re : Format vba En-tête page

re le forum,

voici la formule sous excel que je souhaite adapter en code vba

=+MOIS.DECALER(MAINTENANT();-1)

merci d'avance pour votre aide
@+

 

[VINCEGR]

Re : Format vba En-tête page

re le forum,

qui peux m'aider pour ce post?

 

[Pierrot93]

Re : Format vba En-tête page

Bonjour à tous

regarde le code ci-dessous :

MsgBox Format(DateAdd("m", -1, Date), "MMMM - yyyy")

bonne journée
@+

 

[VINCEGR]

Re : Format vba En-tête page

bonjour Pierrot93,

je viens d'essayer code et ça marche impecc.
merci pour réponse.
@+