Troncage de fichiers CSV

Présentation
● 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échargement
Compatibilité
Windows
1  0 
Téléchargé 14 fois Voir les 2 commentaires
Détails
Catégories : Utilitaires
Avatar de kiki29
Expert éminent sénior
Voir tous les téléchargements de l'auteur
Licence : Gratuit
Date de mise en ligne : 29 mai 2017




Avatar de kiki29 kiki29 - Expert éminent sénior https://www.developpez.com
le 29/05/2017 à 2:06
Une modif minime dans le module mCSV permet d'encadrer totalement la zone à extraire
Avatar de kiki29 kiki29 - Expert éminent sénior https://www.developpez.com
le 29/05/2017 à 9:02
Pour par exemple fusionner les CSV traités il suffira de rajouter qqch comme ceci dans le module mCSV :

Code : Sélectionner tout
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

 
Developpez.com décline toute responsabilité quant à l'utilisation des différents éléments téléchargés.
Responsables bénévoles de la rubrique Excel : Pierre Fauconnier - Arkham46 -