XL 2010 date

[RONIBO]

Bonjour,

Je ne trouve pas mon erreur malgré les recherches sur le net.

Je souhaite mettre la première lettre en majuscule d'une date au format dddd dd mmmm yyyy

avoir : Mardi 20 mai 2017 au lieu de mardi 20 mai 2017

J'ai essayé ça : Application.Proper("dddd dd mmmm yyyy")

sans succès....

Une idée?

Merci d'avance

 

[Jacky67]

Bonjour,
Pour A1

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

La cellule sera du texte

 

[RONIBO]

Merci pour ton retour, mais ça concerne pas une cellule mais les onglets

regarde le code si dessous

Sub Planning()
Dim I, Z
    Année = Val(InputBox("Voulez-vous créer le planning de quelle année ?"))
    If Année = 0 Then Exit Sub
    X = DateSerial(Année, 1, 0)
    Y = DateValue("31 décembre " & Année)
    Z = Y - X
    For I = 1 To Z
        Sheets("Planning").Copy After:=Sheets(I)
        ActiveSheet.Name = Format(X + I, Application.Proper("dddd dd mmmm yyyy"))   'ICI
        ActiveSheet.Range("A1") = "Planning du " & Format(X + I, "dddd dd mmmm yyyy")
    Next I
End Sub

 

[Jacky67]

Re...
Essaye

ActiveSheet.Name = Application.Proper(Format(x + I, "dddd dd mmmm yyyy"))

 

[RONIBO]

Bien vu

ça fonctionne niquel

J'aurais une autre question à te poser

A l'ouverture du fichier comment affiché l’onglet portant la date du jour ?

 

[RONIBO]

C'est bon j'ai pu trouver une solution merci beaucoup

 

[Jacky67]

Re.
Cela pourrait ressembler à ceci

Private Sub Workbook_Open()
Sheets(Application.Proper(Format(Date, "dddd dd mmmm yyyy"))).Activate
End Sub