OVH Cloud OVH Cloud

boite de dialogue suite

1 réponse
Avatar
chaix
Bonjour !

'chaix' nous a écrit ...
> je souhaite automatiser un modèle de document.
> Il faut qu'à l'ouverture de celui-ci une boite de dialogue apparaisse et
> pose la question: "lieu du prélèvement"
> La réponse est "à domicile" ou "au laboratoire" en cliquant la case à
cocher
> correspondante puis ENTER, ce qui doit s'inscrire automatiquement sur le
> document.
> J'ai consulté sans trop la comprendre l'aide de Word. Je pense qu'il faut
> utiliser les insertions de champs mais ne les maitrise pas.

Si on s'en tient /strictement/ à votre demande à savoir
une _boîte_de_dialogue_ comportant des _cases_à_cocher_
il faut dans votre modèle placer une macro AutoNew ouvrant
une UserForm comportant ces contrôles.
Ce que propose André est probablement bien plus simple...

Anacoluthe

SUITE:

Bonjour,

comme suis assez débutant j'ai trouvé sur:
http://www.alpi40.org/Formati/Faqs/Support/Word/Form.htm
la recette pour créer une macro utilisant une UserForm assez proche de ce
que je souhaite.
Celle-ci utilise des zones de textes qui sont automatiquement reportés sur
le document Word.
J'ai donc créer "ma" UserForm "lieu du prélèvement" avec bouton radio "au
domicile" ou "au laboratoire" et un bouton de commande.
Quel texte placer entre:
Private Sub CommandButton1_Click()
et
End Sub
pour que le texte sélectionné s'affiche à l'emplacement su signet sur le
document ?
Comment faire pour que cette macro s'ouvre toute seule à l'ouverture du
modèle ?

Merci d'avance
Olivier Chaix

1 réponse

Avatar
Anacoluthe
Bonjour ! --- merci de rester dans votre fil de discussion :-) ---

'chaix' nous a écrit ...
j'ai trouvé sur:
http://www.alpi40.org/Formati/Faqs/Support/Word/Form.htm
la recette pour créer une macro utilisant une UserForm assez proche de ce
que je souhaite.
Celle-ci utilise des zones de textes qui sont automatiquement reportés sur
le document Word.
J'ai donc créer "ma" UserForm "lieu du prélèvement" avec bouton radio "au
domicile" ou "au laboratoire" et un bouton de commande.
Quel texte placer entre:
Private Sub CommandButton1_Click()
et
End Sub
pour que le texte sélectionné s'affiche à l'emplacement su signet sur le
document ?


Il suffit d'un test du bouton-radio et une insertion
dans le document, soit qqch dans ce genre :
If MaUserform.MonBoutonOption.Value = True Then
MonDocument.Bookmarks("Lieu").Range.InsertAfter "à domicile"
End if

Comment faire pour que cette macro s'ouvre toute seule à l'ouverture du
modèle ?


Placez dans une macro AutoNew du modèle : MaUserForm.Show
(la méthode .Load est implicite dans .Show )

Anacoluthe
« Pourquoi faire simple quand on peut faire compliqué ? »
- Jacques ROUXEL