Sub Sauvegarder()
'Macro Dan le 18/09/10 pour millopas
Dim nomfichier As String, chemin As String
With ThisWorkbook
chemin = .Path & "\"
nomfichier = "Fact" & .Sheets("Facture").Range("B11")
.Sheets("Facture").Copy
End With
With ActiveWorkbook
.SaveAs Filename:=chemin & nomfichier & ".xls"
.Close
End With
End Sub