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 31
| Sub FusionCSV()
Dim FSO As Object, sDossierCSV As String
Dim oSourceFolder As Object, oOutputFile As Object
Dim oFile As Object, oTextFile As Object
Dim sText As String, sDossierFusion As String, sNomFichierFusion As String
Const ForReading = 1
sDossierCSV = ThisWorkbook.Path & "\" & "Traitement"
sDossierFusion = ThisWorkbook.Path & "\" & "Fusion"
CreationDossier sDossierFusion
sNomFichierFusion = "Fusion.csv"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set oSourceFolder = FSO.GetFolder(sDossierCSV)
sNomFichierFusion = RenommerFichier(sDossierFusion, sNomFichierFusion)
Set oOutputFile = FSO.CreateTextFile(sNomFichierFusion)
For Each oFile In oSourceFolder.Files
Set oTextFile = FSO.OpenTextFile(oFile, ForReading)
sText = oTextFile.ReadAll
oTextFile.Close
oOutputFile.WriteLine sText
Next oFile
oOutputFile.Close
Set oOutputFile = Nothing
Set oSourceFolder = Nothing
Set FSO = Nothing
End Sub |
Partager