S
STEPH
Guest
Bonjour à tous,
A plusieurs reprises, j'ai importé un fichier txt nommé "STEPH.TXT"
via une macro ci-jointe :
Workbooks.OpenText Filename:="C:\WINDOWS\Bureau\EXPORT ADONIX\VAL.TXT", Origin:=xlWindows, StartRow:=1,DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1))
Range("A2
2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Campagne 2003-04.xls").Activate
Sheets("EXPORT SOLEIL").Select
Range("A7").Select
ActiveSheet.Paste
etc.
La 1re colonne de ce fichier txt correspond à une date sous la forme jj/mm/aa.
Lorsque j'importe en manuel ce fichier txt = aucun problème..
Mais lorsque je me sers de la macro ci-dessus = gros problème !!
La date se met sous la forme MM/JJ/AA !!
Mais pourquoi ??
Si vous pouvez faire qque chose pour moi, ce serait très bien vu que je suis complètement coincé car toute la suite de mon programme dépend de cet import
Le plus étonnant c'est que cette macro fonctionne bien sur un autre appareil que le mien MAIS pas sur le mien
Steph
A plusieurs reprises, j'ai importé un fichier txt nommé "STEPH.TXT"
via une macro ci-jointe :
Workbooks.OpenText Filename:="C:\WINDOWS\Bureau\EXPORT ADONIX\VAL.TXT", Origin:=xlWindows, StartRow:=1,DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False,Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1))
Range("A2
2").SelectRange(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Campagne 2003-04.xls").Activate
Sheets("EXPORT SOLEIL").Select
Range("A7").Select
ActiveSheet.Paste
etc.
La 1re colonne de ce fichier txt correspond à une date sous la forme jj/mm/aa.
Lorsque j'importe en manuel ce fichier txt = aucun problème..
Mais lorsque je me sers de la macro ci-dessus = gros problème !!
La date se met sous la forme MM/JJ/AA !!
Mais pourquoi ??
Si vous pouvez faire qque chose pour moi, ce serait très bien vu que je suis complètement coincé car toute la suite de mon programme dépend de cet import
Le plus étonnant c'est que cette macro fonctionne bien sur un autre appareil que le mien MAIS pas sur le mien
Steph
