Code partagé entre Excel et autres applications VBA

Bonjour,

Je partage du code entre Excel et CATIA, mais bon ça reviendrait au même avec d'autres applications (Outlook, Word, PowerPoint...)

Est-il possible de savoir quel est "l'hôte" qui est utilisé pour exécuter le code ? J'imagine que ça passe par de la compilation conditionnelle, mais je ne crois pas qu'il existe de constante Excel, CATIA, etc.

Dans l'idéal, il me faudrait quelque chose comme ça :

Code:

---

1 2 3 4

Dim myApplication As Object   #if EXCEL then Set myApplication = Excel #if CATIA then Set myApplication = CATIA

---

Pouvez-vous m'aider à ce sujet ?

Merci par avance ! :D

Sur Excel, il y a Application.Name qui renvoie Microsoft Excel.
Je suppose que ça doit fonctionner aussi avec CATIA.
https://docs.microsoft.com/fr-fr/off...plication.name

Effectivement, mais cela revient à me mordre la queue, car sous Excel : Application.Name est en réalité Excel.Application.Name...

Je viens de remarqué que dans Excel, "CATIA V5 ApplicationFrame Object Library" n'est pas disponible et réciproquement "Microsoft Excel 14.0 Object Library" dans CATIA. A voir si je peux utilisé une condition telle que

Code:

---

1 2 3 4 5

#If MODE_CATIA Then ... #Else ... #End If

---

mais, je préférerais que cela ne nécessite pas de paramétrage externe via Tools / VBAProject Properties.

Bonjour,
En fait les constantes Excel n'existe pas dans Catia et réciproquement.

En revanche tu peux créer un énumérateur pour les constante Excel et un pour Catia et les utiliser invariablement dans ton code.

Excel ou Catia le code est complètement identique plus de souci !

Code:

---

1 2 3 4 5 6

Enum ConstExcel Xlup=1234 XlEnd=123 End Enum Enum ConstCatia Etc...

---

Citation:

---

Envoyé par Orbeaman

Effectivement, mais cela revient à me mordre la queue, car sous Excel : Application.Name est en réalité Excel.Application.Name...

---

Je pensais utiliser cette propriété ainsi :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Select Case Application.Name Case "Microsoft Excel" .... code Excel .... Case "Catia" .... code CATIA.... Case Else Exit Sub End Select End Sub

---

Mais ça ne peut fonctionner que si la bibliothèque d'objets CATIA est chargeable dans Excel et réciproquement.
Si ce n'est pas possible, il n'y a pas de solution pour un code commun.

A part, peut-être, utiliser un langage qui accède aux deux bibliothèques. VB.Net peut-être...

En fait j'ai rien compris!
Si c'est un problème de constantes les deux énumérateur règle le problème, si c'est pour récupérer d'objet Application on a Me.Application.
Ou plus simplement
set MyApp=ApplicationLes méthodes GetObject et CreateObject permettent charger dynamiquement des librairie.

Expliqués un peut mieux les objectifs, les tenants et aboutissant.

Effectivement, il ne s'agit pas que d'un problème de constantes. Je pense que je vais finalement charger les librairies CATIA dans Excel (il y a en a plusieurs dizaines, mais je pense que la "CATIA V5 ApplicationFrame Object Library" est la principale), mais si je ne piloterait pas CATIA depuis Excel VBA (j'ai des collègues qui le font en VB.Net). En fait, j'utilise aussi certaines classes définies dans CATIA (comme Product), mais je les ai temporairement remplacées par Object, mais ça m'embête quand même de perdre l'intellisense. Il doit aussi avoir des noms de classes identiques entre CATIA et Excel, d'où l'intérêt de les faire faire préfixer...

Citation:

---

Envoyé par Orbeaman

, (j'ai des collègues qui le font en VB.Net).

---

:applo::bravo::plusser:


P.S. Si "automation" (en fait, ce n'est pas vraiment de l'automation) fonctionne dans ce cas; cela devrait théoriquement fonctionner avec VBA

Citation:

---

Envoyé par Orbeaman

Il doit aussi avoir des noms de classes identiques entre CATIA et Excel, d'où l'intérêt de les faire faire préfixer...

---

De toute façon, en VBA, tous les éléments d'une application extérieure doivent être préfixés.