Comment ajouter et exécuter dynamiquement une macro VBA à partir de Visual Basic

Résumé

Lors de l’automatisation d’un produit Office à partir de Visual Basic, il peut être utile de déplacer une partie du code dans un module Microsoft Visual Basic pour Applications (VBA) qui peut s’exécuter dans l’espace de processus du serveur. Cela peut augmenter la vitesse d’exécution globale de votre application et aider à atténuer les problèmes si le serveur effectue une action uniquement lorsqu’un appel est effectué in-process.

 Cet article explique comment ajouter dynamiquement un module VBA à une application Office en cours d’exécution à partir de Visual Basic, puis appeler la macro pour remplir une feuille de calcul in-process.

Informations supplémentaires

L’exemple suivant illustre l’insertion d’un module de code dans Microsoft Excel, mais vous pouvez utiliser la même technique pour Word et PowerPoint, car les deux intègrent le même moteur VBA.

 L’exemple utilise un fichier texte statique pour le module de code qui est inséré dans Excel. Vous pouvez envisager de déplacer le code dans un fichier de ressources que vous pouvez compiler dans votre application, puis extraire dans un fichier temporaire si nécessaire au moment de l’exécution. Cela rendrait le projet plus gérable pour la re-distribution.

 À compter de Microsoft Office XP, un utilisateur doit accorder l’accès au modèle objet VBA avant qu’un code Automation écrit pour manipuler VBA fonctionne. Il s’agit d’une nouvelle fonctionnalité de sécurité avec Office XP. Pour plus d’informations, consultez l’article suivant de la Base de connaissances :

282830 L’accès par programmation au projet VBA Office XP est refusé

Étapes de génération de l’exemple

1. Tout d’abord, créez un fichier texte nommé KbTest.bas (sans l’extension .txt). Il s’agit du module de code que nous allons insérer dans Excel au moment de l’exécution.

2. Dans le fichier texte, ajoutez les lignes de code suivantes :

      Attribute VB_Name = "KbTest"
   
      ' Your Microsoft Visual Basic for Applications macro function takes 1 
      ' parameter, the sheet object that you are going to fill.
   
      Public Sub DoKbTest(oSheetToFill As Object)
         Dim i As Integer, j As Integer
         Dim sMsg As String
         For i = 1 To 100
            For j = 1 To 10
   
               sMsg = "Cell(" & Str(i) & "," & Str(j) & ")"
               oSheetToFill.Cells(i, j).Value = sMsg
            Next j
         Next i
      End Sub
   
   

3. Enregistrez le fichier texte dans le répertoire C :\KbTest.bas, puis fermez le fichier.

4. Démarrez Visual Basic et créez un projet standard. Form1 est créé par défaut.

5. Dans le menu Projet , cliquez surRéférences, puis sélectionnez la version appropriée de la bibliothèque de types qui vous permet d’utiliser la liaison anticipée à Excel.

   Par exemple, sélectionnez l’une des options suivantes :

   • Pour Microsoft Office Excel 2007, sélectionnez la bibliothèque 12.0.
   • Pour Microsoft Office Excel 2003, sélectionnez la bibliothèque 11.0.
   • Pour Microsoft Excel 2002, sélectionnez la bibliothèque 10.0.
   • Pour Microsoft Excel 2000, sélectionnez la bibliothèque 9.0.
   • Pour Microsoft Excel 97, sélectionnez la bibliothèque 8.0.

6. Ajoutez un bouton à Form1 et placez le code suivant dans le gestionnaire pour l’événement Click du bouton :

      Private Sub Command1_Click()
         Dim oXL As Excel.Application
         Dim oBook As Excel.Workbook
         Dim oSheet As Excel.Worksheet
         Dim i As Integer, j As Integer
         Dim sMsg As String
   
       ' Create a new instance of Excel and make it visible.
         Set oXL = CreateObject("Excel.Application")
         oXL.Visible = True
   
       ' Add a new workbook and set a reference to Sheet1.
         Set oBook = oXL.Workbooks.Add
         Set oSheet = oBook.Sheets(1)
   
       ' Demo standard Automation from out-of-process,
       ' this routine simply fills in values of cells.
         sMsg = "Fill the sheet from out-of-process"
         MsgBox sMsg, vbInformation Or vbMsgBoxSetForeground
   
         For i = 1 To 100
            For j = 1 To 10
               sMsg = "Cell(" & Str(i) & "," & Str(j) & ")"
               oSheet.Cells(i, j).Value = sMsg
            Next j
         Next i
   
       ' You're done with the first test, now switch sheets
       ' and run the same routine via an inserted Microsoft Visual Basic 
       ' for Applications macro.
         MsgBox "Done.", vbMsgBoxSetForeground
         Set oSheet = oBook.Sheets.Add
         oSheet.Activate
   
         sMsg = "Fill the sheet from in-process"
         MsgBox sMsg, vbInformation Or vbMsgBoxSetForeground
   
       ' The Import method lets you add modules to VBA at
       ' run time. Change the file path to match the location
       ' of the text file you created in step 3.
         oXL.VBE.ActiveVBProject.VBComponents.Import "C:\KbTest.bas"
   
       ' Now run the macro, passing oSheet as the first parameter
         oXL.Run "DoKbTest", oSheet
   
       ' You're done with the second test
         MsgBox "Done.", vbMsgBoxSetForeground
   
       ' Turn instance of Excel over to end user and release
       ' any outstanding object references.
         oXL.UserControl = True
         Set oSheet = Nothing
         Set oBook = Nothing
         Set oXL = Nothing
   
      End Sub
   
   

7. Pour Excel 2002 et pour les versions ultérieures d’Excel, vous devez activer l’accès au projet VBA. Pour cela, appliquez l’une des méthodes suivantes :

   • Dans Excel 2007, cliquez sur le bouton Microsoft Office, puis sur Options Excel. Cliquez sur Centre de gestion de la confidentialité, puis sur Paramètres du Centre de gestion de la confidentialité. Cliquez sur Paramètres de macro, sélectionnez la zone Accès d’approbation au modèle objet du projet VBA case activée, puis cliquez deux fois sur OK.
   • Dans Excel 2003 et dans les versions antérieures d’Excel, pointez sur Macro dans le menu Outils , puis cliquez sur Sécurité. Dans la boîte de dialogue Sécurité, cliquez sur l’onglet Sources approuvées, puis cliquez sur pour sélectionner la zone Approuver l’accès au projet Visual Basic case activée.

8. Exécutez le projet Visual Basic.

Références

Pour plus d’informations sur l’automatisation d’Office à partir de Visual Basic, consultez le site de support au développement Office à l’adresse suivante :

http://support.microsoft.com/ofd