Menu

Fusionner plusieurs fichiers dans un seul global

Simoaasri 17 Messages postés vendredi 3 novembre 2017Date d'inscription 16 janvier 2018 Dernière intervention - 7 déc. 2017 à 10:42 - Dernière réponse : f894009 13257 Messages postés dimanche 25 novembre 2007Date d'inscription 17 juillet 2018 Dernière intervention
- 8 déc. 2017 à 12:15
Bonjour, j'ai 36 fichier excel avec le meme type de données, c'est à dire les memes entêtes de tableau. Et je voudrais les rassembler tous dans un seul fichier grâce a VBA, j'ai tenté un code mais il ne fonctionne pas je le mets en dessous, si quelqu'un est capable de me le corriger ou me proposer une autre solution je serais reconaissant. Merci.

Sub recup()
Dim chemin As String
Dim Fichier As Workbook
Range("B1").Select 'sélectionner la cellule de début
chemin = "H:\Dossier retour KUEHNE Trié" '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
Afficher la suite 

Votre réponse

10 réponses

Simoaasri 17 Messages postés vendredi 3 novembre 2017Date d'inscription 16 janvier 2018 Dernière intervention - 7 déc. 2017 à 11:58
0
Merci
UP
Commenter la réponse de Simoaasri
f894009 13257 Messages postés dimanche 25 novembre 2007Date d'inscription 17 juillet 2018 Dernière intervention - 7 déc. 2017 à 12:01
0
Merci
Bonjour,

Et je voudrais les rassembler tous dans un seul fichier grâce a VBA
Certes, certes mais comment, un fichier par feuille ou ??????
Simoaasri 17 Messages postés vendredi 3 novembre 2017Date d'inscription 16 janvier 2018 Dernière intervention - 7 déc. 2017 à 12:04
Non, en fait ce sont des tableaux dans chaque fichier, et jveux mettre tous les tableaux dans un fichier et dans la meme feuile (ils sont tous identiques, ils ont les meme entêtes) comme ca à la fin j'aurais un seul grand tableau avec touuutes mes données dans les 36 fichiers.
Commenter la réponse de f894009
f894009 13257 Messages postés dimanche 25 novembre 2007Date d'inscription 17 juillet 2018 Dernière intervention - 8 déc. 2017 à 11:10
0
Merci
Bonjour,

Non, en fait ce sont des tableaux dans chaque fichier
Il y a plusieurs plages de cellules a recuperer ????
Simoaasri 17 Messages postés vendredi 3 novembre 2017Date d'inscription 16 janvier 2018 Dernière intervention - 8 déc. 2017 à 11:27
Il y'a une plage par fichier, en gros un tableau à récuper par fichier.
Commenter la réponse de f894009
f894009 13257 Messages postés dimanche 25 novembre 2007Date d'inscription 17 juillet 2018 Dernière intervention - 8 déc. 2017 à 11:30
0
Merci
Re,

Vous connaissez bien le VBA ou plutot moyen ??
Simoaasri 17 Messages postés vendredi 3 novembre 2017Date d'inscription 16 janvier 2018 Dernière intervention - 8 déc. 2017 à 11:58
Plutot moyen je dirais
Commenter la réponse de f894009
f894009 13257 Messages postés dimanche 25 novembre 2007Date d'inscription 17 juillet 2018 Dernière intervention - 8 déc. 2017 à 12:07
0
Merci
Re,

Y a-t-il un ordre pour recuperation des donnees fichiers ??
Simoaasri 17 Messages postés vendredi 3 novembre 2017Date d'inscription 16 janvier 2018 Dernière intervention - 8 déc. 2017 à 12:10
Non pas forcement
Commenter la réponse de f894009
f894009 13257 Messages postés dimanche 25 novembre 2007Date d'inscription 17 juillet 2018 Dernière intervention - 8 déc. 2017 à 12:15
0
Merci
Re,
Desole pour les questions au compte gouttes, je fais d'autres activtes en meme temps
Quel Excel avez vous?

Non pas forcement
Oui ou non, comment les distingues sauf mettre le nom du fichier
Commenter la réponse de f894009