Macro pour exporter plusieurs txt en séparation tabulation

**flatlink** · 02/02/2018, 14h42

Bonjour

Gros noob dans l'utilisation de VBA, je me dois de l'utiliser dans un projet de graphique à la volée sous illustrator, qui demande de récupérer les données en format TXT et en séparation tabulation. Il y a 5000 txt à exporter. Ligne par ligne donc.
Mon code de base, me permets d'exporter mes données, mais sans aucune connotation de séparation. Du coup, cela ne fonctionne pas avec mon import dans Illustrator

Voici le code que j'ai dégoté et que j'utilise :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub nouveautxtbis()
MkDir ("c:\RAEXPORTGO6\")
For i = 1 To 5032
 
Cells(i, 8).Value = "c:\RAEXPORTGO6\" & Cells(i, 7) & ".txt"
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Cells(i, 8).Value, True)
 
a.WriteLine (Cells(i, 1))
a.WriteLine (Cells(i, 2))
a.WriteLine (Cells(i, 3))
a.WriteLine (Cells(i, 4))
a.WriteLine (Cells(i, 5))
a.WriteLine (Cells(i, 6))
a.Close
 
Next
 
End Sub

Dans l'idéal, sur mon txt final, il devrait se présenter ainsi :
CA1[Tab]X1
CA2[Tab]X2
CA3[Tab]X3

En sachant que mes lignes, je les ai présentés ainsi :
CALAME 0 CACOUR 0 CAFILS 0

Pourriez m'aider à comprendre ?

Merci à vous

**Menhir** · 02/02/2018, 16h09

Et si, avant d'envisager les solutions compliquées, on testait une solution simple ?

Comme par exemple enregistrer avec un SaveAs FileFormat:=xlTextWindows, le format xlTextWindows ayant la tabulation comme séparateur.

**flatlink** · 02/02/2018, 16h14

Merci de ton retour, mais j'ai deja une question :

omme par exemple ouvrir ton fichier avec un simple OpenText pour en faire un Workbook (attention, ça ne signifie pas qu'il devient un fichier Excel sur ton disque, c'est juste une opération en mémoire)

Pour toi Opentext c'est bloc-notes ou autre ? un Workbook ?

**Menhir** · 02/02/2018, 16h24

Envoyé par flatlink

Pour toi Opentext c'est bloc-notes ou autre ? un Workbook ?

Le OpenText ouvre un fichier texte pour le transformer en Workbook, c'est-à-dire en fichier Excel (mais uniquement en mémoire tant qu'il n'y a pas eu de sauvegarde).

Mais j'avais mal lu ton code.
Je n'avais pas vu que le classeur contenant les données sources était déjà ouvert. Donc oublie le OpenText.

Il faudrait que pour chaque ligne, tu copies tes données dans un second classeur (une coquille vide qui ne sert que d'intermédiaire) que tu enregistres avec le Save.As que j'ai cité.

**Menhir** · 02/02/2018, 16h43

Ca donnerait quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub nouveautxtbis()
    Dim i As Long
    Dim WB_Dest As Workbook
    Dim WS_Source As Worksheet, WS_Dest As Worksheet
 
    Set WS_Source = ActiveSheet
    Set WB_Dest = Workbooks.Add
    Set WS_Dest = WB_Dest.Sheets(1)
 
    For i = 1 To Cells(Rows.Count, 7).End(xlUp).Row
        WS_Source.Range(Cells(i, 1), Cells(i, 6)).Copy WS_Dest.Range("A1")
        WB_Dest.SaveAs FileName:="c:\RAEXPORTGO6\" & WS_Source.Cells(i, 7) & ".txt" , FileFormat:=xlTextWindows
    Next i
 
    WB_Dest.Close SaveChanges:=False
End Sub

C'est du code tapé à l'arrache directement sur le forum et non testé, il se peut donc qu'il y ait du débugage à faire mais tu as au moins le principe du truc.