Réunir plusieurs fichiers EXCEL dans 1 seul Résolu

Question

Bonjour,

j'ai un soucis Sur Excel.

Voila, j'ai Soixante fichiers excel de forme identique avec 5 à 6 onglets toujours de forme identique. (Ne demandez pas pourquoi c'est pour le TAF) 

Ces fichiers ne se trouvent pas forcément dans le même dossier et ne sont pas en nombre identiques 

Exemple: 

DossierA : Dossier1,dossier2,dossier3,dossier4..... 

Dossier1 : Exel1 
Dossier2 : Excel2,Excel3 
Dossier3 : Excel4,Excel5,Excel6 
Dossier4 : Excel7,Excel8 

Connaissez-vous une macro capable de tout me copier dans un Seul fichier Excel (Tout les fichiers les uns en dessous des autres) en indiquant le fichier dont l'info provient ainsi que l'onglet d'origine) 

That is your challenge !!! Good Luck

PS : Je suis débutant en Macro, essayez d'expliquer simplement ou de me donner la macro entière.

first_try · Accepted Answer

Bonjour ts le monde, svp j'ai besoin de la macro qui permet de concatener les fichiers excel qui ont la même structure 

c super urgent. d'avance merci

gbinforme · Answer

bonjour ttjeremy,

Connaissez-vous une macro capable de tout me copier dans un Seul fichier Excel (Tout les fichiers les uns en dessous des autres) en indiquant le fichier dont l'info provient ainsi que l'onglet d'origine)
That is your challenge !!! Good Luck 

Bon comme personne ne se précipite sur ta question, je relève le "challenge".

Dans ce fichier, je t'ai mis un classeur prêt à fonctionner et le module macro que tu peux importer dans ton classeur :
https://www.cjoint.com/?dgvPyWen8b

Tu peux sélectionner ton "DossierA" et tous les classeurs de tous les sous répertoires seront concaténés avec le chemin du fichier d'origine,  l'onglet d'origine, le nombre de lignes et le nombre de colonnes.

Si tu dépasses le nombre de lignes maximum de la feuille, on passe sur une nouvelle feuille.

Si tes fichiers ont des plages ou des fonctions avec le même nom, il y a un message excel pour le signaler à chaque double et il faut renommer pour que ton classeur fonctionne.

Essaies d'abord sur un petit dossier pour voir le fonctionnement et bon test.

gbinforme · Answer

bonjour

Dans chaque fichier, j'ai oublié de mentionné qu'il y avait deux onglets qui ne devait pas faire partir de cette liste. 

Connaissez-vous un moyen de ne pas les mettre dans le "Global_classeur"?

Il y a toujours des exceptions pour tout traitement alors autant les mettre en paramètre.

J'ai mis cette ligne dans la macro  et il suffit de rajouter d'autres feuilles pour les exclure éventuellement :
exclus = Array("P de Garde", "Définition des colonnes")
Le classeur corrigé est ici : https://www.cjoint.com/?dklLFvOwSp

gbinforme · Answer

bonjour

Après l'exécution, il me reste quelques manip à faire

Si tu me dis en quoi elles consistent, elles peuvent peut-être être intégrées facilement.

Selon le style de classeur, le résultat est parfois différent.

gbinforme · Answer

bonjour

Ce n'est pas tout à fait ce qui était dans le sujet initial mais c'est normal que le projet évolue en fonction des résultats obtenus.

Il me manque quelques réponses encore :
- y a-t-il lieu de copier les formats de fond, de couleurs et autres ?
- le nom du fichier d'origine est-il simplement le nom du classeur ?
- doit-on tenir compte du chemin complet ou simplement du relatif par rapport au global ?
- le nom de l'onglet sur la colonne B n'est-ce pas mieux ?
- le lien hypertexte serait sur la première colonne ?
- y-a-t-il des formules dans les classeurs ?
- y-a-t-il des zones nommées dans les classeurs ?

