probleme de code pour sauver

[philboy]

Bonsoir le forum, bonsoir a tous

Voila, j'utilise un code pour sauvegarder une page dans un nouveau classeur directement dans un fichier, le seul proble c'est que dans mon nouveau classeur, je peu (pour l'instant ), sauvegarder qu'une seul feuille; j'aimerai l'aide de qqun pour modifier mon code de facon a copier d'autre feuilles dans mon nouveau classeur; voila mon code :


Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
'vérifie que le textbox1 est bien rempli sinon sort
If TextBox1.Value = "" Then
MsgBox ("Merci de saisir un nom ? :")
Else

'si le textbox1 est bien rempli sauve la feuille bon de commande
'sous le nom saisie

Sheets("bon de commande").Select
Sheets("bon de commande").Copy
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\Propriétaire\Mes documents\philip.barraud\PROJET\fichier client\" & TextBox1.Value & ".xls"
' deux options :
'permet de fermer l'userform
Unload UserForm1
'permet de fermer le nouveau classeur
ActiveWorkbook.Close
Application.ScreenUpdating = False

End If


Unload Me



End Sub

 

[Yeahou]

bonjour philboy, le forum

Remplaces
Sheets("bon de commande").Copy
par
Sheets(Array("bon de commande", "Feuil2", "Feuil3")).Copy
ou tu remplaces feuil2 et feuil3 par les noms des feuilles à copier, bien sur.

Cordialement, A+