Discussion :

[Remi_Simon]

Bonjour,

L'ensemble des macros a été splitté en plusieurs projets pour des problèmes d'accès concurrent.

Je peux ouvrir plusieurs projets en même temps dans le VB Editor mais je n'arrive pas à appeler des modules d'un autre projet. Existe-t-il une syntaxe particulière pour le faire ?

Merci pour votre aide

[aalex_38]

Bonjour,

regardes la commande :

Code :

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

Run

[Remi_Simon]

On dirait que mon IDE ne reconnait pas cette commande.

J'utilise du VBA pour MicroStation, y a t'il une référence spécifique à ajouter pour cette commande ?

[aalex_38]

Aide VBA EXCEL :

Cet exemple montre comment appeler la fonction macro My_Func_Sum, qui est définie dans la feuille macro MyCustom.xlm (cette dernière doit être ouverte). Dans cet exemple, la fonction accepte deux arguments numériques, 1 et 5.

mySum = Application.Run("MYCUSTOM.XLM!My_Func_Sum", 1, 5)
MsgBox "Macro result: " & mySum

[=JBO=]

Bonjour Remi et AAlex !

Remi, ici c'est un forum VBA dédié aux applications Office (Word, Excel, PowerPoint, Access, Outlook, Visio...).

Mais nous essayons aussi de répondre (de nôtre mieux) aux questions VBA pour d'autres applications hôtes, notamment pour des applications CAO ou SIG.

Pour ce qui concerne MicroStation, il faut que tu étudies son modèle objet programmable avec VBA.

Dans les applications Office, l'objet Application offre une méthode Run() qui permet d'exécuter une procédure appartenant à un des projets actuellement chargés par l'application.
C'est ce que AAlex a donné comme exemple avec Excel.

Mais il n'est pas certain que cette méthode Run() soit proposée par le modèle objet de MicroStation.
En revanche, il me semble que MicroStation V8 propose une méthode permettant de réaliser un envoi de commandes (key in) au moyen de l'objet CadInputQueue accessible par l'objet Application.

Par exemple, pour exécuter une macro VBA (on va l'appeler LaMacro) dans un projet déjà chargé:

Code VBA :

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

Application.CadInputQueue.SendKeyin "VBA RUN LaMacro"

Peut être aussi, pour charger un projet (nommé LeProjet) et exécuter une macro de ce projet:

Code VBA :

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

Application.CadInputQueue.SendKeyin "VBA RUN [LeProjet]LaMacro"

Il faut que tu étudies de très près les possibilités de CadInputQueue (SendCommand, SendKeyin etc.) dans l'aide en ligne.


Autre piste, référencer un fichier bibliothèque:

Dans l'environnement VBA, il est prévu qu'un projet puisse en référencer un autre, de manière à pouvoir exécuter et utiliser les procédures et classes publiques qui y sont déclarées: c'est le principe d'une bibliothèque de code.

Pour celà, dans VBE (l'environnement de développement intégré de VBA) on déroule le menu Outils et on exécute la commande [Références...] pour accéder à une boîte de dialogue dans laquelle on ajoute les fichiers bibliothèques spécifiques à l'application (ici MicroStation) via le bouton [Parcourir...] qui te permet de sélectionner les fichiers des projets bibliothèques (en pensant bien à sélectionner le type de fichier qui convient).


Tiens nous informés !
_

[Remi_Simon]

Pour être franc je ne pensais pas tomber sur une spécificité Microstation à ce niveau, je pensais avoir à faire à du VBA générique (d'où mon post ici).
Je débute encore avec Microstation.

En tout cas merci beaucoup pour ton explication détaillée JBO. C'est beaucoup plus clair maintenant.

Je pense que pour mon projet, je vais devoir passer par le CadInputQueue pour appeler la macro existante.
Ca me fait un peu peur de devoir passer par le ModalHandler mais je n'ai pas le choix a priori

En effet j'ai peur que le référencement en tant que bibliothèque complique un peu trop le déploiement dans mon cas.