Fusions de plusieurs classeurs csv

clavier48

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

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Re : Fusions de plusieurs classeurs csv

Bonsoir,

On ne prend les titres que dans le premier fichier

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

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

Pièces jointes

  • Fusionss.zip
    1.8 KB · Affichages: 17

MichelXld

XLDnaute Barbatruc
Re : Fusions de plusieurs classeurs csv

bonsoir


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

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

Discussions similaires

Réponses
19
Affichages
517
Réponses
2
Affichages
244

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 023
Messages
2 084 713
Membres
102 637
dernier inscrit
TOTO33000