Calendar

Bonjour

J'aimerais utiliser le Control Calendar pour saisir une date dans le textBox
qui a le focus

Malgrés mes recherches, je n'arrive pas à appliquer sur mon projet

j'ai fais :

Private Sub TxtBaseDateEntree_MouseDown(ByVal Button As Integer, ByVal Shift
As Integer, ByVal X As Single, ByVal Y As Single)
Calendrier_Form.Show
End Sub

Private Sub TxtBaseDateSortie_MouseDown(ByVal Button As Integer, ByVal Shift
As Integer, ByVal X As Single, ByVal Y As Single)
Calendrier_Form.Show
End Sub

Private Sub UserForm_Initialize()
Calendrier.Value = Date
Calendrier.SetFocus
End Sub

Private Sub UserForm_Activate()
Calendrier.Day = Day(Now)
Calendrier.Month = Month(Now)
Calendrier.Year = Year(Now)
End Sub

Private Sub Calendrier_Click()
' On place dans le TextBox la date du calendrier
TxtBaseDateEntree.value = Calendrier.Value
TxtBaseDateSortie = Calendrier.Value
End Sub

Merci de votre aide