Discussion :

[Myogtha]

Bonjour,

Je cherche à exporter un fichier *.txt vers excel
Le fichier txt resemble a ça :

08/10/2007 13:59:20;100,80000305175781;1;
08/10/2007 13:59:30;100,09999847412109;1;
08/10/2007 13:59:40;100,19999694824219;1;

lorsque je fais l'export, il me change la date 08/10/2007 en 10/08/2007

voilà le code de ma marcro à la base :

Code :

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

1
2
3
4
5
6
7
8
Sub test()
nometchemin1 = "D:\Donnees Supervision\Export\TUBE1.txt"
    Workbooks.OpenText Filename:=nometchemin1, Origin _
        :=xlMSDOS, StartRow:=2, DataType:=xlDelimited, TextQualifier:=xlNone, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
        Array(3, 1), Array(4, 1)), DecimalSeparator:=",", TrailingMinusNumbers:=True
End Sub

la macro donne ceci :

10/08/2007 13:59:20 | 100,80000305175781 | 1

Maintenant j'ai vu sur le site une histoire avec le DataType:=xlFixedWidth mais lorsque je fais ça, ma mise en page par en live total.

Vous avez une idée ?

Merci d'avance

Jim

[ouskel'n'or]

Ouf ! Tu peux tester ça... Chez moi, ce coup-ci, ça fonctionne.

Code :

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

1
2
3
4
    Workbooks.OpenText Filename:="D:\Donnees Supervision\Export\TUBE1.txt", Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
        ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, _
        Space:=False, Other:=False, FieldInfo:=Array(1, 2)

où 1 (en rouge) est le N° de colonne contenant les dates et 2 le format "J/M/A"
Tu dis
A+

[Myogtha]

je vais testé mais je viens a l'instant de trouver une solution, rajouté local:=true à la fin !!! et ça fonctionne je regarde ta soluce ausssi...