Actualisation dates dans DTPicker

[bobby33]

bonjour,

J'ai composé un userform avec sélection de dates avec DTPicker. cette programmation date de plusieurs jours.
Lors de l'appel de ce DTPicker, quelques jours après, la date par défaut est la dernière date est celle de la précédente sélection.

Y aurait-il un moyen d'actualiser la date pour la mettre à celle d'aujoud'hui.

Un gros merci pour le coup de "main" (clavier)

 

[Pierrot93]

Re : Actualisation dates dans DTPicker

Bonsoir Bobby

places le code ci dessous, dans le module de l'usf, se déclenche à l'initialisation de celui ci :

Private Sub UserForm_Initialize()
DTPicker1.Value = Date
End Sub

bonne soirée
@+

 

[bellous]

Re : Actualisation dates dans DTPicker

Super pierrot93 c'est ce que je cherchais.
B

 

[bobby33]

Re : Actualisation dates dans DTPicker

Pardon, j'ai envoyé trop tôt

bonne soirée

 

[LABUCHE]

Re : Actualisation dates dans DTPicker

Bonsoir Bobby

places le code ci dessous, dans le module de l'usf, se déclenche à l'initialisation de celui ci :

Private Sub UserForm_Initialize()
DTPicker1.Value = Date
End Sub

bonne soirée
@+

Change juste le Date par now dans initialize

Private Sub UserForm_Initialize()
DTPicker1.Value = now
End Sub

pour avoir la date du jour

 

[Pierrot93]

Re : Actualisation dates dans DTPicker

Re, bonsoir Labuche

la fonction "date", renvoie la date système et la fonction "now" renvoie la date et l'heure, sauf erreur, me semble pas que le "dtpicker" utilise l'heure....

bonne soirée
@+

 

[LABUCHE]

Re : Actualisation dates dans DTPicker

Re, bonsoir Labuche

la fonction "date", renvoie la date système et la fonction "now" renvoie la date et l'heure, sauf erreur, me semble pas que le "dtpicker" utilise l'heure....

bonne soirée
@+

bien vu Pierrot93

 

[Pierrot93]

Re : Actualisation dates dans DTPicker

Bonjour Bobby, Labuche

petite rectification, en fait on peut renvoyer la date et l'heure dans un "DTPicker1", en procédant comme suit :

Private Sub UserForm_Initialize()
With Me.DTPicker1
    .Format = 3
    .CustomFormat = "dd/MM/yyyy HH:mm:ss"
    .Value = Now
End With
End Sub

attention, la casse est importante dans la définition de la propriété "CustomFormat ", maintenant l'utilisation que l'on peut en faire... A chacun de voir...

bon après midi
@+