Macro regrouper des feuilles de plusieurs classeurs
Résolu
Julien
-
Julien -
Julien -
Bonjour à tous,
J'ai réussi à créer cette macro en cherchant un peu sur le forum et sur le net :
http://www.cjoint.com/c/FCqmZ1P3dH3
Je souhaite donc une macro qui regroupe les feuilles de plusieurs classeurs excel dans un seul (regrouper, pas fusionner les feuilles). Je souhaite donc que sur mon classeur se retrouve toutes les feuilles des autres classeurs.
J'ai réussi à ajouter à la macro la possibilité d'ouvrir une boite de dialogue pour déterminer le chemin d'accès.
par contre, lorsque je configure le chemin d'accès, la macro ouvre en fait tous les classeurs du dossier supérieur (exemple: C:/User/nouveau dossier/feuille il m'ouvre les classeurs excel de "nouveau dossier" et non de "feuille"
Quelqu'un sait me dire pourquoi ou modifier ma macro?
merci d'avance à tous
Julien.
J'ai réussi à créer cette macro en cherchant un peu sur le forum et sur le net :
http://www.cjoint.com/c/FCqmZ1P3dH3
Je souhaite donc une macro qui regroupe les feuilles de plusieurs classeurs excel dans un seul (regrouper, pas fusionner les feuilles). Je souhaite donc que sur mon classeur se retrouve toutes les feuilles des autres classeurs.
J'ai réussi à ajouter à la macro la possibilité d'ouvrir une boite de dialogue pour déterminer le chemin d'accès.
par contre, lorsque je configure le chemin d'accès, la macro ouvre en fait tous les classeurs du dossier supérieur (exemple: C:/User/nouveau dossier/feuille il m'ouvre les classeurs excel de "nouveau dossier" et non de "feuille"
Quelqu'un sait me dire pourquoi ou modifier ma macro?
merci d'avance à tous
Julien.
A voir également:
- Macro regrouper des feuilles de plusieurs classeurs
- Regrouper plusieurs feuilles excel en une seule - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Bruler des feuilles de laurier - Guide
- Comment regrouper des applications sur android - Accueil - Guide Android
1 réponse
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
Merci beaucoup!