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

natorp · 5 Décembre 2023

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 · 5 Décembre 2023

Bonjour.
Mettez

Code:

 .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 · 5 Décembre 2023

Merci Bernard

Petite correction :

VB:

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

Bonne journée, Gérard

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

natorp

XLDnaute Barbatruc

Pièces jointes

Dranreb

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

Discussions similaires