copier plusieurs fichiers texte dans un seul fichier texte

Version imprimable

17/08/2008, 10h59
ERICKO

copier plusieurs fichiers texte dans un seul fichier texte

Salut
j ai dans ma macro 5 fichiers text ( ficchier1.txt, fichier2.txt...), j aimerais copier tous ces fichiers dans un seul fichier. j ai essayer de le faire sous une fenetre excel mais sa na pas marcher parceque les fichiers sont trop long.
quelle methode dois je utiliser pour ecrire cette macro sous vba?
merci
A plus
17/08/2008, 11h33
ucfoutu

Bonjour,

Si la somme totale des tailles de tes fichiers n'excède pas 2 GO (ce qui est déjà assez énorme) :

Va lire dans cette discussion :

http://www.developpez.net/forums/d59...txt-vba-excel/

- attarde-toi à la méthode décrite en message 5 pour lire dans une variable la totalité d'un fichier
- crée autant de variables aunsi alimentées que de fichiers à "concaténer".

- ouvre ton fichier de destination et écris-y (par Open for Output) le contenu de toutes ces variables.
17/08/2008, 11h41
JackOuYA

Bonjour,

Citation:

Envoyé par ERICKO

j ai dans ma macro 5 fichiers text ( ficchier1.txt, fichier2.txt...),

comment cela dans ta macro ?

pour ne pas multiplier inutilement les variables voir aussi le mode append de l'instruction Open ;)
17/08/2008, 12h10
ouskel'n'or
Tu as une commande simple, utilisant le dos, pour fusionner autant de fichiers texte que tu le souhaites :
Code:

1 2 3 Sub test() Shell ("cmd /c copy d:\txt\fichier1.txt+d:\txt\fichier3.txt d:\txt\fichier4.txt") End Sub
Où "d:\txt\fichier4.txt" est le nouveau fichier contenant les deux fichiers précédents.
Tu peux remplacer le nom de tes fichiers par des variables.

Code:

Shell ("cmd /c copy " & var1 & "+" & var2 & " " & var3)

Bonne journée

NB - J'ignore si cette syntaxe fonctionne avec Vista (?)

bonsoir

une autre possibilité qui boucle sur tous les fichiers txt d'un répertoire et regroupe leur contenu dans un nouveau fichier texte.

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
33
34
35
36
37
38
39
40
41
42
43
44
'Nécessite d'activer la référence
'"Microsoft ActiveX Data Objects 2.x Library"
'
Dim Rc As ADODB.Recordset
Dim cn As String, Chemin As String, Fichier As String, x As String
Dim i As Long
 
'répertoire contenant les fichiers texte
Chemin = "C:\dossier"
 
'Ouvre un nouveau fichier Texte pour compiler les données
'! attention à ne pas le placer dans le meme repertoire que les autres fichiers...
Open "C:\Compilation.txt" For Output As #1
 
    'boucle sur l'ensemble des fichiers txt
    Fichier = Dir(Chemin & "\*.txt")
    Do While Fichier <> ""
 
        '----- requète pour récupérer le contenu du fichier txt
        cn = "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
        "Dbq=" & Chemin & ";Extensions=asc,csv,tab,txt"
 
        Set Rc = New ADODB.Recordset
        Rc.Open Source:="SELECT * FROM [" & Fichier & "]", ActiveConnection:=cn
 
        '--- recuperation de la première ligne
        For i = 0 To Rc.Fields.Count - 1
        x = x & Rc.Fields(i).Name & ";"
        Next i
        Print #1, Left(x, Len(x) - 1) & vbCrLf;
        '---
 
        Print #1, Rc.GetString(adClipString, -1, ";", vbCrLf, "")
        Rc.Close
        x = ""
        '-------------------------
 
    Fichier = Dir
    Loop
 
'Fermeture du fichier Compilation
Close #1
 
MsgBox "Opération terminée"

bonne soirée
michel