Dim chemin as string chemin = 'C:\\temp\\' ActiveWorkbook.SaveAs Filename:=chemin & 'Nom de ton fichier avec extension'