date aujourd'hui sur userform

[kevinch]

Bonjour le forum,

je voudrais savoir comment faire apparaitre la date actuelle sur un userform.
La fonction aujourd'hui est elle valable en vba?

Merci

A +

 

[informatixo]

Re : date aujourd'hui sur userform

Bonjour,

En vba la fonction c'est Now. A toi de voir si tu veux l'afficher dans un label ou dans un textbox et tu as la possibilité de la formatter avec format si mes souvenirs sont bons.

A plus

 

[abc]

Re : date aujourd'hui sur userform

Bonsoir,
un exemple
A+

 

[PascalXLD]

Re : date aujourd'hui sur userform

Bonsoir

En fait Now te donne date et heure

EN VBA juste la date du Jour c'est Date

exemple

Textbox1=Date

Bon courage

 

[kevinch]

Re : date aujourd'hui sur userform

Merci

c'est tout simple en fait

A +

 

[informatixo]

Re : date aujourd'hui sur userform

EN VBA juste la date du Jour c'est Date

Effectivement j'ai dis une bêtise, merci de me reprendre Pascal76.

Cependant, on peut obtenir le même résultat en formattant l'affichage de Now à l'aide de la fonction format, par exemple comme suit :

MsgBox Format(Now, "dddd dd mmmm yyyy", vbMonday)

Merci de cette précision et à plus sur d'autre fils

 

[kevinch]

Re : date aujourd'hui sur userform

Bonsoir le forum,

J'ai bien résolu mon problème de date actuelle que je fais afficher dans un label. Le problème maintenant est que cette date ne s'affiche pas à l'ouverture du userform mais uniquement lorsqu'on essaie de cliquer sur ce label. Je suppose qu'il est possible de la faire s'afficher automatiquement. Mais comment?

Merci d'avance

A +

 

[informatixo]

Re : date aujourd'hui sur userform

bonsoir,

Je n'ai pas très bien compris ta question mais si tu veux que ton label se mette à jour à l'ouverture de l'UserForm alors il te faut formatter la date du label sur l'évènement "Initialize" ou à la rigueur sur l'évènement "Activate" de ton UserForm.

J'espère avoir répondu à ta question

A plus

 

[Hellboy]

Re : date aujourd'hui sur userform

Bonsoir a tous

Avec ce que Robert ta déjà donner comme élément de réponse et de commentaires. 1 & ? fond 2 hmmmmmmmmmmmmm !

Private Sub UserForm_Initialize() 'à l'initialisation de l'Userform
' labelX.caption = cequetuaschoisis
End Sub