importer ficher texte

[gege21]

bonjours

je doit importe des ficher texte dons le nom change toujours
comment faire ??

 

[gege21]

Re : importer ficher texte

bonjours

pour ton 3er code j'ai une erreur d'exécution 1004 sur cette ligne

Workbooks.OpenText Filename:=.Cells(i, 1).Text, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 4), Array(2, 2), _
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))



et pour le 2er code "Sub import_der()"

il ne manque que la mise en forme de donnee (date,heurs....)
et la ce serais un code parfait pour moi
a bientôt

 

[Staple1600]

Re : importer ficher texte

Bonjour

Comme dit auparavant

J'ai testé (et cela fonctionne)

(j'ai utilisé ces données

09/01/10;20:00;-2,4;80;-5,4;0,0;5,4;358;0,0;0,0;1007,6;25,4;22,3;29;0,0;-2,4;-2,4
09/01/10;20:30;-2,4;80;-5,4;2,5;2,5;353;0,0;0,0;1007,6;25,4;22,4;30;2,5;-2,4;-2,4
09/01/10;21:30;-2,2;80;-5,2;0,0;2,9;355;0,0;0,0;1008,0;25,4;22,5;30;0,0;-2,2;-2,2
09/01/10;22:00;-2,2;81;-5,0;0,0;4,0;353;0,0;0,0;1008,2;25,4;22,5;29;0,0;-2,2;-2,2
09/01/10;22:30;-2,4;82;-3,7;0,0;0,0;0;0,0;0,0;1008,2;25,4;22,5;29;0,0;-2,4;-2,4
09/01/10;23:00;-2,6;84;-5,0;2,5;4,0;358;0,0;0,0;1008,6;25,4;22,3;29;2,5;-2,6;-2,6
09/01/10;23:30;-2,8;86;-4,8;5,8;6,8;358;0,0;0,0;1008,8;25,4;22,0;29;5,8;-2,8;-2,8
10/01/10;00:00;-2,8;86;-4,8;0,0;7,2;354;0,0;0,0;1008,9;25,4;21,6;29;0,0;-2,8;-2,8
10/01/10;00:30;-2,8;87;-4,7;2,2;7,6;351;0,0;0,0;1009,2;25,4;21,3;29;2,2;-2,8;-2,8
10/01/10;01:00;-2,8;88;-3,6;0,0;0,0;0;0,0;0,0;1009,3;25,4;21,2;29;0,0;-2,8;-2,8
10/01/10;01:30;-2,8;88;-3,6;1,8;1,8;1;0,0;0,0;1009,1;25,4;21,0;29;1,8;-2,8;-2,8
10/01/10;02:00;-2,7;88;-3,5;2,5;2,5;1;0,0;0,0;1009,5;25,4;20,9;29;2,5;-2,7;-2,7
10/01/10;02:30;-2,7;88;-3,5;1,4;1,4;337;0,0;0,0;1009,5;25,4;20,8;29;1,4;-2,7;-2,7

j'ai copié collé dans le bloc-notes , enregistrer en *.txt

Puis j'ai testé la macro Sub importAvec_AssistantTEXTpourFormat

et cela fonctionne chez moi (test avec Excel 2000 )

 

[gege21]

Re : importer ficher texte

bonjours jm

je ne comprend pas chez moi pas marche pas (sous excel 2007)
j'ai fait un nouveau post avec un code qui marche il manque juste la mise en forme

merci et a bientôt