Sub ControleSiDocumentWordOuvert()
    Dim Appli As Word.Application
    Dim WordDoc As Word.Document
    
    'nécéssite d'activer la reference Microsoft word xx.x 0bject Library
    On Error Resume Next
    Set Appli = GetObject(, "Word.Application")
    Set WordDoc = Appli.Documents("C:\Documents and Settings\dossier\monFichier.doc")
    On Error GoTo 0
    
    If WordDoc Is Nothing Then
        MsgBox "Le document est fermé"
        Else
        MsgBox "Le document est ouvert"
        'WordDoc.Close 'fermeture application Word
    End If
End Sub

Sub Donnees_ChampWord()
    'Nécessite d'activer la référence "Microsoft Word xx.x Object Library"
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    
    'ouvre session word
    Set WordApp = New Word.Application
    'ouvre du document Word
    Set WordDoc = WordApp.Documents.Open("C:\monFichier.doc")
    'word est masqué pendant l'opération
    WordApp.Visible = False
    
    
    'Fields(1) : premier champ du document Word
    'Insertion du contenu de la cellule A1 dans le champ.
    WordDoc.Fields(1).Result.Text = Range("A1")
    
    'Si le champ est dans un entête, utilisez:
    'WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields(1).Result.Text

    'Récupère le contenu du champ
    MsgBox WordDoc.Fields(1).Result.Text
    
    'Ferme le document word en sauvegardant les modifications
    WordDoc.Close True
    'ferme la session Word
    WordApp.Quit
End Sub

'------------------------
'Procédure Excel:
'nécessite d'activer la référence "Microsoft Word xx.x Object Library"
'
Private Sub CommandButton1_Click()
    Dim wordApp As Word.Application
    Dim wordDoc As Word.Document
    Dim monParametreVB As String
    
    Set wordApp = New Word.Application
    wordApp.Visible = True
    'ouverture du document Word
    Set wordDoc = wordApp.Documents.Open("C:\monDocument.doc")
    
    monParametreVB = "azerty"
    'déclenchement de la macro Word
    'Remarque : la macro Word doit etre placée au niveau de ThisDocument
    wordDoc.NomMacro monParametreVB
End Sub
'------------------------

'------------------------
'L'exemple de procédure Word à placer au niveau du module objet "ThisDocument".

Option Explicit

Sub NomMacro(maVariableWord As String)
    ThisDocument.Range.Text = maVariableWord
End Sub
'------------------------