Enregistrement d'un classeur dans un répertoire

Bonjour,

J'aimerais enregistrer un classeur dans un répertoire donné en cliquant sur le bouton ok de mon userform.

Pour cela j'ai utilisé le code suivant :

ActiveWorkbook.SaveAs Filename:="D:\DATA\v.beguin\Documents\PTI\Test enregistrement de données" & Nom_fichier

Je n'ai aucun beugue mais je n'ai aucun enregistrement dans mon répertoire.
De plus étant donné que le nom du fichier peut varier, j'aimerais si c'est possible que la variable Nom_fichier prenne la valeur d'un de mes TextBox (Name = TbProjet1) de mon userform.

Notal : A la création d'un nouveau projet, un nouveau classeur s'ouvre et s'active



Merci par avance pour votre aide

Cordialement :)