OVH Cloud OVH Cloud

macro et champs texte

5 réponses
Avatar
flo
bonjour,

J'ai créé un champ texte auquel j'ai attribué dans la zone signet le nom :
DateDeb.
J'ai créé une macro ( qui s'execute au démarrage) dont le texte est le
suivant :
MyValue = InputBox("Entrez la date de début de période :", "Emploi
temporaire", "")

Mon problème est le suivant :
je voudrais attribuer à DateDeb la valeur de MyValue.
Mais je ne sais pas comment faire.
Merci d'avance pour votre aide.

5 réponses

Avatar
Anacoluthe
Bonjour !

'flo' nous a écrit ...
J'ai créé un champ texte auquel j'ai attribué dans la zone signet le nom :
DateDeb.
J'ai créé une macro ( qui s'execute au démarrage) dont le texte est le
suivant :
MyValue = InputBox("Entrez la date de début de période :", "Emploi
temporaire", "")
Mon problème est le suivant :
je voudrais attribuer à DateDeb la valeur de MyValue.
Mais je ne sais pas comment faire.


Ajoutez la ligne
ActiveDocument.Formfields("DateDeb").Result = MyValue

L'opération échoue si le champ texte 'DateDeb' étant de type Date
MyValue n'est pas une date valide. Vous avez alors intérêt à tester
la validité de MyValue retournée par votre InputBox.

Anacoluthe
« Même la petite rosée fait prospérer le champ. »
- Christian JACQ

Avatar
flo
Ok ça marche. Mais j'ai encore un petit problème.
Je voudrais faire apparaître la valeur du signet "DateDeb" dans le corps de
mon document.
J'ai donc fait insertion/renvoi et j'ai sélectionné DateDeb mais ça ne
marche pas.
A l'emplacement du renvoi, la valeur n'apparaît pas.
Pour info, mon champ et mes remvois sont dans deux sections différentes.
Comment puis-je faire pour que mes renvois fonctionnent.
Merci d'avance pour votre aide.


Bonjour !

'flo' nous a écrit ...
J'ai créé un champ texte auquel j'ai attribué dans la zone signet le nom :
DateDeb.
J'ai créé une macro ( qui s'execute au démarrage) dont le texte est le
suivant :
MyValue = InputBox("Entrez la date de début de période :", "Emploi
temporaire", "")
Mon problème est le suivant :
je voudrais attribuer à DateDeb la valeur de MyValue.
Mais je ne sais pas comment faire.


Ajoutez la ligne
ActiveDocument.Formfields("DateDeb").Result = MyValue

L'opération échoue si le champ texte 'DateDeb' étant de type Date
MyValue n'est pas une date valide. Vous avez alors intérêt à tester
la validité de MyValue retournée par votre InputBox.

Anacoluthe
« Même la petite rosée fait prospérer le champ. »
- Christian JACQ




Avatar
Anacoluthe
Bonjour !

'flo' nous a écrit ...
Ok ça marche. Mais j'ai encore un petit problème.
Je voudrais faire apparaître la valeur du signet "DateDeb" dans le corps de
mon document.
J'ai donc fait insertion/renvoi et j'ai sélectionné DateDeb mais ça ne
marche pas.
A l'emplacement du renvoi, la valeur n'apparaît pas.
Pour info, mon champ et mes remvois sont dans deux sections différentes.
Comment puis-je faire pour que mes renvois fonctionnent.


Il faut les mettre à jour (F9). S'agissant de formulaire vous pouvez
mettre les champs à jour à chaque sortie d'un champ de formulaire
en cochant 'Calculer à la sortie' dans ses propriétés.

Anacoluthe
« Même la petite rosée fait prospérer le champ. »
- Christian JACQ

Avatar
flo
Bonjour,

J'ai essayé en faisant F9 mais les valeurs n'apparaissent pas dans le corps
de mon texte où j'ai placé les signets.
Comment faire?
Merci de votre aide


Bonjour !

'flo' nous a écrit ...
Ok ça marche. Mais j'ai encore un petit problème.
Je voudrais faire apparaître la valeur du signet "DateDeb" dans le corps de
mon document.
J'ai donc fait insertion/renvoi et j'ai sélectionné DateDeb mais ça ne
marche pas.
A l'emplacement du renvoi, la valeur n'apparaît pas.
Pour info, mon champ et mes remvois sont dans deux sections différentes.
Comment puis-je faire pour que mes renvois fonctionnent.


Il faut les mettre à jour (F9). S'agissant de formulaire vous pouvez
mettre les champs à jour à chaque sortie d'un champ de formulaire
en cochant 'Calculer à la sortie' dans ses propriétés.

Anacoluthe
« Même la petite rosée fait prospérer le champ. »
- Christian JACQ




Avatar
Anacoluthe
Bonjour !

'flo' nous a écrit ...
J'ai essayé en faisant F9 mais les valeurs n'apparaissent pas dans le corps
de mon texte où j'ai placé les signets.
Comment faire?


Peut-être un petit tour sur le didacticiel des champs ? :-)
http://faqword.free.fr/articles.php?lng=fr&pg2

Anacoluthe
« Même la petite rosée fait prospérer le champ. »
- Christian JACQ