Extraire certaines feuilles - VBA

[randle88]

Bonjour à tous,

Je vous sollicite car je bloque sur une (petite) macro.

L'objectif est donc de :
- sélectionner les feuilles (à partir de la troisième jusqu'à la dernière);
- d'extraire ces feuilles dans un nouveau classeur (situé dans le même répertoire);
- d'enregistrer ce nouveau classeur grâce à une boîte de dialogue.

Pour la sélection c'est bon (voir code ci-dessous). Mais c'est le seconde étape qui me pose problème. Si vous avez des idées ...

Merci d'avance

Sub SelectionOngletsMultiples()
  Sheets(3).Select
  For i = 4 To Sheets.Count
      Sheets(i).Select False
  Next i
End Sub

 

[randle88]

Re : Extraire certaines feuilles - VBA

En fait, mon souci vient seulement du fait d'exporter la sélection réalisée précédemment (ici les feuilles).

Je ne sais pas quoi utiliser.

Merci d'avance

 

[Pierrot93]

Re : Extraire certaines feuilles - VBA

Bonjour,

essaye avec l'enregistreur de macro, tu ouvres le classeur de destination, et avec la souris en maintenant la touche CTRL enfoncée tu déplaces les feuilles du classeur source vers le classeur de destination... Le code sera tout fait, revien éventuellement pour une optimisation...

bon après midi
@+

 

[cavo789]

Re : Extraire certaines feuilles - VBA

Bonjour

Le plus simple : fais l'opération avec l'enregistreur de macro et analyse le code généré.

 

[randle88]

Re : Extraire certaines feuilles - VBA

Bonjour et merci pour vos réponses.

J'avais déjà pensé à faire le test avec l'enregistreur de macro.

Le code généré pour la copie est le suivant :

    Sheets(Array("Feuil2", "Feuil3", "Feuil4")).Select
    Sheets("Feuil3").Activate
    Sheets(Array("Feuil2", "Feuil3", "Feuil4")).Copy

Mon problème est que le nombre de feuille peut varier. et que donc je ne peux pas entrer en "dur" les composantes du array.

En fait via la macro dans le premier post je sélectionne les feuilles voulues, et je souhaiterais pouvoir reprendre cette sélection pour la copier dans un autre classeur.

Sinon puis-je rendre dynamique les composantes du array ? style

Sheets(Array("selection")).Select

Merci !

 

[Pierrot93]

Re : Extraire certaines feuilles - VBA

Re,

remplace l'array par :

ActiveWindow.SelectedSheets.Copy

A vérifier si la fenetre active est bien celle du classeur concerné, sinon adapter le nom de la fenêtre....

 

[randle88]

Re : Extraire certaines feuilles - VBA

Super, ça à l'air de fonctionner.

Merci d'avoir pris le temps de répondre !