Récupérer valeur combobox pour impression excel/word

Private Sub UserForm_Initialize()
  Set MonDico = CreateObject("Scripting.Dictionary")
  For Each c In Range("catégorie")
    If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
  Next c
  Me.ComboBox1.List = MonDico.items
End Sub
Private Sub ComboBox1_Change()
  Set MonDico = CreateObject("Scripting.Dictionary")
  For i = 1 To Range("Produit").Count
    If Range("Catégorie")(i) = Me.ComboBox1 Then
      temp = Range("Produit")(i)
      If Not MonDico.Exists(temp) Then MonDico.Add temp, temp
    End If
  Next i
  Me.ComboBox2.List = MonDico.items
  Me.ComboBox2.ListIndex = -1
  Me.ComboBox3.ListIndex = -1
End Sub
Private Sub ComboBox2_Change()
  Set MonDico = CreateObject("Scripting.Dictionary")

  For i = 1 To Range("Detail").Count
    If Range("Produit")(i) = (Me.ComboBox2) And Range("Catégorie")(i) = Me.ComboBox1 Then
       temp = Range("Detail")(i)
       If Not MonDico.Exists(temp) Then MonDico.Add temp, temp
    End If
  Next i
  Me.ComboBox3.List = MonDico.items
  Me.ComboBox3.ListIndex = -1
  
  
End Sub
Private Sub ComboBox3_Change()

''''MsgBox ("text")
''''Msg = "Vous avez choisi:   " & ComboBox1.Value & "/" & (ComboBox2.Value) & "/" & ComboBox3.Value
''''  Style = vbOKOnly + vbInformation
''''   Title = "Plactic Omnium"
''''   Response = MsgBox(Msg, Style, Title)
Monfichier = ComboBox1.Value & "/" & (ComboBox2.Value) & "/" & ComboBox3.Value
MsgBox (Monfichier)
   Call ouvrirDocWord_Impression
End Sub

Sub ouvrirDocWord_Impression() 'necesite d'activer la reference Microsoft Word xx.x Object Library (=> outils => references)

Dim appWrd As Object
Dim docWord As Object
Dim Message As String
Dim Default As Integer
Dim Fichier As String
Dim Title As String
Dim Monfichier As String

Message = "Entrez le nombre d'étiquettes souhaités :"
Title = "PARAMETRES IMPRESSION ETIQUETTES"
Default = "1"

MsgBox Monfichier

Message_Texte = InputBox(Message, Title, Default)
        Controle_Message_Texte = IsNumeric(Message_Texte)
        
            If Controle_Message_Texte = False Then
            
                Message_Texte = MsgBox("Veuillez entrer une valeur numérique", vbCritical)
                
            Else
            
                Nombre_Impression = Message_Texte
                
                   Set AppWord = CreateObject("Word.Application")
                   Set docWord = AppWord.Documents.Open("D:\Programme_etiquettes\Etiquettes\Monfichier.doc", ReadOnly:=True)
                   
                   AppWord.Visible = False
                   AppWord.PrintOut Copies:=Nombre_Impression
                   
                   MsgBox ("UNE FOIS L'IMPRESSION TERMINEE VOUS POUVEZ APPUYER SUR N'IMPORTE QUEL TOUCHE") 'contrôle de la fin d'impression
                   
                   AppWord.Quit
                   Set AppWord = Nothing
                   Set docWord = Nothing
                   
            End If

Sheets(1).Activate 'activation de la feuille1
ActiveSheet.Range("E7").Activate 'retour en D18

End Sub

 Set docWord = AppWord.Documents.Open("D:\Programme_etiquettes\Etiquettes\Monfichier.doc", ReadOnly:=True)