XL 2019 Macro - Combiner fichiers Bloc-Note

Sub compil_texte()


    Dim fichier_final, nomfichier, x%, x2, chemin
    Dim CheminDossier$, dossier, i As Byte, chemintxt$, nomfich$, o As Boolean, NbFic As Integer

CheminDossier = ThisWorkbook.Path & "\" 'dossier à adapter
fichier_final = CheminDossier & "Fichier_Pression_Final.txt"
x = FreeFile
Open fichier_final For Output As #x
Print #x, ";Calage en Pression - Fichier Final"
Print #x, ";Localisation Heure Valeur"
Print #x, ";--------------------------"
Application.ScreenUpdating = False
   
 
dossier = Array("dossier1", "dossier2", "dossier3") 'noms des dossiers
j = 0

For i = 0 To UBound(dossier)

  chemintxt = CheminDossier & dossier(i) & "\"
  nomfich = Dir(chemintxt & "*.txt*") '1er fichier du dossier
 
        Do
            x = FreeFile
            Open nomfich For Input As #x
            laChaine = Input(LOF(x), #x)
            Close #x
            x2 = FreeFile
            Open fichier_final For Append As #x2
            Print #x, laChaine & vbCrLf ' si vous; voulez; pas une ligne vide entre chaque fichier; supprimer le  "& vbcrlf"
            Close #x
            j = j + 1
            fichier = Dir
        Loop Until fichier = ""
     
    nomfich = Dir 'fichier suivant du dossier
 
Next

MsgBox (j & " Fichiers assemblés !")


End Sub

Sub ConcatText()

    Dim CheminDossier1$, CheminDossier2$, CheminDossier3$, chemin$, CheminDossier4$, x%
    
    If MsgBox("Lancer la fusion des fichiers texte ?", vbYesNo) = vbNo Then Exit Sub
    
    chemin = ThisWorkbook.Path & "\" 'dossier à adapter
    
    CheminDossier1 = chemin & "Dossier1\" & "Calage_pression_Fluks.txt"
    CheminDossier2 = chemin & "Dossier2\" & "Calage_pression_Terrain.txt"
    CheminDossier3 = chemin & "Dossier3\" & "Calage_pression_hauteur_niveau_reservoirs.txt"
    CheminDossier4 = chemin & "Calage_toutes_les_Pressions.txt"
    
    x = FreeFile
    Open CheminDossier4 For Output As #x 'création du fichier TXT
    Print #x, ";Calage en Pression"
    Print #x, ";Localisation Heure Valeur"
    Print #x, ";--------------------------"
    
    Application.ScreenUpdating = False
    
    
    Open CheminDossier1 For Input As #1
    Open CheminDossier2 For Append As #2
    Open CheminDossier3 For Append As #3
    Open CheminDossier4 For Append As #4
    
    
    While Not EOF(1)    'tant qu'on n'est pas en fin de fichier
    Input #1, texte     'on récupère le ligne en entier
    Print #4, texte     'on la copie dans le fichier sauvegarde
    Wend
    
    Close #1 'Je ne suis plus sur de la synthaxe peut etre Free ou FreeFile a la place de Close
    
    'Input #2, texte 'Ca lit déja la premiere ligne et on en fait rien...
    'La suivante lue sera la seconde
    
    While Not EOF(2)
    Input #2, texte
    Print #4, texte
    Wend
    
    Close #2
    
    
    While Not EOF(3)
    Input #3, texte
    Print #4, texte
    Wend
    
    Close #2
    
    Close #4
    
    MsgBox ("Fichiers textes assemblés !")

End Sub