LIAISON ACCESS - WORD

Dim AppWord as Object

' Déclare une variable objet destinée à contenir la référence de l'objet. Dim AppWord as Object entraîne une liaison à l'exécution.
    On Error GoTo err
    Set AppWord = CreateObject("Word.Application")
    '    Rend la fenetre invisible
    AppWord.Visible = False
    '    Ouvre le documents spécifié
    Set wordsheet = AppWord.Documents.Open(Chemin d'acces complet au document)
    wordsheet.DesignationDoc = Module1.desidoc
    wordsheet.DesignationProduit = Module1.desi
    wordsheet.Reference = Module1.Reference
    wordsheet.Indice = Module1.Indice
    wordsheet.date1 = Date
    wordsheet.validation = "DOCUMENT NON VALIDE, en cours de création"
    wordsheet.SaveAs Chemin d'acces complet au document
    AppWord.Quit
    Set wordsheet = Nothing
    Set AppWord = Nothing
err:
    If err.Number <> 0 Then
        AppWord.Quit
        MsgBox err.Description
        Set wordsheet = Nothing
        Set AppWord = Nothing
    End If
End Function