Format date - US<->EUR

[tartare2009]

Bonjour à tous,

désolé de devoir poser cette question, mais malgré mes recherches sur le forum, je n'ai pas trouvé de réponse:

je cherche à insérer grace à un inputbox un date au format européen jj/mm/yyyy avec la ligne de commande suivante:

code = InputBox("Insérer date premier contact")
ActiveCell.Formula = code

si j'écris 01/10/2010, sur la cellule je vois écrit 10/01/2010. Si je rajoute la ligne suivante:

Selection.NumberFormat = "mm/dd/yy;@"

effectivement le format est respecté et donc on voit écrit 01/10/2010, mais si je copie de la cellule, le contenu, une fois collé devient 10/10/2010.

Comment faire pour que la cellule ait le bon contenu???....Merci

 

[Dull]

Re : Format date - US<->EUR

Salut Tartare2009, le Forrum

A tester car pas essayé

code = InputBox("Insérer date premier contact")
ActiveCell.Formula = CDate(code)

Testé et apparemment OK à condition d'enlever le format US de ta cellule

Bonne Journée

 

[tartare2009]

Re : Format date - US<->EUR

Parfait. C'est le résultat que je souhaitais. Merci.