Majuscule au mois

Bonjour a tous et toutes, forum bonjour,

ce petit code fonctionne j'ai réussi a mettre la premiere lettre du JOUR en majuscule

et je souhaiterai SVP faire de meme pour mettre la premiere lettre du MOIS

egalement en majuscule.

il parait que ca se fait pas, mais j'aime bien

Merci de votre attention et bonne fin d'apres midi

A mettre dans module1

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Tst()
Dim ShTst As Object
With ShTst
[A1] = Format(Date, "dddd dd mmmm yyyy") & "   "
[A1] = UCase(Left([A1], 1)) & Mid([A1], 2)

'Sous cette forme      Dimanche 10 Mai 2009
'Comment mettre la premiere lettre du mois (Mai) en majuscule

[A2] = DatePart("y", Date, vbMonday) & " ième Jour de l'année" & _
   "   Semaine:" & DatePart("ww", Date, vbMonday)
End With
End Sub

Merci Raymond

Salut le forum

Tu peux le faire directement

Remplace

Par

Mytå

Salut Myta, forum

Merci de ta reponse je vais etre honnete je connaissais ce code 'Proper' mais je l'avais completement oublier.

Ca marche Dimanche 10 Mai 2009 que dire a part merci beaucoup.

Pour mettre SVp en gras et rouge ces deux MAJUSCULES c'est tordu ou simple, j'ai deja vu mais sur la date hum

Bonne fin d'apres midi.

Raymond

Re le forum

Raymond, ta macro adaptée pour ta demande

Sub Tst()

[A1] = Application.Proper(Format(Date, "dddd dd mmmm yyyy"))

With [A1]
    With .Characters(1).Font
        .FontStyle = "Gras"
        .ColorIndex = 3
    End With
    With .Characters(2).Font
        .FontStyle = "Normal"
        .ColorIndex = xlAutomatic
    End With
    With .Characters(InStr(InStr([A1], " ") + 1, [A1], " ") + 1).Font
        .FontStyle = "Gras"
        .ColorIndex = 3
    End With
    With .Characters(InStr(InStr([A1], " ") + 1, [A1], " ") + 2).Font
        .FontStyle = "Normal"
        .ColorIndex = xlAutomatic
    End With
End With

[A2] = DatePart("y", Date, vbMonday) & " ième Jour de l'année" & _
   "   Semaine:" & DatePart("ww", Date, vbMonday)

End Sub

Tu peux aussi mettredans une variable.

Sub Tst()

Dim x As Byte

[A1] = Application.Proper(Format(Date, "dddd dd mmmm yyyy"))

With [A1]
    With .Characters(1).Font
        .FontStyle = "Gras"
        .ColorIndex = 3
    End With
    With .Characters(2).Font
        .FontStyle = "Normal"
        .ColorIndex = xlAutomatic
    End With

    x = InStr(InStr([A1], " ") + 1, [A1], " ")

    With .Characters(x + 1).Font
        .FontStyle = "Gras"
        .ColorIndex = 3
    End With
    With .Characters(x + 2).Font
        .FontStyle = "Normal"
        .ColorIndex = xlAutomatic
    End With
End With

[A2] = DatePart("y", Date, vbMonday) & " ième Jour de l'année" & _
   "   Semaine:" & DatePart("ww", Date, vbMonday)

End Sub

Mytå

Re Myta, forum,

C'est pas ma fete ni mon anniversaire, mais je suis gater, ca marche bien je vais regarder attentivement ce que tu as fait, le sauvegarder et l'imprimer archive perso.

Ecoute encore merci, en fait c'était pas dur, sauf pour moi, je blague bien sur.

Merci et bonne fin d'après midi et bonne semaine également.

Bye Raymond