Passer des paramètres d'Outlook à Excel

Question

Comment passer des arguments au code Excel VBA appelé depuis Outlook?

Answer 1

En utilisant Application.Run:

objExcel.Run "MacroName", param1, param2 

Answer 2

Vous pouvez exécuter une macro via la méthode Application.Run. Cette méthode prend le nom de la macro comme premier argument, puis jusqu'à 30 paramètres passés en tant qu'arguments à la macro.

Dans Outlook utilisent le code suivant:

Public Sub RunExcelMacro() 

    Dim excelApp As Object 

    Set excelApp = CreateObject("Excel.Application") 
    excelApp.Visible = True 

    ' open the workbook that contains the macro 
    ' or place the macro in a workbook in your XLSTARTUP folder 
    excelApp.Workbooks.Open "C:\tmp\book.xls" 

    ' run the macro 
    excelApp.Run "ThisWorkbook.SayHello", "Hello World!" 

    excelApp.Quit 

    Set excelApp = Nothing  

End Sub 

Dans Excel, ajoutez la méthode suivante à l'élément ThisWorkbook d'un document de feuille de calcul:

Option Explicit 

Public Sub SayHello(message As String) 

    MsgBox message 

End Sub