Discussion :

[anisr]

Bonjour,

Je dispose d'un répertoir A qui contient des fichiers txt et un autre repértoir qui contient le même nombre de fichiers avec les mêmes noms (les données sont différents).

Je veux que tous les fichiers de B viennent en ajout de ceux de A (un à un).

Expemple: B\Fichiers1.txt s'ajoute à A\Fichiers1.txt sans ecraser les données initiaux.

Comment faire?

[dadavyvy]

En modifiant un peu l'exemple donné dans l'aide VBA sur la fonction OpenTextFile ou OpenAsTextStream :

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
Sub OpenTextFileTest()
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Dim fs, f1, f2
    Set fs = CreateObject("Scripting.FileSystemObject")
    cheminfichier1 = "A"
    cheminfichier2 = "B"
    nomfichier = "text1.txt"
    Set f1 = fs.OpenTextFile(cheminfichier1 & PathSeparator & nomfichier, ForAppending, , TristateUseDefault)
    Set f2 = fs.OpenTextFile(cheminfichier2 & PathSeparator & nomfichier, ForReading, , TristateUseDefault)
    f1.WriteLine
    f1.Write f2.ReadAll
    f1.Close
    f2.Close
    Set f1 = Nothing
    Set f2 = Nothing
    Set fs = Nothing
End Sub

[anisr]

Merci de votre aide.

Avec l'exemple fourni il faut declarer d'une manière statique les fichiers . Le but etant de tester sur le nom du fichier (Père) avec son equivalent (fils) et d'effectuer l'opération d'ecriture.

[dadavyvy]

En fait, j'ai juste donné un exemple, mais il faut parcourir le dossier A (Folder), récuperer chaque fichier (File), et on peut alors l'avoir dynamiquement. Il suffit de rechercher "File" dans l'aide VBA, et il y a des exemples...