Problème d'affichage de date

Bonsoir,
J'ai beaucoup essayé de comprendre, mais je ne vois pas !!
Voici mon code:

Private Sub UserForm_Initialize()
date_du_jour = Now()
mois_en_cours = Month(date_du_jour)
Label1.Caption = "La date du jour, est: " & Format(date_du_jour, "dddd d mmmm yyyy")
TextBox1.Value = Format(mois_en_cours, "mmmm")
TextBox2.Value = Format(mois_en_cours)
End Sub

Dans Textbox1, il m'affiche "janvier"
Dans Textbox2, il m'affiche "11"

Pourquoi ?
Merci pour votre précieuse aide

Bonjour

Erreur de conception de ta part

utilise

Format(date_du_jour, "mmmm")

Car

mois_en_cours vaut 11

soit le 11/01/1900 si tu le considères comme une date d'où janvier

A noter que date_du_jour = Now() Date()

tu postes un format 2007 et plus mais ton profil indique 2003 : merci de le mettre à jour

Bonsoir 78chris,
Effectivement, très mauvaise conception.
Merci pour ta réponse rapide et claire

PS: profil modifié