Lancer une macro excel à partir d'access

Fermé
Deustalos - 9 sept. 2009 à 16:38
Deustalos Messages postés 1 Date d'inscription mercredi 9 septembre 2009 Statut Membre Dernière intervention 10 septembre 2009 - 10 sept. 2009 à 12:32
Bonjour,

Etant débutant en VBA, j'aimerai savoir comment à partir d'un bouton d'un formulaire access, lancer une macro sous un fichier excel. (le fichier excel pouvant changer, la macro étant toujour la même).

Merci par avance de votre aide.
A voir également:

2 réponses

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
9 sept. 2009 à 17:37
bonjour,

un exemple sur l'excellent site d 'Hervé Inisian
https://grenier.self-access.com/?post/2007/08/26/Supression-de-feuille-Excel

à adapter
0
Deustalos Messages postés 1 Date d'inscription mercredi 9 septembre 2009 Statut Membre Dernière intervention 10 septembre 2009
10 sept. 2009 à 12:32
Merci de votre aide mais cela s'asapt assez mal, j'ai pu trouver en farfouillant un peu partout, ce bou de code qui est presque sur le point de marcher.

Private Sub Commande12_Click()

Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet
Dim MavarXL

Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = True
Set wbExcel = appExcel.Workbooks.Open("C:\Mon_fichier_ou_doit_s'executer_la_macro.XLS")
Set wsExcel = wbExcel.Worksheets(3)
MavarXL = appExcel.Run("D:\Mon_fichier_ou_se_trouve_la_macro.XLS" & "!Mon_nom_de_Macro")

End Sub

Il me Dit en erreur qu'il ne trouve pas la marco alors que j ai verifier le chemin est bon.
0