Discussion :

[qwerty_213]

Bonjour,

je souhaiterais créer un code VBA afin de concaténer 3 fichiers *.txt dans un fichier final "résultats.txt",

l'ordre de concaténation est indiqué dans une colonne excel à part (suite_conca.xlsx => A1:A10)

Je n'arrive pas à trouver une syntaxe qui marche ! j'ai tenté ci-dessous sans sucées

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
21
22
23
24
25
26
27
28
29
30
31
32
Sub conca_fichier_txt()
 
Dim Chemin As String
Dim DerniereLigne As Long           'Index de la dernière ligne
Dim Ligne As Long
 
Chemin = "C:\fichiers\"
DerniereLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
 
'lire l'ordre de concaténation des fichiers
For suite = 1 To 10 
 
id_fichier = 'identifier le fichier choisi
 
Next suite
 
'Ecrit dans le fichier txt
For i = 1 To 3
 
Ligne = 1
Do While Ligne <= DerniereLigne
    Open Chemin & "Résultat.txt" For Append As #Ligne
    Print #Ligne, Tableau(Ligne) & vbCrLf
    Close
    Ligne = Ligne + 1
Loop
 
Next i
 
MsgBox ("concaténation terminée")
 
End Sub

merci d'avance pour votre aide

[Jean-Philippe André]

Bonjour,

ton approche avec Open est bonne, les solutions deja disponibles ici :
http://www.developpez.net/forums/d14...fichier-texte/

[qwerty_213]

merci Jean-Philippe André, cela est effectivement une pièce du puzzle

[Marc-L]

Bonjour !

je souhaiterais créer un code VBA afin de concaténer 3 fichiers *.txt dans un fichier final "résultats.txt"

Peut déjà être effectué en une ligne de commande DOS (ou via l'Invite de commandes)
et donc aussi en une seule ligne de code en VBA !

Quant à l'ordre, tout dépend s'il est fixe ou pas.
S'il peut changer j'utiliserais plutôt une ligne de feuille de calculs au lieu d'une colonne
pour éviter une transposition de la colonne pour la commande DOS …

Et puis sans passer par le DOS cela peut dépendre s'il y a un en-tête d'encodage dans les fichiers :
dans ce cas j'utiliserais plutôt ADODB.Stream comme dans cette discussion …

_________________________________________________________________________________________________________
Je suis Paris, Berlin, Nice, Bruxelles, Charlie, …

[qwerty_213]

Peut déjà être effectué en une ligne de commande DOS

j'ai déja réalisé cette approche avec :

Code :

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

 type fichier1.txt fichier2.txt fichier3.txt .... fichier1.txt >résultats.txt

pour l'ordre, inconvénient c'est que la ligne (ou colonne) excel ne continent pas l’extension .txt, il faudra l'ajouter à chaque lecture de cellule afin que la commande DOS la reconnaisse


pour le lien donné, c'est trop compliqué, on devrait pouvoir trouer une solution sans la commande ADODB.Stream

[Marc-L]

extension .txt, il faudra l'ajouter à chaque lecture de cellule afin que la commande DOS la reconnaisse

Ce n'est pas un souci avec la fonction VBA Join ou via une formule de calculs …

S'il y a une séquence particulière en tête de fichier pour l'identification de l'encodage des fichiers
alors je n'ai rien d'autre en magasin à part ADODB.Stream (sauf à s'amuser en mode binaire) pourtant assez simple,
voir sa documentation sur MSDN et les autres exemples de ce forum.
Et je l'utilise même s'il n'y a pas de souci d'encodage pour des fichiers texte
comportant des dizaines de milliers de lignes car c'est la méthode la plus rapide …