Bonjour à tous,
Je ne maitrise pas très bien le VBA et je bidouille un peu...
Du coup j'ai créer cette macro (en la copiant et en ajoutant mes propriétés) mais j'aimerais que les propriétés créées se mettent dans l'onglet "Personnaliser" et non dans "Spécifiques à la configuration". Pourriez-vous me corriger ma macro svp? Merci d'avance.
Dim swApp As Object
Dim swModel As ModelDoc2
Dim config As SldWorks.Configuration
Dim swCustProp As CustomPropertyManager
Dim lRetVal As Long
Dim maValeur0 As String
Dim maValeur1 As String
Dim maValeur2 As String
Dim maValeur3 As String
Dim maValeur4 As String
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
maValeur0 = swModel.GetTitle 'On récupère le nom du fichier
maValeur1 = Left(maValeur0, 16) 'On récupère le numéro de pièce, donc 16 premiers caractères du nom du fichier
maValeur2 = Left(maValeur0, 22) 'On récupère les 22 premiers caractères du nom du fichier
maValeur3 = Right(maValeur0, Len(maValeur0) - Len(maValeur2)) 'On récupère la Designation derniers caractères du nom du fichier - les 22 premiers
maValeur4 = Left(maValeur0, 13) 'On récupère le numéro de moule
Set config = swModel.GetActiveConfiguration
Set cusPropMgr = config.CustomPropertyManager
lRetVal = cusPropMgr.Add3("NumeroDePiece", swCustomInfoType_e.swCustomInfoText, maValeur1, swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
lRetVal = cusPropMgr.Add3("Designation", swCustomInfoType_e.swCustomInfoText, maValeur3, swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
lRetVal = cusPropMgr.Add3("DocumentSource", swCustomInfoType_e.swCustomInfoText, maValeur4, swCustomPropertyAddOption_e.swCustomPropertyDeleteAndAdd)
End Sub
Si vous avez un bon tuto à me conseiller pour le VBA Solidworks je suis preneur.
