Bonjour à tous,

au boulot j'utilise Catia V5, et on m'a demandé de créer une macro pour automatiser la création d'un modèle à partir de données excel. A partir d'une macro récupérée j'ai pu bidouiller quelquechose qui fonctionne, mais là je bloque sur quelquechose :

Ma feuille excel me permet de créer des points dans catia, puis dans une Private Sub dans la macro catia, je crée des lignes qui relient certains points dans des set géométriques différents.

Dans mon fichier excel, une cellule varie (2è ligne, colonne P), elle représente les configurations de points voulues, et en fonction de ce qui est inscrit (il s'agit de texte) dans cette cellule, j'aimerais que la macro catia lance ou non certaines Private Sub.

Après plusieurs essais, j'ai placé ça dans ma macro :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Set valeur_excel = Cells.Value(2, 16)
 
Select Case valeur_excel
 
Case 1 valeur_excel = "valeur 1"
Call action1a
Call action1b
Call action1c
Call action1d
 
Case 2 valeur_excel = "valeur 2"
Call action2a
 
End Select
Ce code me permet d'éviter d'avoir un message d'erreur lorsque catia commence à créer l'objet avec les propriétés de "valeur 2", mais aucune Private Sub ne se lance

J'avais jamais touché à du VBScript avant ça, donc je tatonne vraiment ..
J'ai passé ma journée à regarder sur internet, d'après tout ce que j'ai vu ce morceau de code a l'air bon ? Je comprends plus

Si quelqu'un arrivait à me filer un coup de main ce serait super

Merci d'avance bonne soirée (ou journée en fonction)