Discussion :

[SylvainJ]

Bonjour,

J'essaie d'exécuter une macro Excel contenue dans un premier fichier Excel sur un second fichier, tout ça à partir d'Access.

Voici ma fonction:

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
 
Function MacroExcel(ByVal strClasseurFichier As String, ByVal strClasseurMacro As String)
 
Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")
 
xlApp.workbooks.Open (strClasseurMacro)
xlApp.workbooks.Open (strClasseurFichier)
 
xlApp.Run "maMacro"
 
xlApp.Quit
Set xlApp = Nothing
 
End Function

J'obtiens un message d'erreur me disant qu'il est impossible de trouver la macro maMacro et je ne comprend pas ce qui le dérange.

Merci de vos suggestions,
Sylvain

[SylvainJ]

Un petit xlApp.Run "ClasseurMacro.xls!maMacro"
et le tour est joué.