Fusionner plusieurs fichiers dans un seul global

Simoaasri 14 Messages postés vendredi 3 novembre 2017Date d'inscription 8 décembre 2017 Dernière intervention - 7 déc. 2017 à 10:42 - Dernière réponse : f894009 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 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 

10 réponses

Répondre au sujet
Simoaasri 14 Messages postés vendredi 3 novembre 2017Date d'inscription 8 décembre 2017 Dernière intervention - 7 déc. 2017 à 11:58
0
Utile
UP
Commenter la réponse de Simoaasri
f894009 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention - 7 déc. 2017 à 12:01
0
Utile
1
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 14 Messages postés vendredi 3 novembre 2017Date d'inscription 8 décembre 2017 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 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention - 8 déc. 2017 à 11:10
0
Utile
1
Bonjour,

Non, en fait ce sont des tableaux dans chaque fichier
Il y a plusieurs plages de cellules a recuperer ????
Simoaasri 14 Messages postés vendredi 3 novembre 2017Date d'inscription 8 décembre 2017 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 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention - 8 déc. 2017 à 11:30
0
Utile
1
Re,

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

Y a-t-il un ordre pour recuperation des donnees fichiers ??
Simoaasri 14 Messages postés vendredi 3 novembre 2017Date d'inscription 8 décembre 2017 Dernière intervention - 8 déc. 2017 à 12:10
Non pas forcement
Commenter la réponse de f894009
f894009 12541 Messages postés dimanche 25 novembre 2007Date d'inscription 11 décembre 2017 Dernière intervention - 8 déc. 2017 à 12:15
0
Utile
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