Copier le résultat d'un champ dans un autre [Résolu]

[Smurf94]

Bonjour(re),
Je souhaite que le résultat d'un champ dans un document Word soit celui d'un autre champ de ce même document Word. J'ai tenté sans grand succès :

Code :

1
2
3
4
Public Sub UserForm_Initialize()
ActiveDocument.FormFields("Texte1").Result = ("Texte95").Result
Defauts.Hide
End Sub

Avez-vous une idéé?
Merci !

[Heureux-oli]

Tu dois à nouveau faire appel au document.

Code :

1
2
3
4
Public Sub UserForm_Initialize()
ActiveDocument.FormFields("Texte1").Result = ActiveDocument.FormFields("Texte95").Result
Defauts.Hide
End Sub

[Smurf94]

Merci. Le code marche mais la userform apparait à chaque fois que la macro est lancée alors que je ne souhaite pas la montrer(et je dois la fermer). Voici le code:

Code :

1
2
3
4
Public Sub UserForm_Initialize()
ActiveDocument.FormFields("Texte1").Result = ActiveDocument.FormFields("Texte95").Result
Copie.Hide
End Sub

et le module:

Code :

1
2
3
4
5
Sub gocomboboxCopieNumBL()
 
   Copie.Show
 
End Sub

(en mettant Copie.Hide , ca marche une fois mais qd je reclique sur le champ il ne se met plus à jour si la cellule copiée a été mise à jour).
Par ailleurs l'idéal serait que le 2nd champ se remplisse tout seul en même temps que l'utilisateur rempli le 1er (sans avoir besoin de cliquer sur le 2nd
champ pour activer la macro); Est ce possible .?
Merci d'avance
Nicolas

[Heureux-oli]

Explique ce que tu veux vraiment faire, je pense qu'on n'est pas sur la bonne voie.

[Smurf94]

En fait, je veux créer deux formulaires sous Word, à remplir successivement.
Je les ai mis dans le même document. Certains champs remplis dans 1er formulaire doivent être repris dans le second et j'aurais souhaité que cela se fasse automatiquement, afin de ne pas avoir à reprendre les infos de l'un à l'autre.
J'avais donc pensé à une macro qui copierait les infos d'un champ à un autre, mais s'il est possible que cela se remplisse sans macro (??) en écrivant simultanément dans 2 champs ça serait mieux.
Voilà j'espère avoir été clair.

[Heureux-oli]

Formulaire, serait-ce des documents ou des UserForm ?

Si il s'agit de documents, on peut y arriver sans macro.

[Smurf94]

Ce ne sont que des documents dans lesquels j'insère des champs à partir de la barre d'outil formulaire.

[Heureux-oli]

Alors, on peut toujours utiliser un champ ou simplement un code qui sera exécuté après remplissage du TextBox.
Au départ, je pensais que tu utilisais un UserForm.

Dans les propriétés des FormFields, on peut exécuter une macro sur l'entrée ou sur la sortie.

Jette un oeil ici

[Smurf94]

Tu connais une possibilité de le faire sans macro dans un doc ? i am interested

[Smurf94]

Merci pour le lien mais comment faire pour que cette macro me copie la valeur d'un champ lambda quand celui ci est rempli ?

[Heureux-oli]

Code :

1
2
3
4
 
Sub Copier()
ActiveDocument.FormFields("Texte1").Result = ActiveDocument.FormFields("Texte95").Result
End Sub

[Smurf94]

Désolé mais ce n'est pas clair pour moi.
Ma démarche:
- Je crée un champtexte1 dans mon 1er formulaire et un champtexte2 dans le 2nd.
- je vais dans VB afin de créer la macro d'entrée:
- je crée un userform (CopiageNom) dans lequel je copie ton code
- je crée un module avec le code suivant qui appel la userform:

Code :

1
2
3
4
5
Sub Copie()
 
   CopiageNom.Show
 
End Sub

- j'associe en sortie le champtexte1 a la macro Copie.
RESULTAT:
La copie s'effectue mais la userform apparait et je ne souhaite pas (je veux que l'opération ne se voit pas. Comment ne pas la faire apparaître ?

[Heureux-oli]

Pas de UserForm !!

Le lien vers le tuto ne parle pas de userform !

[Heureux-oli]

Voilà un exemple, il faut ouvrir les deux documents, après mise à jour du premier champs du document1, le document2 est mis à jour.

[Smurf94]

J'ai une version de word trop ancienne pour lire tes fichiers et ne peux telecharger le module de compatibilité. Peux tu les mettre sous un format moin récent?
Gracias

[Heureux-oli]

Voilà, si tu avais dit que ton ordi avait besoin de silex !!

[Smurf94]

Je reviens un peu tard sur le tard sur le sujet, mais ça marche. Merci!