Concaténer fichier texte

Fermé
qwerty_213 Messages postés 26 Date d'inscription mardi 12 août 2014 Statut Membre Dernière intervention 28 mai 2023 - Modifié par qwerty_213 le 22/12/2016 à 10:59
 qwerty_213 - 22 déc. 2016 à 17:50
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

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


A voir également:

2 réponses

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
22 déc. 2016 à 11:30
Bonjour,

j'ai tenté ci-dessous sans sucées
Attention, ca devient tendancieux, succès serait mieux

Revenons au code.
en VBA:
Pour "concatener" des fichiers, il faut deja commencer par les ouvrir, les lire le fichier et ecrire le fichier destination soit en sequentiel, soit en append

Ou avec une commande Shell lancee a partir du VBA
0
merci f89009, je vais essayer
0