Format date dans Label

Bonjour,

Dans mon Label, les données s'affichent au format jj-mm-aaaa
et je souhaiterai qu'il s'affiche avec le format jjjj-mm-aaaa (jeudi 14 octobre 2010).

J'ai cherché (peut-être mal) mais je n'ai rien trouvé concernant ce sujet. Dois-je appliquer le même code que pour les TextBox ?

Merci par avance

Bonjour

Dés que l'on veut mettre en forme une date, la fonction format est là :

Code:

---

Me.lblDate.Caption = Format(Date, "dddd dd mmmm yyyy")

---

Et je peux te dire que tu as très mal cherché, les tutos sont là pour cela.

Philippe

Bonjour Philippe,

Merci pour ta réponse. La recherche sur le forum ne fonctionne pas de mon poste de travail et je ne sais pas pourquoi. Dès que je clique sur "Recherche" le Net se ferme.
J'ai demandé à mon service informatique de voir d'où vient le soucis mais je n'ai toujours pas de réponse.
Je vais donc chercher ailleurs sur la toile et je ne l'ai certainement pas bien fait.

Je viens de mettre en place le code que tu m'as donné mais cela ne fonctionne pas comme je le souhaiterai.
Voici mon code actuel :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize()   Me.Label6.Caption = ("Du : ") & Sheets("Don").Range("I2").Value & " " & " " & ("Au : ") & Sheets("Don").Range("I17").Value Me.Label7.Caption = ("Du : ") & Sheets("Don").Range("I18").Value & " " & " " & ("Au : ") & Sheets("Don").Range("I33").Value Me.Label8.Caption = ("Du : ") & Sheets("Don").Range("I34").Value & " " & " " & ("Au : ") & Sheets("Don").Range("I98").Value Me.Label9.Caption = ("Du : ") & Sheets("Don").Range("I99").Value & " " & " " & ("Au : ") & Sheets("Don").Range("I110").Value Me.Label10.Caption = ("Du : ") & Sheets("Don").Range("I111").Value & " " & " " & ("Au : ") & Sheets("Don").Range("I127").Value   End Sub

---

C'est donc les dates venant de la feuille "Don" qui doivent être au format "dddd dd mmmm yyyy" et dans le cas de ton code, il ne me retourne que la date du jour.
Je le concède, ma première explication n'était pas claire.

Code:

---

Me.Label6.Caption = ("Du : " & format(Sheets("Don").Range("I2").Value,"dd mm yyyy") & " "Au : " & format(Sheets("Don").Range("I17").Value,"dd mm yyyy")

---

Re

Citation:

---

Envoyé par NEC14

Je viens de mettre en place le code que tu m'as donné mais cela ne fonctionne pas comme je le souhaiterai.

---

Je ne vois pas la fonction Format dans ton code.

Philippe

Merci mercatog, je fais les modifications nécessaire.

Philippe, j'ai enlevé le code que tu m'as donné afin de ne mettre que celui qui fonctionne.
Mauvaise habitude de ma part.
Toutes mes excuses

Merci beaucoup, mon problème est résolu