Dates

Bonsoir

J'ai créer une application sous excel, donc j'ai plusieurs objects dont des textbox.

Dans certains textbox, je saisie des dates puis je l'ai copie dans une autre feuille.

Code:

---

1 2	Sheets(Gx_Visualisation).Cells(Gx_ligne_Selectionner, 7) = Format(TBox_DateRecep1.Value, "DD/MM/YYYY")

---

Mon problème est que lorsque la date est inférieur ou égal à 12, excel me transforme ma date en MM/DD/YYYY.

exemple : 12/04/2007 devient 04/12/2007

J'ai vérifier que mon format de cellule etait correcte et surtout que j'utilisais le bon paramètres régionaux.

Comment puis-je imposer mon format ?

Merci par avance de votr aide

Essaie :

Code:

---

Sheets(Gx_Visualisation).Cells(Gx_ligne_Selectionner, 7)=Format(TBox_DateRecep1.Value, "[$-40C]dd/mmmm/yyyy;@")

---

En fait, lorsque tu mets les Mois en abrégé (de type MM versus MMMM, Excel a tendance à appliquer le format anglo-saxon...)

Bonjour,

je ne voudrais pas me faire taper dessus...

Excel réagit quelquefois de façon dictaroriale et il faut alors se rebeller ...

Ce qui est dit en ce qui concerne ses manies de transformer dd/mm/yyyy en mm/dd/yyyy est vrai.

Passons maintenant le mm en majuscules (et lui seul...tout le reste étant laissé en minuscules) ==>> exemple d'envoi dans une cellune de ce qui a été frappé dans une textbox :

Code:

---

format(Userform.Textbox1, "dd/MM/yyyy")

---

essayons.....

bonjour

as tu essayé

Code:

---

Sheets(Gx_Visualisation).Cells(Gx_ligne_Selectionner, 7) = CDate(TBox_DateRecep1.Value)

---

cordialement

Merci de votre aide, en mettant cdate, j'ai le bon format.