vba_access : ouvrir un fichier excel et lancer une macro

[sony]

Dans un module d'access comment peut on ouvrir un fichier excel sans afficher de boite de message, et lancer une macro enregistrée dans ce fichier ?

Cordialement

 

[wally]

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

 

[Fabrice]

super ton code !!

et comment faire pour sauvegarder un fichier xls en format html ?

merci