Discussion :

[clem200]

Bonjour,

Ma demande est un peu particulière car je ne code pas en VBA sous Excel mais sous un logiciel de CAO, CATIA. Les bon forums CATIA ne courent pas les rues, et ça reste du VB alors ...

Je recherche un nom bien précis dans une pièce CATIA. Si ce nom est présent la macro me le dit et je sais que la pièce a été déssiné par moi. Si non je sais que la pièce est "étrangère"

Voila le programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim oDoc As Document
    Dim cSel 'As Selection
    Dim sSearch As String
    Dim sSketchName As String
 
    Set oDoc = CATIA.ActiveDocument
    Set cSel = oDoc.Selection
    cSel.Clear
 
    sSketchName = "nom a chercher"
    sSearch = "'Part Design'.Sketch.Name=" & sSketchName & ";all"
    cSel.Search sSearch
 
    If cSel.Count = 0 Then
        MsgBox "Pas trouvé de sketch avec le nom:" & sSketchName
    Else
        MsgBox cSel.Count & " sketch(es) avec le nom " & sSketchName
        If cSel.Item(1).Value.Parent.Parent.Name = "lieu de recherche" And TypeName(cSel.Item(1).Value.Parent.Parent) = "Body" Then
            MsgBox "OK"
        Else
            MsgBox "KO"
        End If
    End If

et voila le message d'erreur que j'ai lorsque je le lance :



Savez-vous pourquoi ?

Merci d'avance.

Personne ?

[SfJ5Rpw8]

Bonjour,

je ne connais pas Catia... mais j'aurais bien rajouté des guillemets autour de la chaine à chercher ...:

Code :

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

1
2
 
    sSearch = "'Part Design'.Sketch.Name=""" & sSketchName & """;all"

[clem200]

Merci pour les diverses modifications de mon message

En fait il s'agissait d'un problème en lien avec CATIA, j'ai remplacé 'Part Design" par 'CATPrtSearch' et ça marche ...

Merci de votre aide.