COMMENT FAIRE : Ajouter et exécuter dynamiquement une macro VBA à partir de Visual Basic

Résumé

Lors de la programmation d'un produit Office à partir de Visual Basic, il peut s'avérer utile de déplacer une partie du code dans un module Microsoft Visual Basic pour Applications pouvant s'exécuter à l'intérieur de l'espace de processus du serveur. Cela améliore la vitesse d'exécution générale de votre application et aide à amoindrir les problèmes si le serveur n'effectue qu'une action lorsqu'un appel est passé in-process.

Cet article montre comment ajouter dynamiquement un module Microsoft Visual Basic pour Applications à une application Office en cours d'exécution à partir de Visual Basic, puis appeler la macro pour remplir une feuille de calcul en cours d'exécution.

Plus d'informations

L'exemple suivant montre comment insérer un module de code dans Microsoft Excel, mais vous pouvez utiliser la même technique pour Word et PowerPoint car ils intègrent tous deux le même moteur Microsoft Visual Basic pour Applications.

L'exemple utilise un fichier texte statique pour le module de code inséré dans Excel. Vous pouvez vouloir envisager de déplacer le code dans un fichier de ressources pouvant se compiler dans votre application puis s'extraire dans un fichier temporaire au moment voulu de l'exécution. Cela rendrait le projet plus gérable en vue d'une re-distribution.

Dans Office XP, un utilisateur doit accorder l'accès au modèle d'objets VBA afin que tout code Automation écrit pour manipuler VBA puisse fonctionner. Il s'agit d'une nouvelle fonctionnalité de sécurité d'Office XP. Pour plus d'informations, veuillez consulter l'article suivant de la Base de connaissances Microsoft :

282830 L'accès par programme au projet Office XP VBA est refusé

Étapes pour construire l'exemple

  1. Pour commencer, créez un nouveau fichier texte nommé KbTest.bas (sans l'extension .txt). Il s'agit du module de code que nous insérerons 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. Enregistrer 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, choisissez Références, puis sélectionnez la Microsoft Excel 10.0 Object Library, ce qui vous permet d'utiliser la liaison anticipée à Excel. Pour Excel 2000, il s'agit de la Bibliothèque de types version 9.0 et pour Excel 97, de la version 8.0.
  6. Ajoutez un bouton à Form1 et placez le code suivant dans le gestionnaire pour l'événement Clic 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, vous devez activer l'accès au projet VBA. Pour cela, démarrez Excel 2002. Dans le menu Outils, pointez sur Macro, puis cliquez sur Sécurité. Dans la boîte de dialogue Sécurité, cliquez sur l'onglet Sources fiables, puis activez la case à cocher Faire confiance au projet Visual Basic.
  8. Exécutez le projet Visual Basic.

Références

Pour plus d'informations sur Automation d'Office à partir de Visual Basic, veuillez vous reporter au site de développement de Microsoft Office (en anglais) à l'adresse suivante :

Propriétés

ID d'article : 219905 - Dernière mise à jour : 8 janv. 2017 - Révision : 1

Commentaires