Sub Archiver()
'Macro par Dan
Dim extension As String
Dim chemin As String, nomfichier As String
Dim style As Integer
Application.ScreenUpdating = False
ThisWorkbook.ActiveSheet.Copy
extension = ".xls"
chemin = "D:\Facturation-v1s\listedfacture\"
MsgBox ThisWorkbook.Path
nomfichier = ActiveSheet.Range("E1") & extension '& Range("A1")
With ActiveWorkbook
'.DrawingObjects(1).Delete
.SaveAs Filename:=chemin & nomfichier
.Close
End With
End Sub
'.Range("D10:D122").Hyperlinks.Delete