Syntaxe simple

Bonjour,

J'ai des fichiers textes en colonnes avec des données à l'intérieur, les données sont variables mais les colonnes sont identiques.

J'ai 88 de ces fichiers.

Ils sont bien rangés dans mon ordinateur avec une arborescence qui donne:

V:\mes_documents\These\Projet_gocad\Data_out\Sx\Sx_slopes_groupy.txt

avec x qui va de 1 à 11 et y de 1 à 8.

Les fichiers sont organisées en colonnes séparées par des tabulations et des espaces et sont de ce type :

J'aurais besoin d'ouvrir tout ces fichiers textes d'un coup sous excel, et je n'arrive pas a formuler la boucle qui devrait ressembler à :

for x = 1 to 11

for y = 1 to 8

Open V:\mes_documents\These\Projet_gocad\Data_out\Sx\Sx_slopes_groupy.txt avec séparateur espace et tab..

Je n'ai quasiment aucunes connaissance en syntaxe vba...

Une fois que ça sera ouvert, je n'aurais plus que quelques copier coller à effectuer.

Merci beaucoup pour votre aide précieuse.

J'ai finalement trouvé la réponse par moi même, j'ai fait surement compliqué mais j'ai fait :

For x = 1 To 11

For y = 1 To 8

Workbooks.OpenText Filename:= _

"V:\mes_documents\These\Projet_gocad\Data_out\S" & x & "\S" & x & "_slopes_group" & y & ".txt", Origin _

:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _

xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _

Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _

Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers _

:=True

Hello,

Tu pourrais automatiser tes copiers collers parce qu'en faire une dizaine manuellement doit vite devenir ennuyant

J'ai fait ça :

Sub Macro1()

For x = 3 To 4

For y = 1 To 8

Workbooks.OpenText Filename:= _

"V:\mes_documents\These\Projet_gocad\Data_out\S" & x & "\S" & x & "_slopes_group" & y & ".txt", Origin _

:=xlMSDOS, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _

xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _

Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _

Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers _

:=True

Windows("Classeur2").Activate

Range("G1:AT335").Select

Selection.Copy

Windows("S" & x & "_slopes_group" & y & ".txt").Activate

Range("G1").Select

ActiveSheet.Paste

Next

Next

End Sub

Eh bien si ça marche, c'est magnifique !