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