Discussion :

[anisr]

Bonjour à Tous

Avec ce code

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
Sub Transfert()
    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       
            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

j'arrive à alimenter un fichier de synthèse situé dans un répertoir à partir de plusieurs fichiers situé dans un répertoir de départ.

Mon problème est devenu plus complexe, comment faire pour alimenter plusieurs fichiers à situer dans

C:\final

A partir de fichiers situés dans

C:\initial

sachant que chaque fichier de c:\initial ne doit alimenter q'un seul fichier de c:\final ayant le même nom.