Macro pour fusion de plusieurs fichier dans 1

Résolu/Fermé
benben82
Messages postés
17
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
22 août 2008
- 7 août 2008 à 11:56
juer31
Messages postés
98
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
28 mai 2019
- 17 avril 2019 à 21:30
Bonjour,

j'ai 16 fichiers excel est il possible via une macro de copier toutes les lignes des 16 fichiers et les copiers les une en dessous des autres dans un seul fichier.

Merci pour votre aide.
A voir également:

9 réponses

m@rina
Messages postés
17439
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
18 mai 2022
10 900
Modifié le 6 déc. 2018 à 23:15
Bonjour,

Si tous tes classeurs ont la même structure, oui ce n'est pas très compliqué. La macro va ouvrir chaque classeur puis copier-coller... Il y a une solution qui permet d'aller directement dans les classeurs sans les ouvrir et qui passe par ADO, mais c'est prise de tête et ça fonctionne... moyen... en fonction des types de données.

Tu peux essayer cette macro toute simple, tu verras, c'est très rapide. Tes fichiers source doivent être fermés et tous dans le même dossiers, la macro doit se trouver dans le fichier destination.

Sub recup()
Range("A1").Select    'sélectionner la cellule de début
Chemin = "c:\Mes documents\..."     'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xls") ' Premier fichier
Do While Fichier <> ""
    Workbooks.Open Filename:=Chemin & Fichier
    Range("bd_export").Copy
    ThisWorkbook.Activate
    ActiveSheet.Paste
    Windows(Fichier).Activate
    Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
    ThisWorkbook.Activate
    Range("A65536").End(xlUp).Offset(1, 0).Select
    Fichier = Dir ' Fichier suivant
Loop
End Sub
47
Bonjour,

J'aimerai via 1 bouton, copier 6 fichiers excel onglet par onglet vers mon fichier excel onglet par onglet.
Les emplacements de ces 6 fichiers sont toujours différents donc il faut poser la question de leurs emplacements.

Si il y a 6 bouton ce n'est pas grave mais 1 c'est mieux.

Merci d'avance.

PS: Pouvez-vous expliquer étape par étape ?
0
Par rapport au macro cité, comment ça fonctionne, je suis vraiment novice à ce niveau!

Je l'ai utilisé mais ça ne fonctionne pas, je ne sais pas où je dois faire des remplacement!! (sur le macro)
Et comment je le mets en marche.

Merci
0
yolandeh
Messages postés
1
Date d'inscription
samedi 10 août 2013
Statut
Membre
Dernière intervention
10 août 2013

10 août 2013 à 13:41
Bonjour à vous
j'ai des fichiers mensuelles de données qui sont enrégistrés chaque mois dans un même dossier que je souhaite fusionner de facon chronoligue( janvier fev mars avril.....) et ensuite j'aimerais que le fichier se mette à jour automatiquement dés qu'il y a un nouveau mois tout en supprimant les en têtes de colones. J'ai essayé le code de Marina. Mais rien ne passe. je suis tres novice. Besoin de votre aide. Merci d'avance
0
lynda789456
10 mars 2016 à 00:25
Salut Marina, j'ai essayé ton code VBA posté au début mais j'ai eu une erreur :( ,je veux consolider plusieurs classeurs dans un seul global

<code basic>
Sub recup()
Range ("A1")
Chemin = "C:\Users\Sony\Desktop\MesMacros\prof"
Fichier = Dir(Chemin & "*.xlsx")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("bd_export").Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop<code>

</code>
</code>
Merci de m'indiquer l'erreur stp^^
Cordialement,
Lynda
0
m@rina
Messages postés
17439
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
18 mai 2022
10 900
10 mars 2016 à 01:03
Bonsoir,

Tu ne dis pas à quel endroit se déclenche l'erreur, ni quelle est cette erreur.
Cela dit, il manque le \ à la fin du chemin :
"C:\Users\Sony\Desktop\MesMacros\prof\"

m@rina
0