Cela permettra d'adapter le code à ta problématique.
Je suppose que tu crées un nouveau classeur à chaque fois, faut-il initialiser totalement le classeur ?

ttjeremy · Answer

Bonjour,

Il me manque quelques réponses encore : 

- y a-t-il lieu de copier les formats de fond, de couleurs et autres ? Il faut garder au minimum les couleurs des lignes et les formules.

- le nom du fichier d'origine est-il simplement le nom du classeur ? Oui tout simplement

- doit-on tenir compte du chemin complet ou simplement du relatif par rapport au global ? Le relatif par rapport au global est suffisant

- le nom de l'onglet sur la colonne B n'est-ce pas mieux ? Cela n'a pas d'importantce

- le lien hypertexte serait sur la première colonne ? Pourquoi pas, ça peut être une bonne idée

- y-a-t-il des formules dans les classeurs ? oui tout à fait, elles sont d'ailleurs importantes.

- y-a-t-il des zones nommées dans les classeurs ?  Non


J'espère avoir répondu correctement à tes questions.

Merci de m'aider.

Cordialement, 
Ttjeremy

gbinforme · Answer

bonjour

Merci de la précision des réponses et tu peux essayer cette version : https://www.cjoint.com/?dnuJh6bpkj

Le lien hypertexte est mis sur la première ligne de l'onglet afin de ne pas surcharger la première colonne mais il est possible de le recopier facilement.

ttjeremy · Answer

Bonjour,

Les différentes collonnes rajoutées fonctionnent mais par rapport à la version d'avant, il y a un gros soucis.

La macro ne copie que 16 fichiers sur 30.

Je ne sais pas pourquoi.

Cordialement,
Ttjeremy

gbinforme · Answer

bonjour

N'as-tu pas un fichier sans données ?
Comme l'on saute les 2 premières lignes maintenant...

Essaies de changer cette ligne
On Error GoTo fin
par
'On Error GoTo fin

S'il y a une erreur tu verras où elle se produit.

ttjeremy · Answer

Voici le message d'erreur : 

Erreur d'execution '1004'

Impossible de coller les informations car les Zones copier et de collage sont de forme et de taille différentes. Essayez l'unes des opérations suivantes :

 - Cliquez sur une cellule puis collez
 - Sélectionnez une Zone rectangulaire de taille et de forme identiques à celles des informations puis collez.

En faisant débogage, il y a une ligne de la macro qui se surligne en jaune.

                  Cells(l, 1).Resize(nbl, c).Copy Destination:=Wf.Cells(ligne, 2)

gbinforme · Answer

bonjour

Je viens d'essayer avec une feuille vide et cela fonctionne.

Peux-tu regarder la feuille concernée car elle doit être enregistrée en fin de fichier et voir les particularités.

La ligne concernée copie les données sur une seule cellule destinataire et tu ne devrais pas avoir ce message.

As-tu démarré ta concaténation sur une feuille vide ?

ttjeremy · Answer

C'est bon,

J'ai ré-enregistré le fichier. tout va bien.

Par contre il y a toujours les lignes vides qui se mettent dans le "global classeur"

gbinforme · Answer

bonjour

En fait cela venait que ton classeur était censé utiliser 256 colonnes et pour les mettre dans 255 : problème.

Cela vient de la propriété usedrange qui est bien utile mais ne donne pas toujours des résultats adéquats.

C'est corrigé ainsi que les lignes vides qui venaient du même problème. S'il en reste vérifies qu'il n'y ait pas des espaces dans une cellule : https://www.cjoint.com/?dooeWnJHZw

Bon test et bon courage !

caucasiane · Answer

