SaveAs word depuis excel sur chemin relatif

Bonjour,

Je cherche depuis un moment et essayé plusieurs solution mais j'ai toujours un soucis.

J'ai créé un fichier excel qui commande via une macro vba la création d'un fichier word. Cette macro commande aussi l' "enregistrer sous" du fichier word avec un nom défini. Jusqu'ici, ça fonctionne.

Mon problème est que je n'arrive pas à trouver le code qui permet d'enregistrer le fichier word au même endroit que mon fichier excel. A chaque fois, le fichier est enregistré sur le bureau, mes documents ou bien les fichiers temporaires.
Comme il s'agit d'un fichier qui peut-être utilisé depuis plusieurs postes et par différents utilisateurs, je souhaite enregistrer le fichier word généré dans un dossier uniquen avec mon fichier excel.

J'ai ceci:

    Dim NomFichier As String
    Dim Chemin As String
    
    With ThisWorkbook
    Chemin = ThisWorkbook.Path
    End With
    
    With ThisWorkbook.Worksheets("PrepaPrint")
    NomFichier = ThisWorkbook.Worksheets("PrepaPrint").Range("W2").Value
    End With
    
    ChangeFileOpenDirectory _
         Chemin
    DocWord.SaveAs Filename:=NomFichier, FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False

Pouvez-vous me dire où je me trompe?
J'ai essayé la commande ChDir à la place de ChangeFileOpenDirectory, mais ça ne fonctionne pas non plus.

Merci d'avance pour votre aide.