Problème valeur date (DTpicker) 01/01/1900

[Johan]

Bonjour,

J'ai un userform dans lequel j'ai intégré deux calendrier de type DTPicker, nommés respectivement Date1 et Date2. Ils sont bien réglés sur la date du jour à l'ouverture du formulaire.

Le problème et que quelle que ce soit la date que je renseigne, c'est la valeur "01/01/1900" qui va s'inscrire dans les cellules demandées...

J'ai bien la date du jour qui est prédifinie :

Private Sub UserForm_Initialize()

Date1 = Date
Date2 = Date
Traiter = "En Cours"

End Sub

Et le code du bouton "valider " est bien censé transférer la valeur sur la feuille :

Private Sub ButtonValider_Click()

Dim Dernligne

Dernligne = feuil1.Range("A65000").End(xlUp).Row + 1

feuil1.Range("D" & Dernligne).Value = Date1
feuil1.Range("N" & Dernligne).Value = Date2


End Sub

Sauriez-vous me dire où est le problème ? Rajouter ".value" ne change absolument rien.

Merci d'avance

 

[exene]

Bonjour,

Je n'ai pas le DTPicker, pourrais tu essayer dans ton code
CVDate(Me.Date1) et CVDate(Me.Date2)

@+

 

[sousou]

Pour moi cela fonctionne
J'ai copier ton code.....?
Regarde du coté des format??

 

[Roland_M]

Bonsoir à tous,

essayer aussi comme ceci !?
feuil1.Range("D" & Dernligne).Value = Cdate(Date1)
feuil1.Range("N" & Dernligne).Value = Cdate(Date2)