Bonsoir sony et le forum,
Essaye ceci :
Sub Excel()
Dim oXlApp As Object 'Excel.Application
Dim oXlWbk As Object 'Excel.Workbook
'Ouvrir une instance Excel
Set oXlApp = CreateObject("Excel.Application")
'Ouvrir le classeur
Set oXlWbk = oXlApp.Workbooks.Open("C:\MonClasseur.xls")
'Rendre Excel visible
oXlApp.Visible = True
'Exécuter la macro
oXlApp.Run "MaMacro"
'Fermer et enregistrer le classeur
oXlWbk.Close True
'Quitter Excel
oXlApp.Quit
'Libérer les ressources
Set oXlWbk = Nothing
Set oXlApp = Nothing
End Sub
Slts
wally