XL 2010 Mettre en CAP du texte dans une macro

[JeanM]

Bonjour,

toujours et suite à ma demande d'hier qui a été résolue grâce à vous
je voudrais aussi mettre en capitale le mois qui s'affiche ensuite dans le corps du mail
en pièce jointe le code avec en surlignage ce qui doit s'afficher en capitale
J'ai vu la fonction Ucase mais trop débutant pour l'intégrer au code....
Merci d'avance a vous

JeanM

 

[sylvanu]

Bonjour Jean,
Essayez ça :

text1 = "Bonjour %0A %0A Veuillez trouver la facture du mois de : " & " " & UCase(Format(Date, "mmmm")) & " %0A"

 

[JBARBE]

Bonjour sylvanu, Jean, tous,
peut-être un oubli de sylvanu ( espace )

text1 = "Bonjour %0A %0A Veuillez trouver la facture du mois de : " & " " & UCase(Format(Date, "mmmm")) & " " & " %0A"

 

[JBARBE]

Bonjour sylvanu, Jean, tous,
peut-être un oubli de sylvanu ( espace )

text1 = "Bonjour %0A %0A Veuillez trouver la facture du mois de : " & " " & UCase(Format(Date, "mmmm")) & " " & " %0A"

 

[Staple1600]

Bonjour le fil

Les deux solutions précédentes n'en sont pas si on en croit les Immortels

Majuscules aux noms de jours et de mois | Académie française

Les noms des jours et des mois sont des noms communs qui forment une catégorie extrêmement limitée, et qui le serait encore quand bien même on y ajouterait les noms des jours et des mois révolutionnaires, comme quintidi ou décadi,...

www.academie-francaise.fr

Faut donc faire dans le propre!
Application.Proper

Sub Test()
Dim strG$, Mois$
Mois = Format(Date, "mmmm")
strG = Application.WorksheetFunction.EncodeURL("Bonjour, Veuillez trouver la facture du mois de : " & Application.Proper(Mois))
MsgBox strG
'text1 =strG
End Sub

PS: J'ai utilisé EncodeURL par ce que j'ai lu des %0A
Si pas besoin alors adapter en conséquence