Copier des feuilles dans un nouveau fichier avec une macro

[lesuisse]

Bonjour à toutes et à tous,

voila le code qui me permet de copier une feuille dans un nouveau fichier.

Sheets(Worksheets("Menu").Range("k1").Value).Cells.copy
Workbooks.Add
ActiveSheet.Paste
Range("A1").Select
ActiveSheet.Name = ActiveSheet.Range("g2").Value

J'ai plusieur feuille dans un fichier.
Ce code me permets de copier une feuille dans un nouveau fichier selon un choix.

Je souhaiterai maintenant copier une deuxième feuille du meme fichier en meme temps que la première.
Le nom de la feuille est BQ.

Comment faire ?

Merci pour votre précieuse aide

Le Suisse

 

[Jon]

bonjour
essaye
sheets("array("tafeuille","taseoncdefeille")).copy ............;;


bye
stephane

 

[lesuisse]

Salut Stéphane, le forum, les suisses, les allemands, les italiens, les francais... bref tous ceux qui entourent cette très chère Suisse.

Merci beaucoup pour le code. C'est tout à fait ce que je souhaitais.

Bon début de semaine !

A+

Le Suisse à Bâle