[Bot]

Bonjour à tous

Si dessous le code d’une Marco. Ça plante au niveau de la dernière ligne « object variable or with block not set. Je comprends pas vraiment, vu que swComp est set juste au dessus pourtant…
Merci d’avance

Dim swApp As Object

Dim Part As Object

Dim SelMgr As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim Feature As Object

Dim Step As Long

Dim vConfNames As Variant

Dim curConfName As String

Dim i As Integer

Dim model As SldWorks.ModelDoc2

Dim CompteRendu As String

Dim swComp As Component2

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Set SelMgr = Part.SelectionManager

Set swComp = Part.SelectionManager.GetSelectedObjectsComponent4(1, -1)

vConfNames = swComp.SelectionManager.GetConfigurationNames()

——————–
thib.td – Envoyé depuis le Discord : Culte du code

Sujet