Macro regrouper des feuilles de plusieurs classeurs
Résolu/Fermé
A voir également:
- Macro regrouper des feuilles de plusieurs classeurs
- Regrouper plusieurs feuilles excel en une seule - Guide
- Comment regrouper des pdf - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
1 réponse
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
17 mars 2016 à 09:13
17 mars 2016 à 09:13
Bonjour,
La modification de recherche de répertoire ne servait à rien car il faut utiliser le résultat :
La modification de recherche de répertoire ne servait à rien car il faut utiliser le résultat :
Sub GetSheets() Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker) Repertoire.Show If Repertoire.SelectedItems.Count > 0 Then chemin = Repertoire.SelectedItems(1) & "\" Else MsgBox "Aucun Répertoire Sélectionné" Exit Sub End If Filename = Dir(chemin & "*.xl*") While Filename <> "" Workbooks.Open Filename:=chemin & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Wend End Sub
17 mars 2016 à 17:53
Merci beaucoup!