' ******************************************************************************
' C:\Users\machp\AppData\Roaming\SolidWorks\SOLIDWORKS 2020\swxJRNL.swj - journal recorded on 05/18/26 by machp
' *****************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

' MSGBOX
' Le fichier ~$Assemblage2.SLDPRT est corrompu et ne peut pas être ouvert ou réparé.
' Veuillez récupérer une copie de sauvegarde du fichier. Si le problème persiste, veuillez contacter votre support SOLIDWORKS local pour vous aider à résoudre ce problème.

' MSGBOX
' Le fichier ~$Assemblage2.SLDPRT est corrompu et ne peut pas être ouvert ou réparé.
' Veuillez récupérer une copie de sauvegarde du fichier. Si le problème persiste, veuillez contacter votre support SOLIDWORKS local pour vous aider à résoudre ce problème.


' Open
Set Part = swApp.OpenDoc6("\\Nouveau-Z\public\DOCUMENTS\@@@Imprimante 3D\REGIS\Kodiaq\Assemblage2.SLDPRT", 1, 0, "", longstatus, longwarnings)
swApp.ActivateDoc2 "Assemblage2.SLDPRT", False, longstatus
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
' MSGBOX
' Triangles: 14944
' Taille fichier: 747284 (Octets)
' Format de fichier: Binaire
' Enregistrer \\NOUVEAU-Z\PUBLIC\DOCUMENTS\@@@IMPRIMANTE 3D\REGIS\KODIAQ\ASSEMBLAGE2.STL ?


' Save As
longstatus = Part.SaveAs3("\\Nouveau-Z\public\DOCUMENTS\@@@Imprimante 3D\REGIS\Kodiaq\Assemblage2.STL", 0, 2)
swApp.ExitApp
End Sub