Textbox et calendrier ?

Bonjour à tous,

J'ai mis dans mon UserForm "frm_Montant" un bouton "btn_OuvreCalendrier" collé à la "txt_Date" pour sélectionner une date à partir de celui-ci.

Puis j'ai créé une private sub au clic sur le calendrier:

Private Sub Calendrier_Click()
Dim Saisie As Variant
Dim Txt_Date As Object

Saisie.Txt_Date = Calendrier

End Sub

Mais je n'arrive pas à ce que la date s'inscrive dans la "txt_Date"

J'ai l'erreur d'exécution "424" objet requis qui s'affiche...?

De plus, je n'ai pas su qualifier ma variable "Saisie", en "String" ou en "Date", j'ai une "Erreur de compilation: qualificateur incorrect"

Pouvez vous m'éclairer sur ce problème ?

Merci d'avance...

Mon fichier joint:

Bonjout

mettre le nom de Userform pour la textbox

Private Sub Calendrier_Click()
    frm_Montant.Txt_Date = Calendrier
    Unload Me
End Sub

A+

Maurice

Bonjour archer,

Merci beaucoup pour ton efficacité et ta rapidité à aider...

Ca marche du feu de dieu.

Bonsoir

tien si tu veux jouer

voila la gestion de 2 banque qui est pas terminer

A toi de voir

A+

Maurice