Lancer Word depuis un UF et récupérer des cellules

Private Sub CommandButton1_Click()
    Set wrdApp = CreateObject("Word.Application" ) 
    On Error GoTo Line1 
    Set wrdDoc = wrdApp.Documents.Open("C:\x.doc" ) 
    wrdApp.Visible = True 
    Exit Sub 
Line1: 
    MsgBox "Le fichier 'x' doit être placé dans le répertoire 'C:\x.doc'", vbOKOnly +vbExclamation, "Attention" 
End Sub

LINK  Excel.Sheet.8 "C:\\Documents and Settings\\PBX\\Bureau\\classeur1.xls" "Feuil1!RnligneCncolonne" \4\8

Private Sub CommandButton1_Click()
    Dim appWd As Word.Application
    Dim docWd As Word.Document
    Set appWd = CreateObject("Word.Application")
    appWd.Visible = True
    Set docWd = appWd.Documents.Open("C:\Test.doc")
    docWd.Fields(1).Result.Text = TextBox1  'si tu n'as qu'un seul champs
    Set appWd = Nothing
    Set docWd = Nothing
    'Unload Me
End Sub

Private Sub CommandButton1_Click()
    Dim appWd As Word.Application
    Dim docWd As Word.Document
    Set appWd = CreateObject("Word.Application")
    appWd.Visible = True
    Set docWd = appWd.Documents.Open("C:\Test.doc")
    docWd.Fields(1).Result.Text = TextBox1  'si tu n'as qu'un seul champs
    docWd.PrintOut
    docWd.Close SaveChanges:=False
    appWd.Quit
    Set appWd = Nothing
    Set docWd = Nothing
    'Unload Me

End Sub