Bonjour,
On ajoute pas d'abord un "Workbook.add" avant de faire une copie de feuille ?
'Sauvegarde de la facture
Dim wb As Workbook
Set wb=workbooks.Add
Nomfichier = Range("F17")
Chemin = ActiveWorkbook.Path & "\"
ThisWorkbook.Sheets("FactureDefinitive").Copy Before:=wb.Sheets(1)
wb.SaveAs Filename:=Chemin & Nomfichier & ".xls"
'Demande d'impression de la facture
If MsgBox("Désirez-vous imprimer cette facture ?", vbYesNo, "Demande d'impression") = vbYes Then
Worksheets("FactureDefinitive").PrintOut
End If
'Fermeture du fichier facture
Workbooks(Nomfichier & ".xls").Close
'RetourFeuille de saisie
Sheets("Saisie").Activate