Transformation intempestive de jj/mm en mm/jj

[JOjo]

Bonjour le forum,


Je saisi une date dans un formulaire comme par exmple le 01/02/03
(1 février 2003),
cette date m'est restituée 02/01/03 : 2 janvier 2003.

La saisie est faite dans un textbox après reformatage !
strDateValidité = Format(UserForm1.DATE.Value, "dd/mm/yyyy")
Range(ActiveWorkbook.Names("DateValidité").Value).Value = strDateValidité

et la cellule qui correpsond au nom est formaté en jj/mm/aaa... mais cela n'y fait rien !

Mais si je saisi une date moisn ambiguë, 20/01/03, ca marche !!!

Help please. Merci d'avance.

 

[JOjo]

Bonjour,

J'ai trouvé la parade :
Il suffit de repasser la donnée en mode date numérique :



strDateValidité = Format(UserForm_0_MenuG.DATE.Value, "dd/mm/yyyy")
Range(ActiveWorkbook.Names("DateValidité").Value).Value = DateValue(strDateValidité)