Modifier le nom du fichier dans la fenêtre enregistré-sous - macro vba

3D Design Volume Model
1

Bonjour,

Je n'ai pas trouvé de réponse à mon problème en surfant sur le web, donc je me lance :

Je suis en train d'écrire une macro pour simplifier la réalisation de mes mises en plans. J'arrive à la fin de l'écriture de ma macro, mais il me reste plus qu'une dernière étape qui me pose problème : l’enregistrement.

J'arrive à ouvrier la fenêtre enregistré-sous avec le code suivant :

[syntax=VB]Dim swApp As Object

Sub main()

Set swApp = _

Application.SldWorks

Set swModel = swApp.ActiveDoc

swModel.Extension.RunCommand swCommands_SaveAs, Empty

End Sub[/syntax]

 

Mais le truc c'est que cette fenêtre enregistré-sous me propose un nom de fichier qui ne me convient pas. J’aimerais changer le nom de ficher proposé par défaut en fonction d'une variable (RefMiseEnPlan) qui récupère les informations situées dans le fond de plan renseignées préalablement. 

J'ai réussi à récupérer les informations situées dans le fond de plan et les stocker dans RefMiseEnPlan :mrgreen: , mais je n'ai pas trouvé le code pour modifier le nom par-défaut proposé dans la fenêtre de dialogue enregistré-sous quand elle s’affiche :cry: .

Merci d'avance pour votre attention.


capture.jpg
2

Salut,

Tu dois utiliser la méthode SaveAs3 décrite ici : http://help.solidworks.com/2016/english/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.IModelDoc2~Save3.html

Un exemple ici : http://help.solidworks.com/2016/english/api/sldworksapi/Save_File_Example_VB.htm

A plus.

3

Plutôt ça: http://help.solidworks.com/2016/english/api/sldworksapi/SOLIDWORKS.Interop.sldworks~SOLIDWORKS.Interop.sldworks.IModelDocExtension~SaveAs.html

Sinon avec Save As 3 qui fonctionne (sans fenêtre d'enregistrement)

Dim longstatus as long

longstatus = swModel.SaveAs3("Chemin complet + nom de fichier avec extension", 0, 0)

4

Bonjour,

regardez voir sa si ça peut vous aider..

http://www.lynkoa.com/tutos/import-export-formats-neutres/macro-solidworks-fenêtre-ouvrir

5

Salut, 

Dans ce que tu me propose la fenêtre de dialogue enregistré-sous ne s'affiche plus, du coup je peux plus choise là où j'enregiste ma mise en plan. 

6

Re 

j'ai repondu trop vite j'avais pas vue toutes les réponse.

Pour la methode avec SaveAs3, j'aime pas trop car la l fenêtre de dialogue enregistré-sous ne s'affiche pas, mais merci

Pour les autres solutions proposées, je vais essayer de les faire fonctionner et je vous fais un retoure

merci encore.