Discussion :

[Francois022]

Bonjour tous,

Dans un formulaire "lettre client", j'aimerais récupérer la formule de politesse insérée au début via une liste déroulante de choix (Chère Madame, cher Monsieur) pour l'insérer automatiquement dans un champ "salutations" (veuillez agréer, chère Madame, cher Monsieur, l'expression de nos salutations les meilleures). Quelqu'un aurait la solution? Mes recherches sur internet n'ont rien donné que je puisse utiliser,

Merci d'avance et bonne journée.
François

[78chris]

Bonjour

Il faut que le champ de la formule de politesse soit dans un signet et faire un envoi vers ce signet.

[Francois022]

Chris,

Merci de cette proposition, mais j'ai déjà essayé sans succès. J'ai inséré dans le champ 2 un renvoi vers le signet du champ 1, mais il faut actualiser le formulaire pour qu'une modification soit prise en compte ce je ne veux pas. Il faut que ce soit totalement transparent pour les utilisateurs.

Ce que je voudrais, c'est créer une macro qui serait activée à la sortie du champ 1 et qui récupérait la valeur du champ 1 pour mettre à jour le champ 2.

[78chris]

Re

Le renvoi ne doit pas être dans un champ.

L'actualisation se fait automatiquement à l'impression (sur 2007 et suivante, sur précédentes si le paramétrage de Word a bien été fait) sinon il faut effectivement un code pour actualiser l'ensemble du document en temps réel.

[Francois022]

Je préfère la solution code qui permet à l'utilisateur de voir immédiatement que le champ a été actualisé. Tu aurais une suggestion? J'ai jeté un coup d'oeil sur les excellents tutoriaux d'Heureux-oli mais je n'ai pas trouvé.

[Francois022]

Trouvé:

Code :

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

1
2
3
4
5
Sub InsertionCivilite()
Dim stCivilite As String 'récupération de la civilité
    stCivilite = ActiveDocument.FormFields("CiviliteIntroduction").Result
    ActiveDocument.FormFields("CiviliteSalutations").Result = stCivilite
End Sub

[78chris]

Re

Pour actualiser tous les champs et autres aspects dynamiques du document

Code :

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

1
2
 Selection.WholeStory
    Selection.Fields.Update

que tu peux appeler à chaque sortie de champ dans ce cas (ajouter le repositionnement du point d'insertion)