Fusionner plusieurs fichiers dans un seul global
Simoaasri
Messages postés
19
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Fusionner plusieurs fichiers dans un seul global
- Comment réduire la taille d'un fichier - Guide
- Renommer plusieurs fichiers en même temps - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment fusionner des pdf sans logiciel - Guide
- Fusionner plusieurs fichiers excel - Guide
6 réponses
Bonjour,
Et je voudrais les rassembler tous dans un seul fichier grâce a VBA
Certes, certes mais comment, un fichier par feuille ou ??????
Et je voudrais les rassembler tous dans un seul fichier grâce a VBA
Certes, certes mais comment, un fichier par feuille ou ??????
Bonjour,
Non, en fait ce sont des tableaux dans chaque fichier
Il y a plusieurs plages de cellules a recuperer ????
Non, en fait ce sont des tableaux dans chaque fichier
Il y a plusieurs plages de cellules a recuperer ????
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question