Enregistrement fichier sur un autre dossier

Bonjour,

J'ai aujourd'hui besoin de votre aide concernant un code VBA utilisé pour l'enregistrement d'un fichier excel dans un autre dossier, tout en le renommant, lorsque l'on appuie sur un bouton disponible sur la fiche.

J'ai pu trouver une possibilité de code en glanant sur internet, cependant lorsque je tente de le mettre en place, j'ai une erreur d'exécution 1004 "La méthode SaveAs de l'objet Workbook a échoué"
Je souhaite en fait que ce fichier soit copier sur un autre dossier, partagé, en le renommant selon des variables apparaissant sur la feuille excel, préalablement remplie par l'utilisateur.

Voici mon code :

Dim nom As String
Dim prenom As String
Dim datecrea As String
Dim etat As String

Sub Sauvegarde()

Dim NomFichier As String

NomFichier = "\\srv-pierre\DGAS-PRS\1-SBSL\FICHES MOBILITES\TESTS\" & etat & nom & prenom & datecrea & ".xlsm"

ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=52

End Sub

Merci par avance pour votre aide !