Automatisation de fusion access vers word

[seb_debutant]

Bonjour,

Je suis actuellement sur la création d'une base de donnée access et je réalise que celle-ci pourrai m'apporter bien plus que de la saisie/consultation.
Si je pouvais l'automatiser.

Je possede 4 tables la 1ere concerne mes clients et les 3 autres concernent des tiers rattaché aux clients (1 client peut avoir plusieurs tiers et 1 tiers peut avoir plusieurs clients).

Chaque client et tiers possedent des courriers propres à eux Aujourdhui je suis obliger à chaque fois de demander la fusion à access et je me demandai si il est possible de créer une macro qui lorsque je click dessus fusionne et imprime directement.

Bien sur pour cela il faut la renseigner sur le courrier correspondant je ne sais pas si l'ideal serai de faire une liste déroulantes avec le nom des courriers et le bouton serai directement rattaché à cette liste ou de créer une requete par courrier et rattaché le bouton à la requete correspondantes

Merci de votre aide pour infos je travail avec access 2002

[Heureux-oli]

Un peu de lecture ici

[seb_debutant]

Merci pour la réponse rapide et dsl pour le double post l'internet ici à un temps de reaction digne des 1er 56k j'ai cliqué 2 fois

[seb_debutant]

Bonjour,

Je n'ai pas encore pu essayer l'exemple (j'attend que l'admin veuille bien me donner acces a mon disque C pour mettre tous mes docs dans le meme dossier).

Cependant si j'ai bien compris le tutorial je vais lier mon document word à un bouton or en fait je voudrais lier mon bouton à un choix d'une liste déroulantes (j'ai plusieurs courriers pour chaques types de table client et tiers).

J'ai deja trouver le tutorial me permettant davoir une liste déroulante en fonction d'une autre liste déroulante.

Il me reste juste a savoir si on peu demander a access d'imprimer un choix d'une liste déroulante.

Pour définir les champs de fusion je travail à partir d'une requete ( cela me permet de définir le ou les courriers en fonctions de mes besoins ) Est ce la bonne solution ou est t'il plus simple de travailler a parti des signet comme proposer dans ton tuto ?

JE suis completement largué à partir de la prtie 1-B-6-c :'(

[Heureux-oli]

Dans cette partie, on va ouvrir un document, copier sur les signets du documents certaines données, imprimer et fermer le document sans enregistrer les changements.

Essaie d'avancer dans ton projet, et chaque fois que tu rencontres un problème, pose la question sur le forum.

Le tuto, devrait te servir de base de développement.

Si tu veux choisir le type de document en fonction d'une liste déroulante, c'est tout à fait possible, il suffit d'ouvrir un modèle correspondant ou un document.

[seb_debutant]

Le petit hic est que je me suis lancé sur un projet acces en tant que utilisateur et pas programmeur j'ai bien essayé de suivre le tuto mais des que sa concerne du codage g limpression que le tuto est plus en français.

J'ai bien reussi a créer un signet dans mon document mais jamais à faire la relation entre celui ci et un champ access

[Heureux-oli]

Un petit essai.

Tu fais un simple formulaire basé sur un table aussi simple.
Sur le formulaire, tu place un bouton sans utiliser l'assistant.

En mode Design de ton formulaire, tu double cliques sur le bouton.
Dans la liste des propriétés tu vas sur la propriété sur clic.

Tu vas voir apparaître un bouton avec trois points.
Tu cliques et tu choisis générateur de code.

Tu devrais ouvrir l'éditeur VBA avec ceci :

Code :

1
2
3
4
 
Private Sub BoutonXX_OnClic()
 
End Sub

Tu va aller dans outils, Références. Ajoute la référence Microsoft Word XX.X à ton projet.
Dans ces lignes de code, tu vas ajouter :

Code :

1
2
3
 
Dim wApp as Word.Application
Dim oDoc as Word.Document

Ces deux lignes servent à déclarer des variables.

On va maintenant affecter des objets à ces variables.

Code :

1
2
Set wApp = CreateObject("Word.Application")
Set oDoc = wApp.Documents.Open("Le chamin de mon document")

Dans ces deux lignes, on attribue un objet Word à wApp et un Document à oDoc.

Dans ton document tu dois avoir avoir un signet par exemple S1

Ensuite, on va attribuer du texte à ce signet.

Code :

1
2
 
oDoc.Bookmarks("S1").Range.Text = Me.UnControledemonformulaire

Ensuite, il faut libérer les objets

Code :

1
2
3
4
wApp.Close
oDoc.Close
set wApp = Nothing
set oDoc = Nothing

Si ils ne sont pas libérés, ils vont occuper une place en mémoire et si ton code tourne 100 fois, tu auras Word ouvert 100 fois.

Il suffit d'aller dans le gestionnaire de tâches pour s'en rendre compte.

[seb_debutant]

Donc j'ai repris ton essai lorsque je suis rentré dans la partie code il etait deja ecrit ceci :

Private Sub Commande0_Click() à la place de Private Sub ButtonXX_OnClick().

[Heureux-oli]

C'est pareil, ton bouton porte le nom de CommandeXX.

[seb_debutant]

ok donc je rentre toute les lignes de code à la suite entre le début et le end sub

G un petit message que je considere comme un progres :

Erreur de compilation

Type défini par l'utilisateur non défini et en subrillance : Private Sub Commande0_Click() (jaune)

[seb_debutant]

Petit edit j'ai deja réparer cette erreur j'en suis a la suivante: .uncontroledemonformulaire il me dit membre de méthode ou de donnée introuvable

[Heureux-oli]

.uncontroledemonformulaire
Représente le nom d'un controle de ton formulaire comme Me.Texte1, ...

[seb_debutant]

Je ne comprend pas vraiment cette erreur dans un premier temps je penser avoir mal renseigner le chemin de destination de mon .doc
Mais je pense l'erreur est sur la ligne .UnControledemonformulaire je ne sais pas se que je dois mettre

[Heureux-oli]

Quand tu tapes Me. normalement, Access te propose une liste déroulante.
Dans cette liste, tu dois retrouver au moins un contrôle de ton formulaire contenant les données de ta table.

[Heureux-oli]

Peut-être plus facile avec un exemple.

[seb_debutant]

Tu pense quil faut que j'abandonne ?

[Heureux-oli]

Jamais.
Que donne l'exemple ?

[seb_debutant]

C'est ton exemple Je l'ai enregistré sur mon disque afin de pouvoir renseigner le chemin du document word lorsque j'ai cliqué il m'a affiché cette erreur.

[seb_debutant]

J'ai reussi à obtenir le meme message d'erreur avec mon exemple c'est deja un bon signe j'ai reussi à suivre les instructions :p

J'ai reussi part pur hasard en utilisant un truc au hasar dans le menu déroulant apres Me. j'ai mis WindowTop ça mouvre le document word "test et sa me marque 375 et j'ai test avec un autre ScrollBars sa me marque 3 dans le document test (je ne sait pas d'ou sorte c'est valeur par contre)
¨
Pourquoi ça marche avec les truc randoms du menu déroulant et pas avec une des données inscrite comme tu avait fait au début dans ton exemple et surtout d'ou sorte ces valeur ?

[Heureux-oli]

Si la DB et le DOC sont dans le même répertoire, il ne faut rien renseigner.
Avant de modifier, regarde ce qui se passe dans le formulaire lorsque tu cliques sur le bouton.
Ensuite, essaie de fairte des changements.
Si tu change avant, tu ne sauras jamais ce qui cloche.
Le chemin du document est récupéré par CurrentProject.Path qui correspond au chemin de la DB.