VBA Editer en contexte en boucle

Macro
1

Bonjour à tous,

Je cherche comment éditer en contexte toutes les pièces d’un assemblage, j’ai le code ci dessous qui me permet d’ouvrir toute les pièces d’un assemblage.
Mais je n’arrive pas à le modifier.

Début du code :

Set swApp = Application.SldWorks
    
    Set Assembly = swApp.ActiveDoc
    Set myAsy = Assembly

    myCmps = myAsy.GetComponents(False)
    For i = 0 To UBound(myCmps)
        Set myCmp = myCmps(i)
        If (myCmp.GetSuppression = 3) Or (myCmp.GetSuppression = 2) Then
            Set CmpDoc = myCmp.GetModelDoc
           
            Document = CmpDoc.GetPathName
          
                    Set swModel = swApp.ActivateDoc(Document)

au lieu de

 Set CmpDoc = myCmp.GetModelDoc
           
            Document = CmpDoc.GetPathName
          
                    Set swModel = swApp.ActivateDoc(Document)

j’ai essayer :

myCmp.EditPart

Mais ça ne fonctionne pas.
Auriez vous une idée ?

2

Plutôt partedit2 non?:
https://help.solidworks.com/2023/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.iassemblydoc~editpart2.html?verRedi
Je suppose que tu veux les éditer en contexte une par une pas toutes en même temps (sinon pas possible).

1 « J'aime »