Bonjour,
 
Nouvelle macro nouveau probleme    
 
Voila j ai une macro qui me change le nom de mes WP et Part mais elle n agit pas dans les WP de niveau inferieur alors quelle les identifies.
 
Mon Code :
 
Sub catia_models_list()
         
Dim objRootProductDoc As ProductDocument
Dim mySel As Selection
Dim myProduct As Product
Dim i As Integer
         
        Set objRootProductDoc = CATIA.ActiveDocument
        Set mySel = CATIA.ActiveDocument.Selection
         
    mySel.Search ("'Assembly Design'.Product,sel" )
         For i = 1 To mySel.Count
         Set myProduct = mySel.Item(i).Value
         Set product2 = myProduct.Item
                 
                If Right(myProduct.Name, 2) Like ".*" Then
                lenght = Len(myProduct.Name) - 2
                string1 = Left(myProduct.Name, lenght)
               ' string1 = myProduct.Name
 
myProduct.Name = string1
 
        End If
    Next
 
End Sub
 
Si quelqu un a une solution ...
 
 
Cordialement ...
 
olivier