1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Sub compil_csv()
Dim fichier_final, fichier, x, x2, chemin
fichier_final = "C:\Users\" & Environ("UserName") & "\Desktop\Fichierfinal.csv"
If Dir(fichier_final) <> "" Then Kill fichier_final
chemin = ThisWorkbook.Path
fichier = Dir(ThisWorkbook.Path & "\*.csv")
i = 0
Do
x = FreeFile
Open chemin & "\" & fichier 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
i = i + 1
fichier = Dir
Loop Until fichier = ""
Workbooks.Open fichier_final, local:=True
End Sub |
Partager