I have a macro that originally works perfectly on its own, but that I would like to improve and combine with a UserForm. And there it doesn't work properly. The macro should run on the selected documents in one ListBox of the UserForm, but nothing happens when the run button is pressed. The link between the UserForm and the macro does not seem to be done correctly.
If anyone has any idea what might be causing problems, thanks for your help!
To explain the initial request: modify the units and custom properties of solidworks parts, assembly and drawing. Potentially several at a time but potentially only one. Hence the idea of the userform with a list of components to select Configure Imported Components.swp (96 KB)
You can start by using Debug.Print functions to check the contents of your variables at each step before and during the button press. This should quickly highlight the problem.
The problem lies in these lines of the UserForm1 form.
' Parcourir la collection des documents sélectionnés
For Each selectedDocTitle In selectedDocs
' Trouver le modèle actif correspondant
Set swModel = swApp.ActiveDoc
If InStr(1, swModel.GetTitle, selectedDocTitle, vbTextCompare) > 0 Then
' Exécuter Macro11 sur ce modèle
Macro11 swModel
End If
Next selectedDocTitle
indeed well seen. I did the test even if the documents come out well in the list, if I section a document that is not the active one, nothing happens.
When I select the active document, the macro launches well until it gets to this point:
' Loop to check each property For Each propName In propNames
with an error ‹ 13 ›
And indeed on my document, the units are modified but the macro stops and does not manage to manage the custom properties. which worked well by launching the macro alone without any link to the userform
I will look in more detail at the history of the active document first
