Lancer une macro excel à partir d'access
Deustalos
-
Deustalos Messages postés 1 Statut Membre -
Deustalos Messages postés 1 Statut Membre -
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.
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:
- Lancer une macro excel à partir d'access
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Déplacer une colonne excel - Guide
- Comment faire une recherche à partir d'une photo - Guide
2 réponses
bonjour,
un exemple sur l'excellent site d 'Hervé Inisian
https://grenier.self-access.com/?post/2007/08/26/Supression-de-feuille-Excel
à adapter
un exemple sur l'excellent site d 'Hervé Inisian
https://grenier.self-access.com/?post/2007/08/26/Supression-de-feuille-Excel
à adapter
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.
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.
