Enregistrer dans le même classeur avec valeur d'une cellule

Bonjour,

je souhaite enregistrer un classeur ouvert sous un nouveau nom qui sera fait du nom de l'ancien classeur (qui s'appelle ici "CLASSEUR') et du Numéro se situant dans la cellule F28 de la feuille SOMMAIRE du classeur initial
je souhaite que l'enregistrement se fasse dans le même dossier que le classeur initial (sans avoir à en donner le chemin) et souhaite que ce nouveau classeur nommé reste ouvert.

Dans un module VBA, je fais ceci, mais le nouveau classeur est enregistré dans le dossier Documents de mon ordi. Comment corriger ? Merci de votre aide

Sub EnregistrementNouveauClasseur()
Complete_File_name = Path_name & "\" & File_na
Dim chemin As String
ActiveWorkbook.SaveAs Filename:="CLASSEUR N°" & Worksheets("SOMMAIRE").[F28].Value
End Sub