Inversion de date !

Bonjour,

Je saisis la date dans InputBox
par msgbox cela s'affiche bien
mais inverse l'écriture dans la cellule

- saisie : 11/06/2009
- msgbox : 11/06/2009
- cellule : 06/11/2009

je ne comprends pas pourquoi

Bonjour,

une idée comme ça, est-ce que le format de cellule est ok?
De ce que je vois, tu veux une format de date anglaise tandis que la cellule d'excel doit être française...

Regarde dans le format de cellule, dans date, il a plusieurs possibilités de format de date.

C'est "peut-être" aussi simple que ça!

Bonjour,

En cas de problème vous pouvez aussi essayer :

Code:

---

1 2	dat = InputBox("Entrez la date") Cells(1, 1) = DateSerial(Right(dat, 4), Mid(dat, 4, 2), Left(dat, 2))

---

Non, rien n'y fait

Serai-t'il possible de définir le format (texte) de la cellule
de destination avant d'écrire dans celle-ci ?

A vous lire

En reprenant le code de jacques jean

Code:

---

1 2 3

dat = InputBox("Entrez la date") Cells(1, 1) = DateSerial(Right(dat, 4), Mid(dat, 4, 2), Left(dat, 2)) Cells(1, 1).NumberFormatLocal = "jj/mm/aaaa"

---

Chez moi ca fonctionne au poile :ccool:

Incroyable !!!

Code:

---

1 2	Cells(1, 1).NumberFormatLocal = "jj/mm/aaaa"

---

Ecrit 05/31/2009

Code:

---

1 2	Cells(1, 1).NumberFormatLocal = "mm/jj/aaaa"

---

Ecrit 31/05/2009

Va comprendre Charles !

Et pourquoi ?