Liaison access - word

Commenter

Contenu du snippet

Ce code permet de renseigner des zones de texte via Access puis d'enregistrer les modification. Dans le document Word, il faut avoir créer préalablement les zones de texte : DesignationDoc, DesignationProduit, Reference, Indice, date1, validation.

Source / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (isa911)