Discussion :

[caradhras]

Bonjour,

Voilà, j'ai une base de données access dans laquelle j'ai une table Clients. J'ai également un formulaire lié à cette table. Et enfin, j'ai un fichier Word qui est la maquette d'un étiquette à glisser dans un porte document. Bref, j'aimerai créer un bouton sur mon formulaire qui permet lorsqu'on clique dessus d'ouvrir mon document Word et de le compléter par le nom du client et son adresse à des endroits précis de ce document en fonction bien entendu de l'enregistrement sur lequel j'étais sur mon formulaire. J'espère que j'ai pas été trop flou... Enfin bref si quelqu'un à une solution ou même un départ de solution je suis preneur... parce que je sais aps trop comment m'y prendre pour le moment...

[scorpion1611]

Par là peut-etre

[caradhras]

Merci bcp !!! Ce code m'est très utile et en plus pas trop compliqué. Seule petite précision dont j'aurais besoin : Je ne comprend pas bien à quoi correspond "code.value". Pour moi il s'agirait de mettre dans le document word aux endroits où j'aurai mis des bookmarks les champs Client.NOM_CLIENT, Clients.ADRESSE, Clients.CODE_POSTAL, Clients.VILLE.

Et autre chose, je ne comprend aps le système des bookmarks (=signets?) dans Word... (dsl, je débute...)

[scorpion1611]

Personnellement, j'ai viré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim moncode
 
moncode = code.Value

Je pense que cela devait servir à l'auteur du code !!!

et puis, il faut bien sur l'adapter à ta propre base

[caradhras]

Donc tu remplacerai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If code.Value <> "" Then
wdapp.ActiveDocument.Bookmarks("code").Range.Text = code.Value
Else
wdapp.ActiveDocument.Bookmarks("code").Range.Text = "."
End If

par ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
wdapp.ActiveDocument.Bookmarks("nom_du_signet").Range.Text = Clients.NOM_CLIENT

et pareil pour chaque champs en fonction de chque signet ???

[scorpion1611]

Plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 
 
wdapp.ActiveDocument.Bookmarks("nom_du_signet_dans_WORD").Range.Text = Champs_du_formulaire_qui_contient_le_nom_du_client

et pareil pour tous les autres valeurs

[caradhras]

Merci bcp !!! ça marche parfaitement !!!