afficher date du jour dans label

[Dennnisss]

Bonjour a tous

besoin de clairifier mon code svp , j'ai mis dans la cellule A1 la formule suivante
=Maintenant() cela nous donne la date du jour , il repond bien sauf que lorsque je que met dans le code ci-dessous il ecrit bien la donnee sauf que je ne veut pas les heures seulement la date et j'aimerais que cette date soit ecrit comme cette exemple
24 juin 2011 alors je cherche comment faire , alors besoin de vous svp
si je peut coder sans me servir de la cellule A1 seulement dans la Sub alors la je ne sais vraiement pas comment et par ou commencer

merci dennnisss😕

Private Sub UserForm_Initialize()
With Sheets("Entree")
Label1.Caption = .Range("a1")
end With
End Sub

 

[Etienne2323]

Re : afficher date du jour dans label

Salut Denissss,
essaye ceci :

Private Sub UserForm_Initialize()

Label1.Caption = Format(Sheets("Entree").Range("A1").Value, "dd mmmm yyyy")

End Sub

Tu n'es pas obligé de passé par la feuille pour avoir cette information. Tu pourrais également inscrire ceci pour obtenir le résultat souhaité :

Private Sub UserForm_Initialize()

Label1.Caption = Format(Now, "dd mmmm yyyy")

End Sub

Cordialement,

Étienne

 

[Dennnisss]

Re : afficher date du jour dans label

Salut a toi Etienne

je viens de prendre note de ton code et merci pour votre efficacite j'en reviens pas
alors bien sure que le code sans se servir de la cellule fait mon affaire mais ces ca que je voulais

merci a toi Etienne et passe une belle journee
dennnisss