Créer un dossier et enregistrer un fichier dedans

Bonjour le forum,

J'ai une question bête mais je n'ai pas trouvé la solution et il me faut votre aide.

Je voulais créer un dossier (j'ai réussi à le faire finalement) mais dans ce dossier je voulais sauvegarder un doc Word que j'ai rempli par Excel, je n'arrive pas à le faire.

Voici mon code:

Sub test
'Dim nomDossier As String, cheminDos As String, doss As String

    'cheminDos = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
            'doss = Sheets("Clients Gagnés 2021").Range("D" & i + 1)
            'CreationRepertoire cheminDos, doss
            'nomDossier = cheminDos & doss

    nom_fichier = nomDossier & "\Courrier accueil" & ".doc"
    WordDoc.SaveAs2 Filename:=nom_fichier
end sub
 Sub CreationRepertoire(DossierParent As String, NomRep As String)
    Dim Chemin As String

    'Vérifie si le répertoire existe.
    If Dir(DossierParent, vbDirectory + vbHidden) <> "" Then
        'Vérifie que le dossier à créer n'existe pas déjà dans le répertoire
        If Dir(DossierParent & "\" & NomRep, vbDirectory + vbHidden) = "" Then _
            MkDir DossierParent & "\" & NomRep
    End If
End Sub

Qqn peux m'aider :(

Je n'ai pas eu le courage d'essayer de reconstituer ton fichier, mais il y a un truc qui m'a surpris :

C'est MkDir DossierParent & "\" & NomRep

Ca, ça ne marche pas.

Avant de créer NomRep, il faut d'abord créer DossierParent. Un truc du genre :

dossier = ThisWorkbook.Path & "\NomRep"
MkDir dossier
dossier = ThisWorkbook.Path & "\NomRep\DossierParent"
MkDir dossier