[VBA-E]Lecture ecriture fichier texte

**anisr** · 12/04/2007, 19h08

Bonjour,

J'ai un fichier maitre dans un réprtoir

Code :

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

c:\final\consolidation.txt

Ce fichier devrait être alimenté à partir de fichier d'un répertoir qui contient plusieurs fichiers ayant la même structure

Code :

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

c:\initial

Sachant que la première ligne de mes fichiers contient les entêtes donc a ingorer.

Comment faire pour que tous les fichiers viennent alimenter mon fichier consolidation?

Merci de votre aide.

**dadavyvy** · 12/04/2007, 19h31

En reprenant ce topic 311318 :

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
Sub OpenTextFileTest()
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fs, f1, f2, f, fd
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f1 = fs.OpenTextFile("C:\final\consolidation.txt", ForWriting, , TristateUseDefault)
 
    specdossier = "c:\initial"
    Set fd = fs.GetFolder(specdossier)
 
    n = 1
    For Each f In fd.Files
        Set f2 = fs.OpenTextFile(specdossier & Application.PathSeparator & f.Name, ForReading, , TristateUseDefault)
        ' Ecrase tout dans le fichier consolidation.txt (ForWriting) donc garde la 1ere ligne du 1er fichier txt trouvé
        If n = 1 Then
            f1.Write f2.ReadAll
        Else
            f1.WriteLine
            f2.SkipLine ' Ne prend pas en compte la 1ere ligne
            f1.Write f2.ReadAll
        End If
        f2.Close
        n = n + 1
    Next f
    f1.Close
    Set f = Nothing
    Set fd = Nothing
    Set f2 = Nothing
    Set f1 = Nothing
    Set fs = Nothing
End Sub

Et avec ca, j'espere que tu pourras clore l'autre topic, toi-meme