Liaison access - word

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 270 fois - Téléchargée 68 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

Messages postés
5
Date d'inscription
dimanche 15 mars 2009
Statut
Membre
Dernière intervention
27 mai 2009

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.
Messages postés
63
Date d'inscription
mercredi 28 février 2001
Statut
Membre
Dernière intervention
25 novembre 2010

Ce n'est pas une zone de Texte avec la barre de Dessin qu'il faut faire mais avec la barre "VBA".
Messages postés
25
Date d'inscription
mardi 11 février 2003
Statut
Membre
Dernière intervention
6 mai 2008

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.