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
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.
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
- Déplacer une colonne excel - Guide
- Aller à la ligne excel - Guide
- Comment faire une recherche à partir d'une photo - Guide
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
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
un exemple sur l'excellent site d 'Hervé Inisian
https://grenier.self-access.com/?post/2007/08/26/Supression-de-feuille-Excel
à adapter
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
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.
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.