concaténer des fichiers .txt
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:
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
