Date pendant l'export Txt->Excel

Bonjour,

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

Citation:

---

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:

---

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 :

Citation:

---

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

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

Code:

---

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+

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