syntaxe pour une condition

Voir le sujet précédent Voir le sujet suivant Aller en bas

R?solu syntaxe pour une condition

Message par quentinc le Ven 17 Juin 2016 - 2:35

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


Dernière édition par quentinc le Mar 21 Juin 2016 - 2:44, édité 1 fois

quentinc
actif
actif

Messages : 33
Date d'inscription : 07/06/2016
Localisation : saint quentin en yveline

Revenir en haut Aller en bas

R?solu Re: syntaxe pour une condition

Message par lumpazepfel le Ven 17 Juin 2016 - 19:19

Salut Quentin,

Regarde ici : http://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
avatar
lumpazepfel
actif
actif

Messages : 148
Date d'inscription : 03/11/2015
Localisation : Ensisheim

Revenir en haut Aller en bas

R?solu Re: syntaxe pour une condition

Message par raphael_59240 le Ven 17 Juin 2016 - 19:25

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 Laughing Laughing
avatar
raphael_59240
actif
actif

Messages : 123
Date d'inscription : 28/03/2015
Age : 46
Localisation : dunkerque

Revenir en haut Aller en bas

R?solu Re: syntaxe pour une condition

Message par quentinc le Mar 21 Juin 2016 - 2:44

merci pour votre aide

quentin

quentinc
actif
actif

Messages : 33
Date d'inscription : 07/06/2016
Localisation : saint quentin en yveline

Revenir en haut Aller en bas

R?solu Re: syntaxe pour une condition

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum