Discussion :

[Empty_body]

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???

[ouskel'n'or]

Peux tu nous montrer ton code ?

A tout'

Un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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")

[Empty_body]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

A+

[Empty_body]

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???

[Empty_body]

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...

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[Empty_body]

Merci...