How to export a part from an assembly in step for each configuration of this part?

Hello Maxime!

Please excuse me! (I still want the cake though)

I was in such a rush to answer your question this morning that I made the mistake of assigning the system coordinate system to the component rather than the assembly file. That explains why the boolean was returning false. Here's the corrected code:

'' Code par JLILI Amen / Jliliamen@gmail.com CSWA/CSWP QA-Mechanical Engineer
'' https://tn.linkedin.com/in/djelly
Dim swApp As SldWorks.SldWorks
Sub main()
On Error GoTo Handler:
'' Nom de systeme de coordonnes
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim CoordinateSystemStr As String: CoordinateSystemStr = "Coordinate System1"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Application SolidWorks
Set swApp = Application.SldWorks
'' Variable Modèle
Dim swModelDoc As SldWorks.ModelDoc2
'' Affectation de la modèle active
Set swModelDoc = swApp.ActiveDoc
'' Selection Manager
Dim swSelectionManager As SldWorks.SelectionMgr
Set swSelectionManager = swModelDoc.SelectionManager
'' Affection du fichier d'assemblage
Dim swAssemblyDoc As SldWorks.AssemblyDoc
Set swAssemblyDoc = swModelDoc
'' Dossier de sauvegarde
Dim Folder As String: Folder = swModelDoc.GetPathName
'' Selection de la pièce
Dim swComponent As Component2
Set swComponent = swSelectionManager.GetSelectedObject(1)
Dim SwModelFromComp As ModelDoc2
Set SwModelFromComp = swComponent.GetModelDoc2
'' Liste de noms des configurations
Dim VConfiguration As Variant
VConfiguration = swModelDoc.GetConfigurationNames
'' Test sur la liste de noms (si elle est vide)
If Not IsEmpty(VConfiguration) Then
'' Parcours de la liste de noms des configurations
For i = LBound(VConfiguration) To UBound(VConfiguration)
'Activer la configuration
Dim Bol1 As Boolean
Bol1 = swModelDoc.ShowConfiguration2(VConfiguration(i))
'Cochez l'option du systeme de coordonnes
Dim swModelExtension As SldWorks.ModelDocExtension
Set swModelExtension = swModelDoc.Extension
Dim Bol2 As Boolean
Bol2 = swModelExtension.SetUserPreferenceString(swUserPreferenceStringValue_e.swFileSaveAsCoordinateSystem, swUserPreferenceOption_e.swDetailingNoOptionSpecified, CoordinateSystemStr)
'Sauvegarder
Dim Bol3 As Boolean
Bol3 = SwModelFromComp.SaveAs(VConfiguration(i) + ".step")
Next i
Dim result As VbMsgBoxResult: result = MsgBox("Conversion terminée!", vbYesNo, "Conversion à step")
If result = vbYes Then
Shell "cmd /C start """" /max """ & Folder & """", vbHide
End If
End If
Exit Sub
Handler:
swApp.SendMsgToUser ("Une erreur s'est produite lors de l'éxecution du macro.")
End Sub

The boolean is now returning true.

Want to learn the API?

There's a great book titled automating Solidworks using macros. That's the only book I know (and read). It's a good introduction to the world of CAD automation (VBA and VSTA macros). You can find tons of good answers here too. If you want to go to the extreme professional side of SW then you should learn about add-ins which are complements that extend SW functionanlities. The possibilities are limitless. (Notable mention goes to CAMWorks, DriveWorks...). They require a strong background on the API, .NET and COM objects. The best way to learn is to ask questions so do not be afraid to ask. I, hereby, extend you the invitation to ask me questions on my personal email (jliliamen@gmail.com), no problem.

Best,
Amen