Pour ouvrir Excel et exécuter une macro Excel depuis outlook

[Nicholas1]

Bonjour,
Dans les F.A.Q outlook on trouve l'article:

Pour ouvrir un fichier Excel et exécuter une macro d'un autre fichier Excel, copiez ce code dans un nouveau Module :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub PilotageExcel ()
'Déclaration des variables
        Dim appExcel As Excel.Application    'Application Excel
        Dim wbExcel As Excel.Workbook    'Classeur Excel
        Dim wsExcel As Excel.Worksheet    'Feuille Excel
        Dim xlmacroBook As Excel.Workbook
        Dim MavarXL
 
        'Ouverture de l'application
        Set appExcel = CreateObject("Excel.Application")
        appExcel.Visible = False
        'Ouverture d'un fichier Excel
        Set wbExcel = appExcel.Workbooks.Open(Repertoire & "monfichier.xls")
        'wsExcel correspond à la première feuille du fichier
        Set wsExcel = wbExcel.Worksheets(1)
'ici la macro est dans un fichier différent
        Set xlmacroBook = appExcel.Workbooks.Open("\c:\temp\MonfichierMACRO.xls", 0, 1)
'je lance la macro ouverture avec un paramétre
          MavarXL = appExcel.Run(xlmacroBook.Name & "!ouverture", Left(CStr(ObjCurrentMessage.ReceivedTime), 10))
End Sub

Cependant en le compilant, une fenêtre d'erreur s'ouvre:

Erreur de compilation
Type défini par l'utilisateur non défini

et la ligne "appExcel As Excel.Application" est surlignée

De plus, la macro que je dois déclencher va elle même chercher les fichiers dont elle a besoin, et se trouve dans le classeur perso.
merci d'avance!

[denis le breton]

Bonsoir un peu par hasard sur ce forum mais peut être as tu trouvé
sinon dans visual basic outil puis référence puis cocher la référence Microsoft Excel 11.0 Object library (pour 2003)

et après ça doit marcher
Denis