Bonjour,
Je ne sais pas si c'est possible mais j'aimerais compiler dans une seule feuilles des données qui sont dans 2 feuilles différentes mais que j'ai réuni dans un seul fichier.
Au départ, je me suis demandée s'il ne fallait pas créer un TCD, mais je pense qu'une macro serait plus conseillée. Je pourrais être amenée à changer les feuilles 2 et 3(tout en gardant la même disposition de colonnes !) à cause de différentes mise à jour que je doive effectuées sur une base de données, je ferai alors une extraction de cette base sous excel et donc amenée à enregistrer cette nouvelle base de données dans le classeur correspondant à la place des feuilles 2 et 3.
Dans un premier temps, il faudrait que je puisse faire apparaître dans une  feuille 1 toutes les données de la feuille 2 (19 colonnes et nombre de lignes variables en fonction de la mise à jour) et compiler les données de la feuille 3 (6 colonnes et nombre de lignes différentes de la feuille2), en fonction des critères de la feuille 2 : colonne B, C et S. Il  peut arriver qu'en fonction du numéro dans la colonne S, un doublon de nom prénom se forme en colonne B et C. Il faut donc qu'une nouvelle ligne se forme.
Je suis nulle en macro et je demanderai donc à celui qui voudra bien me renseigner de me donner le chemin à suivre, pas à pas...
En vous remerciant par avance, bon courage...

DelphineG · Answer

Bonjour,

J'ai un fichier Excel comportant environ 40 onglets de paramétrage et j'aimerais obtenir un autre fichier Excel comportant toutes les donnees de mes 40 onglets. Je n'y connais rien en macro et mais il me semble que le programme de gbinforme pourrait faire ça aussi  mais je n'arrive pas à le trouver.

Ce serait vraiement super ! Ca m'eviterais de faire chaque semaine les 40 copier-coller et surtout de ne plus oublier d'inserer un onglet. Après c'est trop la galère 

Merci d'avance pour votre aide,
Cordialement,
Delphine

gbinforme · Answer

bonjour DelphineG,

il me semble que le programme de gbinforme pourrait faire ça aussi 

Ce n'est pas du tout le même problème car la macro concernée était destinée à globaliser un répertoire pour faire une analyse des données.

En ce qui te concerne, c'est plus simple puisque tu n'as qu'un seul classeur avec plusieurs onglets et donc la procédure n'a rien à voir.

Ton nouveau classeur comporte combien d'onglets ?

Le collage de chaque onglet se fait-il à la suite du précédent sur le même onglet ?

Tes données ont-elles des plages nommées ?

As-tu des formules ou uniquement des données saisies ?

Si tu explique un peu plus précisément, cela devrait être réalisable.

mariafan · Answer

J'ai le même souci pour réunir plusieurs fichiers excel dans un seul. Mais j'arrive à accéder aux leins précédemment utiliser. Est ce quelqu'un peut m'nvoyer le code.
Merci d'avance.

jokeystar · Answer

bonjour j'ai le mémé soucis que (Réunir plusieurs fichiers EXCEL dans 1 seul
ttjeremy, le mercredi 5 mars 2008 à 11:36:57) mais j'ai pas trouvé le fichier sur le lien. ça sera gentille de me le filé merciii

gbinforme · Answer

bonjour

Si tu regardes le poste 30 tu as bien un classeur.

clusien · Answer

Compiler des fichiers ferméS dans un même répertoire:

Sub compil()
Dim X As Integer, nbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String
Dim rsdata As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
Dim videderniereligne As String
Dim derniereligne As String
Dim U As Object
Dim feuille As String
Dim i As Integer
'Application.ScreenUpdating = False
  'Application.DisplayAlerts = False

Direction = Dir(ThisWorkbook.Path & "\*.xls")
'Direction = Dir(cheminarchivelocal & "*.xls")
   Cells.Select
    Range("P1").Activate
    Selection.ClearContents
    Selection.Delete Shift:=xlUp
Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = Dir()
Loop

