la date ne correspond pas au mois

[cpeens]

bonjour à tous

petit soucis j'utilise cette macro pour inserer le mois le jour et année dans 3 textbox le soucis c'est ont est en fevrier et il me met janvier.

Private Sub CommandButton1_Click()
Label4.Caption = Format(Date, "dd-mmmm-yyyy")

TextBox1.Value = Day(Label4.Caption)
TextBox2.Value = Format(Month(Label4.Caption), "mmmm")
TextBox3.Value = Year(Label4.Caption)

End Sub



Private Sub UserForm_Initialize()
Label4.Caption = Format(Date, "dd-mmmm-yyyy")
End Sub

ma question est simple comment avoir la bonne date svp merci

 

[david84]

Re : la date ne correspond pas au mois

Bonsoir,

Private Sub CommandButton1_Click()
s = Split(Label4.Caption, "-")
TextBox1 = s(0)
TextBox2 = s(1)
TextBox3 = s(2)
End Sub

A+
Edit : bonsoir Jean-Marcel🙂

 

[SSIAP2]

Re : la date ne correspond pas au mois

Bonjour Jean Marcel et david84 merci pour vos solutions qui fonctionne tous deux c'etait bizare qu'il fasse cela mais bon c'est resolu à trés bientot et encore merci