Sub Sauvegarde()
Dim str As String Dim dir As String, Nom as string
Nom = ActiveWorkbook.Name
dir = "J:\pro\Compta\facturations\Archives\"
Range("U28").Select
str = dir & ActiveCell.Text & ".xls"
ActiveWorkbook.SaveAs Filename:=str
Workbooks.Open dir & Nom
Workbooks(str).Activate
ActiveWorkbook.Close Savechanges:=True
End Sub