Discussion :

[Phiphi41]

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

[Phil Rob]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

[Phiphi41]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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