Macro regrouper des feuilles de plusieurs classeurs Résolu

Question

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.



Configuration: Windows / Chrome 49.0.2623.87

gbinforme · Answer

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

Macro regrouper des feuilles de plusieurs classeurs

1 réponse

Discussions similaires

Newsletters