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

Johan

XLDnaute Occasionnel
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
 

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG