Lancer une routine (sub) Access à partir de VB.net

Bonjour

Je sais déjà que ce n'est pas le top, mais là je n'ai vraiment pas trop le choix (délai très court).

J'ai une application en vb.net qui se connecte à une base Access pour utiliser des requêtes, tables, etc... pas de soucis.

Cependant dans cette base j'ai une routine (Sub) dans un module que je voudrais exécuter, en fait elle est assez complexe et pour l'instant je ne peux pas la transférer en .net. Elle a été crée par un de mes collègues qui est un pros Access et qui ne peut pas pour l'instant me dépanner.

Malgré mes recherches je n'ai pas trouvé.

Merci

Bonjour,

Je ne connais pas la réponse mais je veux te donner une piste que ton collègue le pro d'Access pourra certainement exploiter pour t'aider.

Lorsqu'on travaille en VB.Net avec l'Interropérabilité pour Excel (Imports Excel = Microsoft.Office.Interop.Excel), on peut commander les macros Excel comme ceci :

Code:

---

1 2 3 4 5

XLSAPP = New Excel.Application XLSAPP.Visible = True XLSAPP.Workbooks.Open("D:\Tmp\ProbExcel\Test.xls") 'ouvir le fichier XLS XLSAPP.Run("MaMacro") 'exécuter la macro MaMacro sans argument XLSAPP.Run("UneMacro", "Coucou") ' appel de la macro UneMacro avec arguments ....

---

Les macros sont des Sub (comme dans tout le VB et le VBA) et elle ne soit pas Private, il est donc prudent d'écrire Public Sub ....

J'espère que ceci t'aidera ...

Salut,

Merci cela a parfaitement fonctionné, voici le résultat

Code:

---

1 2 3 4 5

Dim AccApp = New Microsoft.Office.Interop.Access.Application AccApp.Visible = False AccApp.OpenCurrentDatabase(strPathRep & "\" & strMois & "\" & strMois & ".accdb") AccApp.Run("ExecuterSimilarite") AccApp.Quit()

---

J'ai croisé mon collègue dans le couloir, il a vu ta réponse et en 2 secondes il a résolu le problème.

Merci