Sauvegarde d'un fichier selon la valeur du combobox

[Squoltahthx94]

Bonjour,

J'utilise le code suivant

 Dim ChDir As String
    Dim NomFichier As String
    Dim NomCompletFichier As String
    Dim Site As String
    Dim Annee As String 'nom perqsonne
    Dim Matricule As String
    
    ChDir = Application.ActiveWorkbook.Path 'Chemin courant
    'ChDir = "M:\base devis\"
    Site = Me.Range("b5").Value
    'Site = Me.Range("A1").Value
    Annee = "2012"
    Matricule = Me.Range("B7").Value
    'Matricule = Me.range("A2").Value qui est le numéro de devis initial


    NomFichier = Site & "_" & Annee & "_" & Matricule
    'Ligne définitive :
    'NomCompletFichier = ChDir & "\" & NomFichier
    
    'Pour les tests, on ajoute l'heure au nom de fichier ; ainsi, il n'y a pas de doublon de noms
    Dim stHeureExport As String
    stHeureExport = "_" & _
        Format(Hour(Time), "00") & "" & Format(Minute(Time), "00") & "" & _
        Format(Second(Time), "00")
    NomCompletFichier = ChDir & "\" & NomFichier & stHeureExport


    'Copie de la feuille courante dans un nouveau classeur et enregistrement
   Sheets(Array("Proposition", "Cotation")).Copy
    ActiveWorkbook.SaveAs Filename:=NomCompletFichier
    ActiveWorkbook.Close
    
    MsgBox "le fichier a été enregistré sous le nom : " & vbCrLf & NomCompletFichier
        
CommandButton2.Enabled = True 'je permet la mise en place des prix

Pour enregistrer le fichier excel sous un certains format.
Je souhaiterais que celui-ci maintenant l'enregistre directement dans le répertoire dont la valeur est contenue dans le combobox1 de l'userform1...quelqu'un aurait-il une idée ? Je me doute que je dois insérer quelque chose comme userform1.combobox1.value quelque part mais je ne vois pas comment faire et les quelques essais mené ce sont révélé infructueux.

Merci d'avance