Macro regrouper des feuilles de plusieurs classeurs

[Résolu/Fermé]
Signaler
-
 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.



1 réponse

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 512
Bonjour,

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
Ah ben voila c'est parfait!

Merci beaucoup!