Microsoft 365 La date dans l'entête par VBA

[natorp]

Bonjour à toutes et tous

J'ai un souci avec l'écriture du format date en VBA

Quand j'écris : .LeftHeader = "&""Arial,Gras""FACTURATION - " & Month(Now()) & " " & Year(Now()) 'cela me donne bien 12

Quand j'écris : .LeftHeader = "&""Arial,Gras""FACTURATION - " & UCase(Format(Month(Now()), "mmmm")) & " " & Year(Now()) 'cela me donne JANVIER

Merci pour votre aide et attention, cordialement, Gérard

 

[Dranreb]

Bonjour.
Mettez

 .LeftHeader = "&""Arial,Gras""FACTURATION - " & UCase(Format(Date), "mmmm yyyy"))

Pris en tant que dates, les valeurs de 1 à 12 telles que Month(Date) vont du 1//1/1900 au 12/1/1900
ce qui est en effet toujours en janvier 1900.

 

[natorp]

Merci Bernard

Petite correction :

.LeftHeader = "&""Arial,Gras""FACTURATION - " & UCase(Format(Date, "mmmm yyyy"))

Bonne journée, Gérard