XL 2010 Mettre en CAP du texte dans une macro

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Mars 2020

• #2

Bonjour Jean,
Essayez ça :

VB:

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

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 6 Mars 2020

• #3

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

VB:

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

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 6 Mars 2020

• #4

JBARBE à dit:

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

VB:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Solution

Staple1600

XLDnaute Barbatruc

• 7 Mars 2020

• #5

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

VB:

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

 

Vote positif 0 Vote négatif