Discussion :

[Maître Kenobi]

ok, as-tu une zone de texte qui s'appelle "code" ?

[mathilde50]

Non. C'est pour ça alors que ça marche pas, je suis trop nulle!!!

Bon j'ai remplacé "Code" par "Numéro" et ça fonctionne mais j'ai maintenant une erreur à :

Code :

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

wdapp.ActiveDocument.Bookmarks("Numéro").Range.Text = " "

Le message d'erreur indique : "Erreur d'exécution 5941 : le membre de la collection requis n'existe pas".

J'ai aussi une petite question pour que je comprenne bien le code. Dans la FAQ tu indique que tous les signets vont être remplit à condition de nommer de la même manière les signets et les zones de texte. Peux-tu me dire par quel moyen VB fait ça et avec quelle fonction?

Merci

[Maître Kenobi]

alors, il faut que tu énumères tous les champs que tu veux retrouver dans word. apres dans word, il faut que tu crées tes signets avec le meme nom que tes champs sous access.

[mathilde50]

houlàlà je crois que j'ai besoin d'aide

Je t'explique, j'ai fait mon modèle de document Word, ça pas de problème. Mes signets ont le même nom que mes champs. Jusque là tout va bien. Mais comment je fais pour énumérer tous mes champs dans mon code VB? et à quel endroit?

[Maître Kenobi]

quand je disais énumérer, c'etait pour préparer en fait.
donc si tu as ta liste de champs = aux signets, ca ne devrait plus poser de probleme pour le code alors.
je vais donc reprendre tout le code que tu m'as donné, pour mieux t'expliquer comment l'adapter à tes besoins.
1ere adaptation :

Dim moncode

moncode = Code.Value

wdapp.ActiveDocument.SaveAs "j:\Doc_Atelier\td138\" & moncode & ".doc"

Là il s'agit de créer une variable "moncode" pour pouvoir nommer le fichier word par ce nom de code. En l'occurrence, si j'ai bien compris, tu veux appeler tes fichiers word par ton "numéro". tu dois donc modifier comme ceci :

Dim monnumero
monnumero = numéro.Value

Ensuite, 2eme adaptation, l'attribution des valeurs de champ aux signets :
il faut prendre ce code comme exemple à adapter à tes propres champs :

If Code.Value <> "" Then
wdapp.ActiveDocument.Bookmarks("code").Range.Text = Code.Value
Else
wdapp.ActiveDocument.Bookmarks("code").Range.Text = " "
End If

Ce qui donnerait :

If numéro.Value <> "" Then
wdapp.ActiveDocument.Bookmarks("numéro").Range.Text = numéro.Value
Else
wdapp.ActiveDocument.Bookmarks("numéro").Range.Text = "."
End If

et ceci pour chaque champ !

[mathilde50]

Yahouhouhouhouhou!!!!!!!!!!!!!!!!!!!




Ca MAAAAAAAAAAAAAAAARCHEEEEEEEEEEEEEEEEEEE!!!!!!!!!

Merci merci merci merci merci

Je ne te remercierai jamais assez obipadawan, je peux maintenant mettre [Résolu]

Encore merci et à bientôt

[Maître Kenobi]

bin........... pas d'quoi !