[VB]Format de date avec excell

Salut,
Jessaie vainement d'envoyer des dates dans un tableau excell... Les dates dont le jours est plus grand que 12 focntionne sans problème, par contre, toutes les dates dont le jour est compris entre 1 et 12 bascule en format américain... Comment ça se fait??? Que puis-je y faire???

Peux tu nous montrer ton code ?

A tout'

Un exemple :

Code:

---

1 2	Cells(1, 1).Value = Format(CDate(MaDate), "dd/mm/yyyy") '=> ce qui revient à Cells(1, 1).Value = Format(CDate(38925), "dd/mm/yyyy")

---

Voici le morceau qui envoie les dates... Je présume qu'il est inutile que j'ajoute la fonction qui va lire dans mon fichier et qui split la ligne... Quand j'utilise une msgbox pour afficher la date avant de l'envoyer, elle est au bon format... Ensuite, après injection dans excel, elle passe au format anglais...

Code:

---

1 2 3 4 5 6 7

For cmpt = LBound(tabSplit) To UBound(tabSplit) If tabSplit(cmpt) Like "??/??/*" Then tabSplit(cmpt) = Format(tabSplit(cmpt), "dd/mm/yyyy") End If objexcel.Range(Chr(65 + cmpt) & dernierligne).formula = tabSplit(cmpt) Next cmpt dernierligne = dernierligne + 1

---

Regarde ma correction, suffit que tu dises cdate(....

A+

Le CDate ne change rien... Dans le code vb, la date est bonne... Avec msgbox, je peux l'afficher... C'est quand elle est injectée dans excel que ce "merveilleux" soft prend la liberté de modifier le format de certaine date... Pourquoi echange-t-il les jours et les mois lorsque je jour est inférieur ou égal à 12???

Bon, jai pas trouvé de solution censée mais avec certains éditeurs de soft, faut parfois éviter de se poser trop de question... En utilisant le format de date dd/mmm/aaaa, on obtient les 3 premières lettres du nom du mois et là, l'envois se fait correctement...
Merci pour le coup de main...

Ok, j'ai vu ton message mais, à toutes fins utiles, je te donne tout ce que j'ai

Code:

---

1 2 3 4 5 6 7

MaDate = Format(CDate("12/5/2005"), "mm yyyy") Année = Format(CDate(MaDate), "yyyy") Mois = Format(CDate(MaDate), "mm") Jour = Format(CDate(MaDate), "dd") MaDate = DateSerial(Annee, Mois, Jour) MsgBox Format(DateSerial(Annee, Mois, Jour), "dd/mm/yyyy") MsgBox Format(MaDate, "dd/mm/yyyy")

---

Juste pour dire que j'ai rencontré le problème :wink:

A+

Merci... :wink: