XL 2016 Enregistrer onglets dans nouveau classeur en fonction cellule

Etn

XLDnaute Occasionnel
Bonjour le forum,

Je souhaiterais enregistrer certaines feuilles (donné sur les lignes 9 et 10) dans plusieurs nouveaux classeurs (renommé avec les cellules ligne 8), et de les enregistrer dans un repertoire donné en fonction d'une autre cellule (cellule C6).

C'est surement pas très clair, mais avec le fichier joint c'est plus facile de comprendre.

Merci d'avance pour votre aide.

Etn
 

Fichiers joints

Jacky67

XLDnaute Accro
Bonjour le forum,

Je souhaiterais enregistrer certaines feuilles (donné sur les lignes 9 et 10) dans plusieurs nouveaux classeurs (renommé avec les cellules ligne 8), et de les enregistrer dans un repertoire donné en fonction d'une autre cellule (cellule C6).

C'est surement pas très clair, mais avec le fichier joint c'est plus facile de comprendre.

Merci d'avance pour votre aide.

Etn
Bonjour,
Cela pourrait ressembler au classeur en Pj

**S'il faut tenir compte "directement" des inscriptions dans les cellules de la feuille "Home"
Une autre version ("fichier etn SelonCellulesFeuilleHome.xlsm") en Pj
 

Fichiers joints

Dernière édition:

Etn

XLDnaute Occasionnel
Bonjour Jacky67,

C'est super merci ! Oui c'est bien la version selon les cellules feuille home qui m'intéresse, désolé de pas avoir été plus clair.

Juste une chose, serait il possible que la macro sélectionne un nombre non fixe de feuilles ?
Je m'explique : Il est possible qu'un jour il y ait 2 feuilles pour à mettre dans le fichier A, puis un autre jour 3 feuilles, ou 1, ou 4 etc...

Alors j'ai tenté de rajouter une 3e cellule (d11) pour le fichier A, sans rien mettre en D11 (au cas où il y ait besoin d'avoir 3 feuilles pour le fichier A, sans devoir toucher la macro) : ThisWorkbook.Sheets(Array(.[d9].Value, .[d10].Value, .[d11].Value)).Copy
Mais évidemment j'ai un message d'erreur car il n'y a pas de feuille sans nom.

Ou alors peut être sélectionner toutes les feuilles de D9.End(xldown) ?

Merci de ton aide,

Etn
 

Jacky67

XLDnaute Accro
Bonjour Jacky67,

C'est super merci ! Oui c'est bien la version selon les cellules feuille home qui m'intéresse, désolé de pas avoir été plus clair.

Juste une chose, serait il possible que la macro sélectionne un nombre non fixe de feuilles ?
Je m'explique : Il est possible qu'un jour il y ait 2 feuilles pour à mettre dans le fichier A, puis un autre jour 3 feuilles, ou 1, ou 4 etc...

Alors j'ai tenté de rajouter une 3e cellule (d11) pour le fichier A, sans rien mettre en D11 (au cas où il y ait besoin d'avoir 3 feuilles pour le fichier A, sans devoir toucher la macro) : ThisWorkbook.Sheets(Array(.[d9].Value, .[d10].Value, .[d11].Value)).Copy
Mais évidemment j'ai un message d'erreur car il n'y a pas de feuille sans nom.

Ou alors peut être sélectionner toutes les feuilles de D9.End(xldown) ?

Merci de ton aide,

Etn
Bonjour,
Essaye cette Pj
L'exemple prend en compte le nombre de classeur et le nombre de feuille
Les lignes et colonnes commencent comme dans l'exemple que tu as fourni

**En Pj V2
Avec 2 cellules nommées.
Les cellules de la feuille "Home" peuvent être déplacées
 

Fichiers joints

Dernière édition:
  • J'aime
Reactions: Etn

Etn

XLDnaute Occasionnel
Bonjour,

C'est exactement ce que je recherchais ! Merci beaucoup pour ton aide !

Bonne journée !
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas