Discussion :

[kiki29]

Suite à ce post

Permet de tronquer les fichiers CSV : voir dans le code pour changer les lignes de début/fin.
On suppose que chaque colonne possède un entête, sinon il faudra peut-être modifier le code en conséquence.

● Recherche récursive ou non des fichiers via les APIs
● Sauvegarde des fichiers tronqués dans un dossier baptisé "Traitement"
● Traitement des éventuels doublons

Téléchargeable ici

[kiki29]

Une modif minime dans le module mCSV permet d'encadrer totalement la zone à extraire

[kiki29]

Pour par exemple fusionner les CSV traités il suffira de rajouter qqch comme ceci dans le module mCSV :

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
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