Bonjour,

Je réalise ma première VBA et franchement je galère un max...
Je dois a l'aide d'une macro sous excel paramétrer les cotes d'un assemblage sur Solidworks.
Voici ma macro:


Sub Bouton1_Clic()

Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc

Part.Parameter("D4@Esquisse1@Longueur").SystemValue = Range("C2").Value / 1000
Part.ClearSelection
Part.ForceRebuild

Part.Parameter("D1@Extru.-Mince1@Largeur").SystemValue = Range("C4").Value / 1000
Part.ClearSelection
Part.ForceRebuild

End Sub

Je n'est pour le moment rentré que deux critères: longueur et largeur.
Le message d'erreur est le suivant:
Erreur d'execution 91
Erreur d'execution 1004

Merci d'avace