Insérer date dans TextBox à partir d'un calendrier

Bonjour,

Excel 2007 - VBA

J'ai un UserForm dans lequel je click sur un CommandButton_date pour faire apparaître un Calendar1.

Je veux sélectionner une date dans ce calendrier, qu'elle s'insère dans mon TextBox5 et que le calendrier disparaissent ensuite. J'ai essayé plusieurs commande mais la date ne se transfère pas... est-ce que quelqu'un peu m'aider ???

voici ce que j'ai essayé:


Private Sub CommandButton_Date_Click()

Calendar1.Visible = True

End Sub


Private Sub Calender1_click()

With Selection
TextBox5.Value = Format(Calendar1.Value, "dd/mmmm/yy")
End With

Unload Me

End Sub


Merci beaucoup!!!