Comment faire pour créer une zone de liste déroulante de Word qui possède plus de 25 éléments à partir d’une base de données de Microsoft Access

Dans Microsoft Office Word 2003 et version antérieure, pointez sur Macro dans le menu Outils , puis cliquez sur Visual Basic Editor.

Dans Word 2007, cliquez sur l’onglet développeur , puis cliquez sur Visual Basic Editor

Dans la fenêtre projet , sélectionnez votre TemplateProject.

Remarque: si la fenêtre projet n’apparaît pas, cliquez sur Explorateur de projets dans le menu affichage .

Dans le menu Insertion , cliquez sur UserForm. Un nouvel objet UserForm et la Boîte à outils des contrôles doivent apparaître. Avec le bouton droit à l’intérieur de l' objet UserForm, puis cliquez sur Afficher le Code dans le menu contextuel. Ajoutez le code suivant à l’événement Initialize :

Option Explicit
'Define Variables

Private Sub UserForm_Initialize()

Dim dbDatabase As Database
Dim rsNorthwind As Recordset
Dim i As Integer
Dim aResults()

' This code activates the Database connection. Change 
' the path to reflect your database.
Set dbDatabase = OpenDatabase("C:\My Documents\NorthWind.mdb")

' This code opens the Customers table.  Change the Table 
' to reflect the desired table.
Set rsNorthwind = dbDatabase.OpenRecordset("Customers", dbOpenSnapshot)

i = 0

   With rsNorthwind
   ' This code populates the combo box with the values 
   ' in the CompanyName field.

      Do Until .EOF
         ComboBox1.AddItem (i)
         ComboBox1.Column(0, i) = .Fields("CompanyName")
         .MoveNext
         i = i + 1
      Loop

   End With
End Sub

Dans le menu Outils , cliquez sur références.

Cliquez sur Microsoft DAO 3.6 objet bibliothèque.

Cliquez sur OK pour fermer la boîte de dialogue références .

Fermez la fenêtre de code.

Cliquez sur l' objet UserFormet puis cliquez sur Propriétés dans le menu contextuel. Sous l’onglet alphabétique , renommez (nom) en frmcomboet puis renommez la légende dans Microsoft Word. Fermez la fenêtre Propriétés de l’objet UserForm .

Sous l’onglet contrôles de la boîte à outils, sélectionnez la zone de liste déroulante et placez-la sur votre UserForm. Droit sur le contrôle zone de liste déroulante , puis cliquez sur Afficher le Code dans le menu contextuel. Modifiez le code de ComboBox en :

Private Sub ComboBox1_Change()
   ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
End Sub

Remarque: Text1 est le nom du signet du champ de formulaire texte que vous insérez dans votre modèle de procédure de l’étape 2 de la « création du champ texte » de cet article.

Fermez la fenêtre de code.

Sous l’onglet contrôles de la boîte à outils, sélectionnez le bouton de commande et placez-le sur votre formulaire utilisateur sous la forme d’un bouton Fermer . Cliquez droit sur le contrôle CommandButton, puis cliquez sur Afficher le Code dans le menu contextuel. Modifiez le code de CommandButton en :

Private Sub Cmdclose_Click()
   End
End Sub

Fermez la fenêtre de code.

Cliquez droit sur le contrôle CommandButtonet puis cliquez sur Propriétés dans le menu contextuel. Sous l’onglet alphabétique , renommez (nom) en Cmdcloseet puis renommez la légende pour la Fermer. Fermez la fenêtre de Propriétés du contrôle CommandButton .

Dans la fenêtre projet, sélectionnez votre TemplateProject.

Dans le menu Insertion, cliquez sur Module. Une feuille de code de module vide s’affiche.

Tapez le code suivant :

Sub gocombobox()
   frmcombo.Show
End Sub

Dans votre modèle, dans le menu affichage , pointez sur barres d’outils, puis cliquez sur formulaires.

Placez le point d’insertion où vous souhaitez que le résultat de la liste déroulante inséré. Dans la barre d’outils formulaires , cliquez sur le Champ de formulaire texte (le premier bouton de gauche). Le Champ de formulaire de texte est inséré dans votre modèle en grisé.

Remarque: Si vous consultez le champ {FORMTEXT} , appuyez sur ALT + F9 pour désactiver les codes de champ.

Cliquez sur le Champ de formulaire de texteet puis cliquez sur Propriétés dans le menu contextuel.

Dans la boîte de dialogue Options de champ texte , sous la section exécuter la macro , sélectionnez la macro gocombobox à partir de la entrée : appelé zone de liste déroulante.


Remarque: Assurez-vous que le nom du signet de votre champ texte est le même que celui que vous avez spécifié à l’étape 9 de la procédure « Création de la zone de liste déroulante UserForm », plus haut dans cet article.

Dans la barre d’outils formulaires , cliquez sur Protection du formulaire.

Enregistrez et fermez votre modèle.