Code partagé entre Excel et autres applications VBA

**Orbeaman** · 24/07/2019, 10h36

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 :

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

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 !

**Menhir** · 24/07/2019, 10h45

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

**Orbeaman** · 24/07/2019, 17h41

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 :

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

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.

**Menhir** · 24/07/2019, 18h54

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 :

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

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

**Thumb down** · 24/07/2019, 18h30

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 :

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

1
2
3
4
5
6
Enum ConstExcel
Xlup=1234
XlEnd=123
End Enum
Enum ConstCatia
Etc...

**Thumb down** · 24/07/2019, 19h02

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.

**Orbeaman** · 24/07/2019, 22h15

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