VBA - Faire apparaitre la fenêtre enregistrer sous

Bonjour, 

Comment faire apparaître la fenêtre "enregistrer sous" sous solidworks automatiquement avec une macro (VBA) ?

Merci pour votre aide.

Bonjour,

Voilà la méthode à utiliser :

http://help.solidworks.com/2012/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.IModelDocExtension~SaveAs.html

Voir aussi l'utilisation de "swModdoc.SaveAs (CommonDialog1.FileName)" dans cette macro :

https://forum.solidworks.com/thread/53968

Ou ici :

https://forum.solidworks.com/message/249307#249307

Et ici  ModelDocExtension::SaveAs :

http://help.solidworks.com/2013/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.IModelDocExtension~SaveAs.html

2 « J'aime »

Merci beaucoup pour votre aide, comment puis-je récuperer le nom de mes pièces, mep et assemblage afin de les fermer après enregistrement ? 

myTitle = myModel.GetTitle

swApp.ActivateDoc2 myTitle, True, 0

swApp.QuitDoc myTitle

J'ai essayé ça mais ça ne fonctionne pas. Je ne trouve pas non plus la commande permettant d'enregistrer simplement mon assemblage.

1 « J'aime »

Cette question sort un peu du cadre de la première question.

Pourquoi pas poser une autre question, ça permet plus de visibilité, et si certaines personnes se posent la même question, ils trouveront plus facilement la réponse !

1 « J'aime »

Bonjour, 

Je relance cette conversation afin de savoir s'il est possible à l'aide de la même commande, d'ouvrir la fenêtre directement dans un lien spécifié, le but serait de récupérer le premier lien que spécifie l'utilisateur pour la première pièce et non celui de la pièce source pour les pièces à suivre ! 

 

bool = swmodel.Extension.RunCommand(SwCommands.swCommands_SaveAs, "")

Merci pour votre aide !