Macro via Excel pour enregistrement fichier STEP avec choix de nom

Macro
1

Bonjour à Tous,

J’ai pas mal tourné sur le forum et je ne trouve pas de réponse à ma question.

Voila, via un classeur Excel je souhaite gérer 2 dimensions d’une pièce SolidWorks et qu’elle soit ensuite enregistré au format STEP dans un dossier de destination prédéfini.

Par contre, je souhaite pouvoir enregistrer ma pièce en STEP en pouvant lui donner le nom que je souhaite ou si possible reprendre le champ d’une cellule Excel pour la nommer.

Voici le code que j’utilise :

Sub Bouton1_QuandClic()

Set swApp = CreateObject(« SldWorks.Application »)
Set Part = swApp.ActiveDoc
Part.Parameter(« H@Esquisse1 »).SystemValue = Range(« C3 »).Value / 1000
Part.ClearSelection
Part.ForceRebuild
Part.Parameter(« L@Esquisse1 »).SystemValue = Range(« C4 »).Value / 1000
Part.ClearSelection
Part.ForceRebuild

’ Save As
longstatus = Part.SaveAs3(« C:\Users\bectarlu\OneDrive - CAMFIL AB\Bureau\famille de pièce\STEP_ » & ActiveConfiguration & « .STEP », 0, 2)

End Sub

Par avance merci de votre aide
Cordialement,
Ludovic

2

Bonjour @Bec2 ,

Une proposition qui va au plus simple : placer le chemin et le nom du fichier dans une cellule d’Excel (C5) et l’adapter dans le code avec le nom de la configuration active…
image

Option Explicit

Sub Bt1Clic()

Dim swApp      As Object
Dim Part       As Object
Dim longStatus As Long
Dim stepName   As String
    
    Set swApp = CreateObject("SldWorks.Application")
    Set Part = swApp.ActiveDoc
    Part.Parameter("H@Esquisse1").SystemValue = Range("C3").Value / 1000
    Part.Parameter("L@Esquisse1").SystemValue = Range("C4").Value / 1000
    Part.ClearSelection
    Part.ForceRebuild
    
        ' Save As Step
    stepName = Range("C5") & Part.getActiveConfiguration.Name & ".STEP"
    longStatus = Part.SaveAs3(stepName, 0, 2)

End Sub

Cordialement.

3 « J'aime »