syntaxe pour une condition

bonjour

je cherche a créer une condition :si ... est un produit alors

j'ai essayer quelque truc dans ce genre:

if a as product then
.........
end if
(ne fonctionne pas)
quelle est la syntaxe correct

merci
quentin

Salut Quentin,

Regarde ici : https://catiav5.forumactif.org/t1197-astuces-et-autres-routines-basiques-utiles-pour-la-creation-de-macros


Tu y trouveras ce que tu cherches et bien d'autres petites fonctions.

Ou:

Code:

On Error Resume Next
Dim monDocCATIA As Document

Set monDocCATIA = CATIA.ActiveDocument

'*** Vérifie si le document courant est un Catproduct  ***
If (InStr(monDocCATIA.Name, ".CATProduct")) = 0 Then
    MsgBox "Le document actif doit être un CATProduct", vbCritical + vbOKOnly
    Exit Sub
End If

Bonjour,

Pour savoir si c'est un product il faut que tu fasses un test et travaillé sur les erreurs.

Code:


Dim catia as object
Dim oProduct As ProductDocument

'---- initialisation catia"

On Error Resume Next

Set Catia = GetObject(, "CATIA.Application")


If Err.Number <> 0 Then
    MsgBox ("pas de session catia trouvée")
Else
    On Error GoTo 0


    On Error Resume Next

Set oProduct=catia.Activedocument

if Err.Number <> 0 Then
       MsgBox ("pas de Product trouvée")
Else
    On Error GoTo 0
.
.....suite du programme
.
.

end if




la méthode utilisé ci-dessus travail sur le nom du fichier actif.
dans ma solution je travaille sur le type de document. voila donc 2 methode à toi de faire ton choix



Raphael

merci pour votre aide

quentin