Copier plusieurs onglets dont celui actif dans un nouveau classeur nomme

[JBOBO]

Bonjour à tous,

Tout d'abord, une Bonne et heuruese année 2009 à Tous.

Mon problème est le suivant :

Je souhaiterais copier 2 onglets (dont celui actif, qui ne porte pas toujours le même nom) d'un classeur dans un nouveau classeur qui prendrait le nom de l'onglet actif.

Après avoir cherché dans ce forum, j'ai trouvé comment copier l'onglet actif et creer un nouveau classeur portant son nom mais je ne parviens pas à lui associer également la copie d'un autre onglet.
Voici ce que j'ai déjà :


Sub testo()
ActiveSheet.Select ' Feuille active
ActiveSheet.Copy
Application.DisplayAlerts = False

' Le chemin du fichier en cours : ThisWorkbook.Päth
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close

Application.DisplayAlerts = True
End Sub

Merci d'avance.

 

[Denis]

Re : Copier plusieurs onglets dont celui actif dans un nouveau classeur nomme

Bonjour JBOBO et le Forum
essais ceci (en xl2007) pour les autres versions je ne sais pas

Sheets(Array(ActiveSheet, "Maintenance")).Copy
à la place de
ActiveSheet.Copy

Bon courage et à +
Denis

 

[Pierrot93]

Re : Copier plusieurs onglets dont celui actif dans un nouveau classeur nomme

Bonjour jbobo, Denis

Denis, ton code ne fonctionne pas sous 2003, il faut modifier comme suit :

Sheets(Array(ActiveSheet.[B][COLOR="Red"]Name[/COLOR][/B], "Feuil2")).Copy

bonne journée
@+

 

[Denis]

Re : Copier plusieurs onglets dont celui actif dans un nouveau classeur nomme

Re bonjour
merci Pierrot pour le ".Name"
un oubli de ma part
à +
Denis

 

[JBOBO]

Re : Copier plusieurs onglets dont celui actif dans un nouveau classeur nomme

Merci beaucoup à vous 2 pour la rapidité de vos réponses.

Y'a pas à dire ce forum il est d'utilité public.

Bonne journée à vous tous !