Bonjour et bienvenue sur le forum help,
Tu peux mettre ce code dans un module :
Sub Sauvegarde()
Dim LePath As String
Dim NumSem As String
NumSem = Format(Now, "ww")
LePath = ThisWorkbook.Path
On Error Resume Next
ThisWorkbook.SaveAs Filename:=LePath & "\NOM_FICHIER" & "_semaine" & NumSem & ".xls"
End Sub
A la place de "NOM_FICHIER", mets le nom de ton fichier