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 : 141
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

- Sujets similaires

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