[VBA-E]Lecture ecriture fichier texte

Version imprimable

12/04/2007, 19h08
anisr

[VBA-E]Lecture ecriture fichier texte

Bonjour,

J'ai un fichier maitre dans un réprtoir

Code:

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:

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.

En reprenant ce topic 311318 :

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
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

12/04/2007, 20h49
anisr

Merci beaucoup. j'ai bien trouvé ma consolidation une seule fausse note, il y a une ligne vide entre chaque fichier chargé:( que faire?

A+
12/04/2007, 20h53
SfJ5Rpw8

Citation:

Envoyé par anisr

Merci beaucoup. j'ai bien trouvé ma consolidation une seule fausse note, il y a une ligne vide entre chaque fichier chargé:( que faire?

A+

et bien il ne faut pas mettre ce retour chariot en trop :roll: ...quel code à tu utilisé..?
12/04/2007, 21h07
anisr

Le code d'aujourd'hui.
12/04/2007, 23h04
dadavyvy

Desole, je ne savais pas que tes fichiers avaient un ligne vide à la fin. Il suffit d'enlever le f1.WriteLine
13/04/2007, 05h46
anisr

Merci beaucoup.