Macro regrouper des feuilles de plusieurs classeurs

Résolu/Fermé

Julien - 16 mars 2016 à 13:52
Julien - 17 mars 2016 à 17:53

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.

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

Réponse 1 / 1

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

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

Julien
17 mars 2016 à 17:53

Ah ben voila c'est parfait!

Merci beaucoup!

Discussions similaires

Impossible d'exécuter les macros

Les feuilles Diddl

Impossible de déplacer une feuille vers un autre classeur

Reporter valeur sur autre feuille avec critere

Discussions similaires

Newsletters