Dim swapp As Object
Sub main()

Dim bRet As Boolean
Dim Valeur As String

Set swapp = Application.SldWorks
Set swModel = swapp.ActiveDoc
Set swPart = swModel
Set swFeat = swPart.FirstFeature
Set swCutlistItem = swFeat

Valeur = swModel.GetCustomInfoValue("", "TypePiece")

'CHEMIN DES SMARTPROPERTIES
Chemin_Xml_Commerce = "C:\Commerce.xml"
Chemin_Xml_fabrique = "C:\Mecanique.xml"

If Valeur = "commerce" Then
    bRet = swModel.AddCustomInfo3("", "XmlPath", swCustomInfoText, Chemin_Xml_commerce)
End If

If Valeur = "fabrique" Then
    bRet = swModel.AddCustomInfo3("", "XmlPath", swCustomInfoText, Chemin_Xml_fabrique)
End If





......puis, lancement du smart_auto d'Axemble......