remplacer calendar par DTPICKER

[nrdz83]

Bonsoir à tous j'ai un programme qui utilise calendar et ça fonctionne impeccable chez moi .
Hors il se trouve qu'a mon travail impossible d'installer calendar, j'ai donc décidé de remplacer calendar par dtpicker.

Et mon problème est le suivant j'avais une textbox qui était remplie par le code suivant.

Private Sub DTPicker1_Click()
TxtDate.Value = Format(Calendar1.Value, "dd/MM/YYYY")
Calendar.Visible = True
TxtDate.SetFocus
End Sub
Private Sub Txtdate_Enter()
Calendar1.Visible = True
'Calendar1.Value = Now() 'sélectionne par défaut la date du jour
End Sub

J'ai donc fait ce code en remplaçant calendar par dtpicker et la textbox ne se remplie pas.

Private Sub DTPicker1_Click()
TxtDate.Value = Format(DTPicker1.Value, "dd/MM/YYYY")
DTPicker1.Visible = True
TxtDate.SetFocus
End Sub
Private Sub Txtdate_Enter()
DTPicker1.Visible = True
'DTPicker1.Value = Now() 'sélectionne par défaut la date du jour
End Sub

Faut-il modifier le code?

d'avance merci, et amitiés à tous .

 

[jp14]

Re : remplacer calendar par DTPICKER

Bonjour

Ci joint le fichier avec DTPicker.
J'ai remplacé le textbox par DTPicker

A tester

Bon Week End

JP

 

[nrdz83]

Re : remplacer calendar par DTPICKER

bonsoir et merci jp14 que demander de plus sinon que c'est trop fort merci et mes amitiés, je continue a adapter ton super travail, bon week end 🙄