Discussion :

[ustilago]

Hello,

Je m'arrache les cheveux ... je récupère des infos dans un fichier texte que je recopie ensuite dans une feuille de calcul EXCEL.

Au début, j'ai une fonction qui me transforme une date 01/01/07 en "01 jan 2007", avec comme format défini à l'avance dans ma feuille excel "jj mmm aa" pour que ça s'affiche correctement : ça marchait pour décembre 2006, janvier 2007 mais pas pour février !!!! Là ça m'affiche royalement dans ma cellule "01 févr 2006" mais sans prendre ça comme une date, et si je positionne mon curseur sur la cellule et que je fait entrée, là il me le reconnaît comme une date

Je me dit tant pis, je passe la valeur dans ma cellule avec le format :

Code :

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

Cells(ligne, ColDate).Value = Format(recodeDate2(TableauLigne(4)), "dd/mm/yyyy")

Et là, merveille de technologie, recodeDate2 = 01/02/2007 et la valeur affichée dans ma cellule est : 02/01/2007

Donc franchement je sèche, si quelqu'un à une piste pour résoudre ces problèmes de date, je suis preneur.

Usti

[cafeine]

Hello,

Format() renvoie un texte, ça n'invite pas Excel à considérer ça comme une date.

Regarde du côté de .NumberFormat (qui est une méthode de Range)

[ouskel'n'or]

Je ne me souviens plus qui m'a appris ça

Code :

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

Cells(ligne, ColDate).Value = Format(cdbl(recodeDate2(TableauLigne(4))), "dd/mm/yyyy")

... mais si les éléments récupérés "ressemblent" à des dates, ça fonctionne très bien

[ustilago]

Je ne me souviens plus qui m'a appris ça

Code :

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

Cells(ligne, ColDate).Value = Format(cdbl(recodeDate2(TableauLigne(4))), "dd/mm/yyyy")

... mais si les éléments récupérés "ressemblent" à des dates, ça fonctionne très bien

C'était presque ça ... et effectivement je n'avait pas réussi à trouver comment spécifier le format de la valeur que je passait :

Code :

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

Cells(ligne, ColDate).Value = Format(CDate(recodeDate2(TableauLigne(4))), "mm/dd/yyyy")

C'est tout à fait logique : mon environnement XP est paramétré en "français", donc en date jj/mm/aa, les cellules de ma feuille excel ont comme format "jj mmm aa", la valeur que je veux mettre dans ma cellule est "01/02/07", et il faut préciser comme format ... "mm/dd/yyyy"

Enfin, comme ça ça marche, merci à vous

Sinon cafeine, ta solution ne m'a pas avancé, c'est déjà le format qu'il y avait dans ma cellule , mais merci quand même d'avoir essayé de m'aider

Usti