|
Cette astuce va
vous permettre de créer un formulaire simple sous Word destiné, une fois rempli,
à aller garnir des zones du document prédéfinies ... On pourrait imaginer par
exemple de créer un formulaire pour l'adresse du destinataire, mais les
applications sont quasiment infinies ...
Créez un nouveau
document Word que vous nommerez par exemple "Formulaire".
Appuyez sur la
touche "Entrée" trois fois afin de créer trois marques de paragraphes (elles
seront visibles à l'écran si vous avez activé l'icône
).
Cliquez au niveau
de la première marque, et sélectionnez le menu "Insertion - Signet".
Nommez votre signet "Text1" comme le montre la figure ci - dessous et cliquez sur
le bouton "Ajouter".

Faites la même
chose au niveau de la troisième marque, nommez cette fois - ci votre signet
"Text2" et cliquez sur le bouton "Ajouter".
Ouvrez le menu
"Outils - Macros - Visual Basic Editor". Lorsque l'éditeur est lancé,
choisissez "Insersion - User Form". Un objet est créé comme le montre la
figure ci - dessous.

Repérez la
fenêtre "Boîte à outils" et cliquez sur l'icône
.
Cliquez ensuite dans le formulaire afin d'obtenir l'implantation d'une zone de
texte (cf. ci-dessous). Répétez une fois l'opération pour avoir deux zones,
cliquez deux fois (pas de double-clic) dans la première zone et inscrivez par
exemple : Votre nom ici. Répétez l'opération sur la deuxième zone en
inscrivant cette fois - ci : Votre prénom ici.

Sélectionnez
maintenant l'outil "Bouton de commande"
et cliquez sur le formulaire. Une fois mis en place, faites un double-clic sur
le bouton, une fenêtre apparaît indiquant :
Private Sub
CommandButton1_Click()
End Sub
Cliquez
entre ces deux lignes afin d'y insérer le texte suivant :
With
ActiveDocument
.Bookmarks("Text1").Range _
.InsertBefore TextBox1
.Bookmarks("Text2").Range _
.InsertBefore TextBox2
End With
UserForm1.Hide
Modifiez la
légende du bouton en inscrivant dans la propriété "Caption", le mot "Valider"
en lieu et place de "CommandButton1".

Fermez la
fenêtre "Visual Basic" : vous retrouvez votre document Word. Créez
maintenant une macro destinée à lancer le formulaire. Sélectionnez le menu "Outils
- Macro - Nouvelle macro". Nommez la macro "Affiche_form",
sélectionnez "Formulaire" (le nom de votre document) dans la zone de liste "Enregistrer
la macro dans", et enfin cliquez sur le bouton "Barres d'outils".

Une fenêtre
s'affiche (cf. ci-dessous) : cliquez et faites glisser l'élément :
"Project.Newmacros.Affiche_form"
vers une barre
d'outils en haut de votre écran (un bouton sera créé lorsque vous relâcherez le
bouton de la souris). Notez que le curseur se transforme en
l
si vous pouvez déposer l'élément ...

Cliquez sur
l'icône
afin de stopper l'enregistrement. Allez ensuite dans le menu "Outil - Macro -
Macro" et cliquez sur le bouton "Modifier". Insérez le texte :
Load
UserForm1
UserForm1.Show
Afin d'obtenir ceci :
Sub
Affiche_form()
'
' Affiche_form Macro
' Macro enregistrée par d-robino
'
Load UserForm1
UserForm1.Show
End Sub
Sauvegardez
votre document Word. Pour lancer le formulaire, cliquez sur le bouton:

remplissez les
champs et cliquez sur le bouton "Valider" : le contenu des deux champs
apparaît au bon endroit (celui des signets). Il ne vous reste plus qu'à adapter
cet exemple à vos futurs documents !
Cette astuce vous a plu ? Faites-nous
le savoir
|