VBA pour enregistrer sous modèle word

Bonjour à tous,

J’ai besoin de votre aide concernant l’enregistrement d’un document word.

J’ai actuellement un fichier Excel sur le quel j’ai un bouton pour générer un fichier word avec les données renseignées dans le tableau Excel.

Je souhaiterai, lorsque le fichier word généré s’affiche à l’écran, qu’une fenêtre « enregistrer sous »s’affiche et que l’utilisateur puisse l’enregistrer où il veut avec le nom qu’il veut et que par la même occasion le fichier word « modèle » se ferme automatiquement, sans être effacé, pour laisser place à celui qui vient d’être renommer.

J’ai utilisé cette ligne de code :

WordApp.Application.FileDialog(msoFileDialogSaveAs). Show

La fenêtre s’ouvre bien mais quand on clique sur enregistrer sous cela ne fonctionne pas.

Je suis encore un débutant donc je vous remercie de vos conseils et espère que vous pourrez m’apporter une solution :)