Préambule
Le modèle et ses signets
Créer une boîte de dialogue : Userform
Ajouter des contrôles Intitulés et Zones de texte
Les autres contrôles et leurs propriétés : boutons de commande, image et UserForm
Insérer du code : bouton "Annuler"
Insérer du code : bouton "Valider" - Positionner le curseur dans le document Word
Insérer du code : bouton "Valider" - Insérer le contenu de la boîte de dialogue
Insérer du code : bouton "Valider" - Insérer un retour chariot dans Word
Refermer la boîte de dialogue
Lancer la macro à l'ouverture du modèle

Conclusion

Télécharger fichier exemple

Télécharger la Userform finalisée (avec le code !)

Dessiner sa boîte de dialogue

Refermer la boîte de dialogue

Vous l'avez constaté : si nous renseignons notre boîte de dialogue et cliquons sur le bouton "Valider", les informations sont bien insérées dans notre document Word... mais la boîte de dialogue reste affichée.

Il faut donc insérer une ultime instruction dans notre code pour résoudre cet épineux problème. Faisons court et simple : unload me (ou unload Userform1) est notre instruction. Le code final est donc :

Private Sub ok_Click()
Selection.GoTo , , , "date"
Selection.InsertAfter datel
Selection.Goto , , , "adresse"
Selection.InsertAfter societe & chr(10) & contact & chr(10) & rue1 & chr(10) & rue2 & chr(10) & cp & " " & ville
Selection.GoTo , , , "vosref"
Selection.InsertAfter vosref
Selection.GoTo , , , "nosref"
Selection.InsertAfter nosref
Selection.GoTo , , , "objet"
Selection.InsertAfter objet
Selection.GoTo , , , "pj"
Selection.InsertAfter pj
Selection.GoTo , , , "salutation1"
Selection.InsertAfter salutation
Selection.GoTo , , , "salutation2"
Selection.InsertAfter salutation
Selection.GoTo , , , "signataire"
Selection.InsertAfter signataire
Selection.GoTo , , , "titre"
Selection.InsertAfter titre
Selection.GoTo , , , "debut"
Unload me
End Sub

Passer par l'éditeur vb pour lancer la macro n'est pas commode ni à la portée de tous. Il existe forcément une alternative que je vous invite à découvrir.

Haut

Niveau

• Aucun

Pour affecter du code à un bouton : double-clic sur ledit bouton

Refermer une Userform : Unload nom_de_la_feuille

Atteindre un signet Word :
selection.goto, , , "nom_du_signet"

Insérer le contenu d'un contrôle :
selection.insertAfter nom_du_contrôle

Insérer un paragraphe : chr(10)

Concaténer des chaînes : &

Insérer un espace : " "

Refermer une boîte de dialogue : unload me