Discussion :

[melouille56]

Bonjour,

J'ai un problème dans la récupération des valeurs d'un fichier .txt ouvert sous excel.
Je formate dans ma feuille de classeur mes colonnes en format date d/m/yyyy par macro avant qu'il n'y ait quelconque donnée, puis je vais récupérer cellule par cellule les valeurs provenant de mon fichier .txt.
Malgré tout, j'obtiens "26/09/2007 11:45:00" alors que j'avais formaté ma cellule au préalable, de manière à obtenir "26/09/2007".

Une fois la macro finie, si j'entre dans la cellule par un F2 et que je fais entrée, le contenu se tranforme bien en "26/09/2007". Mais j'ai 5 colonnes et une centaine de lignes; je ne peux pas faire ca pour toutes.

Quelqu'un aurait-il une idée ?

Merci 1000 fois d'avance

[Drost]

Hello,

As tu essayé en formattant tes cellules apres l'ajout des données?

[ouskel'n'or]

Comment ouvres-tu ton fichier txt ? Ce que tu décrit ressemble à une date insérée en format texte. Comme le dit Drost, formate ta colonne, mais je ne suis certain que ça fonctionne.
Tu dis
A+

[melouille56]

Ouiiiii

[melouille56]

Beh j'ouvre mon fichier .txt par excel, avec l'assistant, en laissant toutes les colonnes en format général.

Donc j'ai essayé de changer le format avant d'importer, après avoir importé, en important cells.value, en important cells, et en important cells.text.

Et rien ne marche !

[Drost]

Est que la date qui apparait dans ton fichier texte est aussi avec l'heure?

Si c'est le cas, c'est un peu du bricolage mais peut être peut tu découper ta variable pour récupérer uniquement la date ( les 8 premiers caracteres jj/mm/aa).

En esperant que ca pourra "un peu" t'aider...

[ouskel'n'or]

Je crois me souvenir que, lors de l'ouverture d'un txt, tu peux définir le type de données selon la colonne mais c'est assez galère.
D'où ma question : Quel est le séparateur de données dans ton txt ? C'est important quant à la solution que je te propose sous réserve, solution consistant à renommer ton txt en csv avant de l'ouvrir. Si le séparateur est ";" le csv devrait te donner le bon format (je n'ai pas le temps de tester, désolé)
Bonne chance

[melouille56]

Le problème est que le fichier que l'on m'envoie est déjà un fichier csv, mais tellement bizarre que lorsqu'on l'ouvre, il y a 5 colonnes, et dans chacune des cellules de ces colonnes sont regroupées 6 colonnes, par des ;
Donc je dois le transformer avant en un fichier txt, de manière à ce que quand je l'ouvre avec l'assistant d'excel, il me demande quel est le séparateur (qui, en l'occurence, est le point virgule).

Et si je retransforme mon fichier .txt en un fichier .csv, bein j'obtiens la même chose que celui qui m'a été envoyé. Le seul fichier donc avec lequel je puisse travailler est le txt (ou alors ca va être très compliquer de bien retransformer les colonnes avec le csv).

Donc pas de colution. Surtout qu'en plus, depuis mon dernier message, quand je vais chercher les données il me met maintenant les dates à l'envers. Dans le fichier txt j'ai bien 01/10/2007 (format date "dd/mm/yyyy") et dans l'excel final j'ai 10/01/2007 (format date "dd/mm/yyyy").

Je n'y comprends plus rien.

Alors que mon code est tout simplement:

Code :

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

1
2
3
4
5
6
7
While Not IsEmpty(Workbooks(ListBox1.Text).Worksheets(1).Cells(i, 1))
For j = 1 To 38
classeur.Worksheets("Bewertung FX").Cells(i, j) = _
Trim(Workbooks(ListBox1.Text).Worksheets(1).Cells(i, j))
Next j
i = i + 1
Wend

A l'aide !!!

[ouskel'n'or]

Essaie ce code sur le txt.

Code :

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

1
2
3
4
    Workbooks.OpenText Filename:="D:\Chemin\Fichier.txt", Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlTextQualifierNone, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(1, xlDMYFormat)

où 1 (en rouge) est le N° de colonne contenant les dates.
Tu dis