If nbFichiers > 0 Then
    For X = 1 To nbFichiers

           


                    'derniereligne = Worksheets("Feuil1").Range("A5").Rows.Count
            
                    
            If Tableau(X) <> ThisWorkbook.Name Then
           
            '[reportdetailleAZF20070831.xls]Feuil1!$A$2
            
             feuille$ = "zer3_PHA (4)"
             'repertoire = "D:\Archivefacturedetc\reportdetaille"
             
             szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & ThisWorkbook.Path & "\" & Tableau(X) & ";" & _
                    "Extended Properties=""Excel 8.0;HDR=yes; IMEX=1"";"
            
            '"Data Source=" & ThisWorkbook.Path & "\" & Tableau(X) & ";" & _

            szSQL = "SELECT * FROM [" & feuille & "$]"
            
            
            
                Set rsdata = New ADODB.Recordset
                rsdata.Open szSQL, szConnect, adOpenForwardOnly, _
                    adLockReadOnly, adCmdText

                   
                ''' Vérifie qu'on a bien reçu des données
                        If Not rsdata.EOF Then
                            
                            Sheets("Feuil1").Select
                            If Range("A1").Value = "" Then
                                Sheets("Feuil1").Range("A1").CopyFromRecordset rsdata
                            
                            Else:
                            derniereligne = Worksheets("Feuil1").Range("A3").End(xlDown).Row
                            videderniereligne = derniereligne + 1
                            Sheets("Feuil1").Range("A" & videderniereligne).CopyFromRecordset rsdata
                            End If
                            
                            
        
        
                        End If
           
            End If
    Next

clusien · Answer

Compiler des fichiers ferméS dans un même répertoire:

Sub compil()
Dim X As Integer, nbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String
Dim rsdata As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
Dim videderniereligne As String
Dim derniereligne As String
Dim U As Object
Dim feuille As String
Dim i As Integer
'Application.ScreenUpdating = False
  'Application.DisplayAlerts = False

Direction = Dir(ThisWorkbook.Path & "\*.xls")
'Direction = Dir(cheminarchivelocal & "*.xls")
   Cells.Select
    Range("P1").Activate
    Selection.ClearContents
    Selection.Delete Shift:=xlUp
Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = Dir()
Loop

If nbFichiers > 0 Then
    For X = 1 To nbFichiers

           


                    'derniereligne = Worksheets("Feuil1").Range("A5").Rows.Count
            
                    
            If Tableau(X) <> ThisWorkbook.Name Then
           
            '[reportdetailleAZF20070831.xls]Feuil1!$A$2
            
             feuille$ = "zer3_PHA (4)"
             'repertoire = "D:\Archivefacturedetc\reportdetaille"
             
             szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & ThisWorkbook.Path & "\" & Tableau(X) & ";" & _
                    "Extended Properties=""Excel 8.0;HDR=yes; IMEX=1"";"
            
            '"Data Source=" & ThisWorkbook.Path & "\" & Tableau(X) & ";" & _

            szSQL = "SELECT * FROM [" & feuille & "$]"
            
            
            
                Set rsdata = New ADODB.Recordset
                rsdata.Open szSQL, szConnect, adOpenForwardOnly, _
                    adLockReadOnly, adCmdText

                   
                ''' Vérifie qu'on a bien reçu des données
                        If Not rsdata.EOF Then
                            
                            Sheets("Feuil1").Select
                            If Range("A1").Value = "" Then
                                Sheets("Feuil1").Range("A1").CopyFromRecordset rsdata
                            
                            Else:
                            derniereligne = Worksheets("Feuil1").Range("A3").End(xlDown).Row
                            videderniereligne = derniereligne + 1
                            Sheets("Feuil1").Range("A" & videderniereligne).CopyFromRecordset rsdata
                            End If
                            
                            
        
        
                        End If
           
            End If
    Next

fflintt · Answer

Je suis un peu tard sur la solution, mais avez-vous trouvé votre solution?

Réunir plusieurs fichiers EXCEL dans 1 seul

22 réponses

Discussions similaires

Newsletters