Liaison access - word

0/5 (3 avis)

Snippet vu 13 471 fois - Téléchargée 71 fois

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

Ajouter un commentaire Commentaires
cs_Gatinho Messages postés 5 Date d'inscription dimanche 15 mars 2009 Statut Membre Dernière intervention 27 mai 2009
27 mai 2009 à 09:04
Bonjour toutes et tous,

Je débute en informatique et je désirerais piloter Word 2003 au départ d’un programme écrit en VB2008.
Pour ce faire, je voudrais savoir ou je puis trouver une documentation (codes et commandes) qui me permettrait de générer des mises en pages de rapports, la création de tableaux, gestion des différentes cellules de celui-ci, la personnalisation des textes du type publipostage, la gestion couleurs … etc.
Je vous remercie d’avance.
isa911 Messages postés 63 Date d'inscription mercredi 28 février 2001 Statut Membre Dernière intervention 25 novembre 2010
10 oct. 2005 à 08:37
Ce n'est pas une zone de Texte avec la barre de Dessin qu'il faut faire mais avec la barre "VBA".
ogaudicheau Messages postés 25 Date d'inscription mardi 11 février 2003 Statut Membre Dernière intervention 6 mai 2008
7 oct. 2005 à 17:20
SAlut, c'est tout a fait le code que je cherche seulement après avoir essayer ça marche pas tout à fait. Aucun problème jusqu'au moment ou l'appli vb doit écrire sous word. j'ai fais une zone de texte sous word avec l'outils de zone de texte dans la barre dessin mais c'est ça qui doit coincer. tu peut me filler plus de renseignement à ce sujet?? merci d.t.o@wanadoo.fr

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.