Macro "enregistrer"

Macro
1

Bonjour,

c'est tout bête mais je n'arrive pas à créer une macro pour enregistrer un document.

Simplement enregistrer avec le m^me nom, au même emplacement.

Quelqu'un, a il la solution?

D'avance merci.

2

peut être avec "swSaveAsCurrentVersion" ? mais je ne sais pas coder. comment l'intégrer dans ma macro?

3

Bonjour,

issu de l'aide de l'API

This example shows how to save a file.
'-----------------------------------------------------------------
' Preconditions:
' 1. Open a model.
' 2. Open the Immediate window.
'
' Postconditions:
' 1. Zooms to fit the model in the graphics area.
' 2. Saves the model.
' 3. Examine the graphics area and Immediate window.
'------------------------------------------------------------------
Option Explicit

    Dim swApp               As SldWorks.SldWorks
     Dim swModel             As SldWorks.ModelDoc2
     Dim boolstatus          As Boolean
     Dim lErrors             As Long
     Dim lWarnings           As Long

Sub main()

    Set swApp = Application.SldWorks
     Set swModel = swApp.ActiveDoc
     swApp.Visible = True
     

    ' Make a change
     swModel.ViewZoomtofit2
     

    boolstatus = swModel.Save3(swSaveAsOptions_Silent, lErrors, lWarnings)
     

    ' Errors
     Debug.Print ("Errors as defined in swFileSaveError_e: " & lErrors)
     

    ' Warnings
     Debug.Print ("Warnings as defined in swFileSaveWarning_e: " & lWarnings)

End Sub

 

1 « J'aime »
4

Ha j'ai validé trop vite votre réponse: Ca ne marche pas chez moi.

Erreur de compilation.

Attendu : fin d'instruction.

j'ai bêtement collé le taxte dans vba

5

Bonjour,

Il faut copier tout sauf la première ligne qui n'est pas en commentaire.

Quelle version de SW (le code est valable à partir de 2018)

6

j'ai SW 2015 (pour le moment)

en cherchant sur le net sur la base de votre réponse, je pense avoir trouvé la même pour 2015 (pas de différence à l'oeil nu...)

http://help.solidworks.com/2015/English/api/sldworksapi/Save_File_Example_VB.htm

7

yes , ca marche !

Merci beaucoup ;)