Format date

[Agm]

Bonjour,

Dans un formulaire juste un calendrier pour saisir la date dans un textbox a l'aide du code suivant :
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
When.Value = DateClicked
End Sub

Lorsque je suis la date sur mon calendrier, le textbox se rempli bien, mais lorsque je transfert le resultat dans la feuille excel c'est pas bon, exemple :

Dans le celendrier, je chosis 10 fevrier 2006
textbx = 10/02/2006
feuille excel = 02 Octobre 2006.

Ca doit pas etre bien complique de corrigé mais, je suis nul alors aidez moi svp !!!!!! 🙂 🙂

 

[Angelo]

au moment de ton transfert tu as du te trompé entre jour et mois
en effet dans l'exemple que tu donne 10/02/2006

tu récupere le 02 octobre 2006 donc 02/10/2006 et non 10/02/2006
tu comprend ce que je veux dire ?? (pas sur d'être clair lol )

 

[Agm]

Ouais mais c'est exactement ca mon problème. C'est un transfert automatique entre mon formulaire et ma feuille excel.
D'après ce que je comprends, ce que moi je lui rentre comme format est dd/mm/yyyy et lui il l'interprète sous le format mm/dd/yyyy.

Voilà mon souci !

 

[pierrejean]

bonjour agm

j'ais eu ce même probleme (je crois le même jour)
il faut je crois transferer par quelque chose du genre:

Range('A1') = (CDate(TextBox1))

 

[Agm]

J'ai trouvé une solution qui me convient, on sait jamais si ca peut aider quelqu'un :

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
When.Value = DateClicked
When.Value = Format(When.Value, 'dd mmmm yyyy')
End Sub

Merci pour votre aide

 

[pierrejean]

qui peut se resumer en

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
When.Value = Format(DateClicked, 'dd mmmm yyyy')
End Sub

et la solution est dans le As Date