Réunir plusieurs fichiers EXCEL dans 1 seul

Bonjour,

Je suis très satisfait de la macro. Je vous en suit reconnaissant.

J'ai tout de même un petit soucis.

Dans chaque fichier, j'ai oublié de mentionné qu'il y avait deux onglets qui ne devait pas faire partir de cette liste.

Pour chaque fichier, il y a une page de garde que l'on imprime pour faire signer des vérificateurs.
Il y a aussi un glossaire.

Ces deux onglets s'intitulent "P de Garde" et "Définition des colonnes"

Connaissez-vous un moyen de ne pas les mettre dans le "Global_classeur"?

Merci d'avance et en core merci pour la macro.

Cordialement,
Ttjeremy

Bonjour

Ayant le même problème que 'ttjeremy' je tenais juste a demander le code pour voir si ça va marcher dans mon cas, j'ai essayé de le récupérer de l'adresse https://www.cjoint.com/?dgvPyWen8b mais on me dit que l'adresse est introuvable

Merci d'avance

G le même souci , mais le liens n'est plus valide , peux tu m'aider stp

merci bcp

Re bonjour,

La macro est presque parfaite.

Après l'exécution, il me reste quelques manip à faire mais comparé au temps que vous m'avez fait gagner, cela ne représente rien.

Je vous remercie beaucoup. Heureusement qu'il y a des personnes comme vous pour faire avancer le chmilblick.

Encore Merci.

Cordialement,
Ttjérémy

Bonjour, la macro m'interesse mais elle n'est plus en ligne. Peux-tu y remédier ?
merci

Bonjour,

Les quelques petits soucis concernent simplement toutes les lignes vides qui s'incorporent dans le fichier "Global classeur"

Si tu veux que je sois encore plus précis sur mon besoin,

le fichier global devrait :

- copier les deux premières lignes qu'une seule fois (normal, il s'agit de la légende des colonnes).

- comporter une colonne supplémentaire avec comme info le nom du fichier d'origine ainsi que l'onglet pour chaque ligne. (Si possible, 1ere colonne)

Pour synthétiser, tous les fichiers groupés dans le "global classeur" doivent ne former qu'un seul fichier avec leur provenance (traçabilité) qui servira à centraliser les informations pour mieux les traiter par la suite.

Pour moi travailler,

il est préférable que je puisse lire les informations sur un seul fichier. J'ai en tout 11000 lignes à gérer a terme. la provenance de l'information est importante pour gagner du temps.
Par la suite, si j'avais des liens hypertexte sur cette provenance, ce serait le ponpon.

Si tu penses pouvoir faire tout cela, je laisse libre court a ton ingénieusité, mais je te rassures, tu en as déjà fait beaucoup pour moi.

Bonjour,

J'ai effectué le Test.

Les lignes vignes n'ont pas disparus mais il faut que je vérifie si elles ne contiennent pas d'espaces.

Merci pour ton aide.

Cordialement,
Ttjeremy.

Bonjour,

Si tu suis l'historique des conversations, tu pourras y trouver une macro qui réalisera ton souhait.

Tu pourras ainsi remercier son créateur.

bonjour,

je sais pas si c'est ce code là qui te faut mais je te le fille au cas ou

Sub FusionDsFeuille()

Dim NbCol As Integer, NbLine As Long, NbLine1 As Long
Dim Wbk As Workbook, Wbk1 As Workbook

'Recherche du classeur 1 parmi tous les classeurs ouverts :
For Each Wbk In Workbooks

'Recherche du bout de nom toujours identique du classeur 1
If InStr(Wbk.Name, "salut") Then
'Ou recherche du nom complet si le nom complet est toujours identique
'if Wbk.name="Export Base X.xls" then

'On le nomme
Set Wbk1 = Wbk

'On compte le nombre de lignes de la feuille 1 du classeur 1
'En imaginant que c'est bien cette feuille sur laquelle on travaille
NbLine1 = Wbk1.Worksheets(1).Cells(6, 1).End(xlUp).Row

'On sort de la boucle si on a trouvé
Exit For

End If
Next Wbk


'Recherche du classeur 2 et 3 (dans n'importe quel ordre a priori) parmi tous les claseurs ouverts :
For Each Wbk In Workbooks
'Recherche du bout de nom toujours identique
If InStr(Wbk.Name, "coucou") Or InStr(Wbk.Name, "psss") Then
'Ou recherche du nom complet si le nom complet est toujours identique
'if Wbk.name="Export Base Y.xls" or Wbk.name="Export Base Z.xls" then
'Pas la peine de le nommer.. c'est le 2 ou le 3 au choix

'On compte le nombre de colonnes en se basant sur la ligne 1 (si ligne 1 = ligne en-tête
'sinon, adapter)
NbCol = Wbk.Worksheets(1).Cells(1, 4).End(xlToLeft).Column

'On compte le nombre de lignes en se basant sur la colonne 1 (si colonne 1 non vide
'sinon, adapter)
NbLine = Wbk.Worksheets(1).Cells(6, 1).End(xlUp).Row

'Copie du bloc à partir de la ligne 2 (donc sans les en-tetes) + collage sur la dernière ligne + 1 de la feuille 1 du classeur 1
Range(Wbk.Worksheets(1).Cells(2, 1), Wbk.Worksheets(1).Cells(NbLine, NbCol)).Copy Wbk1.Worksheets(1).Cells(NbLine1 + 1, 1)

'On incrémente le nombre de lignes total de la feuille 1 du classeur 1
NbLine1 = NbLine1 + NbLine
'On ne sort pas de la boucle car il faut faire les 2 classeur
'Facultatif : On ferme le fichier
'Wbk.Close
End If
Next Wbk
End Sub

Bonjour,
j'ai téléchargé le fichier du poste 30 et je suis plutôt impressionné.
Par contre, je n'ai pas l'impression que c'est la dernière version de ce qui avait été proposé étant donné que les titres de colonnes se répètent à l'importation des données. Est-ce qu'il serait possible de remettre le dernier fichier en ligne? Et autre chose, ou est ce qu'on peut paramétrer le fait de vouloir compiler les données sur différentes feuilles plutôt que tout sur une seule? (bon, là j'en demande peut etre beaucoup, on parle d'un fichier crée il y a 2 ans)

Bonjour,

Tout est possible, et le code est totalement accessible et modifiable.
Pour supprimer les titres il y a un paramètre à changer et pour changer de feuille à chaque fichier la modification est très simple mais il ne faut pas oublier que le nombre de feuilles n'est pas illimité.

Tu as 2 autres versions ici et là

Si tu n'as pas ton bonheur, précises les modifications que tu veux.

Merci pour cette réactivité. Je n'en espérais pas tant. Je vais déjà commencer à regarder ce code de plus près et je reviens alors si j'ai des modifs à faire que je ne serais pas faire (ce qui est bien possible ;) )

Bonjour,

Serait-il possible de remettre les fichiers en ligne ? Ce serait Top !
Merci par avance !

bonjour ,je pense que ce macro est utile pour moi ,es que vous pouvez le deposé une autre fois si vous plait ,parce qu'il m'affiche le message suivant 'lien introuvable" ,merci

merci de renouveller la jonction de la macro car je la trouve pas.