Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[EChampart]

Bonjour,

Je m'accroche à ce vieux sujet car c'est celui qui s'approche le plus de ce que je cherche et je n'arrive pas à le faire fonctionner.
Je cherche à utiliser ce code depuis une macro outlook pour exécuter une function contenue dans un fichier excel situé sur le réseau (mais j'ai le même problème en local).
la function est dans le code de la Feuil. J'ai deux problèmes :

premier problème : lors de l’exécution de : Set appExcel = CreateObject("Excel.Application") une fenêtre d'aide s'ouvre et reste ouverte, je peux la fermer, pas très agréable mais je peux faire avec!

le classeur s'ouvre bien, je l'ai mis en visible le temps du débogage, j'arrive à intervenir pour activer une feuille ou l'autre mais pas à exécuter le code de ma function c'est mon deuxième problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MavarXL = appExcel.Run(xlmacroBook.Name & "!ouverture", Left(CStr(ObjCurrentMessage.ReceivedTime), 10))

me crée l'erreur 438. J'ai adapté à mon cas notamment "!ouverture" .

J'ai déjà passé pas mal de temps, et fait pas mal de recherche mais là je suis vraiment coincé .

Quelqu'un pourrait-il m'aider, svp???

à bientôt j'espère

[Oliv-]

Bonjour,

Dans excel ta macro s'appelle bien ouverture ?

[EChampart]

Bonjour, et merci de vous intéresser à mon sujet

Oui pour faire des essais j'ai gardé les mêmes noms. Le fichier s'ouvre correctement dans excel mais lors de l'execution de la fonction appExcel.Run j'ai une erreur'438'
Avez-vous une idée?
Merci

[Oliv-]

quelle version ?
DAns quel module se trouve la macro OUVERTURE ?

[EChampart]

Re-bonjour,

Outlook et excel en V14
ouverture est dans 'Feuil1'

[Oliv-]

Déplace tes macros dans un module

[EChampart]

Bonjour,
Je viens d'essayer et j'ai toujours la même erreur.
Dans outlook j'ai mis dans Module1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
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
        Dim Resultat() As String
 
        'Ouverture de l'application
        Set appExcel = CreateObject("Excel.Application")
        appExcel.Visible = True 'False
        'Ouverture d'un fichier Excel
        Set wbExcel = appExcel.Workbooks.Open("D:essai.xlsm", 0, 1)
        'wsExcel correspond à la première feuille du fichier
        Set wsExcel = wbExcel.Worksheets(1)
        wsExcel.Activate
'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(wbExcel & "!ouverture")
End Sub

Et dans excel dans le module2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Public Sub ouverture()
    MsgBox "Hello"
    ouverture = "bravo"
End Sub

toujours la même erreur.
Pour info lors de l'enregistrement de ma feuille excel j'ai un message "avertissement concernant la confidentialité:..."
encore merci de prendre du temps pour ça!!

[Oliv-]

Essaye comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
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
        Dim Resultat() As String
 
        'Ouverture de l'application
        Set appExcel = CreateObject("Excel.Application")
        appExcel.Visible = True 'False
        'Ouverture d'un fichier Excel
        Set wbExcel = appExcel.Workbooks.Open("D:essai.xlsm", 0, 1)
        'wsExcel correspond à la première feuille du fichier
        Set wsExcel = wbExcel.Worksheets(1)
        wsExcel.Activate
'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(wbExcel.Name & "!ouverture")
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public Function ouverture()
    MsgBox "Hello"
    ouverture = "bravo"
End Function

[EChampart]

Bravo, ça marche!
un grand merci, je mets dans mes favoris votre blog