Fusions de plusieurs classeurs csv

[clavier48]

Bonjour
J'ai plusieurs classeurs en csv de même format j'aimerais une méthode par macro pour les fusionnées ensemble afin d'avoir l'ensemble dans un nouveau classeur merci de votre réponse

 

[cbea]

Re : Fusions de plusieurs classeurs csv

Bonsoir clavier48,

Serait-il possible d'avoir un exemple de fichiers ?

Merci

 

[BOISGONTIER]

Re : Fusions de plusieurs classeurs csv

Bonsoir,

On ne prend les titres que dans le premier fichier

ChDir ThisWorkbook.Path
Open "classeur1.csv" For Input As #1
Open "classeur5.csv" For Output As #2
'--1er fichier
Do While Not EOF(1)
  Line Input #1, ligne
  Print #2, ligne
Loop
Close #1
'-- 2e fichier
Open "classeur2.csv" For Input As #1
Line Input #1, ligne             ' 1ere ligne  (titres que l'on ne prend pas)
Do While Not EOF(1)
   Line Input #1, ligne
   Print #2, ligne
Loop
Close #1, #2

JB
Formation Excel VBA JB

 

[clavier48]

Re : Fusions de plusieurs classeurs csv

Bonjour
J'ai plusieurs classeurs en csv de même format j'aimerais une méthode par macro pour les fusionnées ensemble afin d'avoir l'ensemble dans un nouveau classeur merci de votre réponse

ci-joint un fichier avec 3 classeurs ,j'aimerais avec au moins 5 classeur qu'on puisse les fusionnées Merci

 

[MichelXld]

Re : Fusions de plusieurs classeurs csv

bonsoir


Cet exemple regrouper tous les fichiers csv d'un répertoire dans la feuille de calcul:

Sub Test()
    Dim Fichier As String, Chemin As String
    Dim i As Long
 
    'Répertoire contenant les fichiers
    Chemin = "C:\Documents and Settings\mimi\dossier"
    Fichier = Dir(Chemin & "\*.csv")
 
    'Boucle sur les fichiers
    Do While Fichier <> ""
 
        i = Range("A65536").End(xlUp).Row + 1
        ImportText Chemin & "\" & Fichier, Cells(i, 1)
 
        Fichier = Dir
    Loop
End Sub
 
Sub ImportText(NomFichier As Variant, Cible As Range)
    Dim QT As QueryTable
 
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _
        NomFichier, Destination:=Cible)
 
    With QT
        'Définit les séparateur de colonnes dans le fichier txt
        .TextFileOtherDelimiter = ";"
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub

bonne soirée
MichelXld