' ******************************************************************************
' swxJRNL.swj - journal recorded on 09/02/09 by FABRICE
' *****************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.OpenDoc6 ("D:\EDUCATION NATIONNALE\DOCUMENTS VIERGES\Assemblage2.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActivateDoc ("Assemblage2 - A3 H")
' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\Assemblage2.SLDASM.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\Assemblage2.SLDASM n'a pas pu être trouvé.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\Assemblage2.SLDASM.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\Assemblage2.SLDASM ne peut être ouvert à cause d'une erreur inattendue.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\DECORS.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\DECORS.SLDPRT n'a pas pu être trouvé.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\DECORS.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\DECORS.SLDPRT ne peut être ouvert à cause d'une erreur inattendue.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\PATTE.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\PATTE.SLDPRT n'a pas pu être trouvé.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\PATTE.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\PATTE.SLDPRT ne peut être ouvert à cause d'une erreur inattendue.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\PATTE.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\PATTE.SLDPRT ne peut être ouvert à cause d'une erreur inattendue.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\PATTE.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\PATTE.SLDPRT ne peut être ouvert à cause d'une erreur inattendue.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\motif central.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\motif central.SLDPRT n'a pas pu être trouvé.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\motif central.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\motif central.SLDPRT ne peut être ouvert à cause d'une erreur inattendue.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\motif central.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\motif central.SLDPRT ne peut être ouvert à cause d'une erreur inattendue.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\motif central.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\motif central.SLDPRT ne peut être ouvert à cause d'une erreur inattendue.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\CERCLE.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\CERCLE.SLDPRT n'a pas pu être trouvé.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\CERCLE.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\CERCLE.SLDPRT ne peut être ouvert à cause d'une erreur inattendue.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\CERCLE.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\CERCLE.SLDPRT ne peut être ouvert à cause d'une erreur inattendue.

' MSGBOX
' Le nom du fichier entré était non valide, non trouvé, verrouillé ou d'un type incompatible.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\montant.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\montant.SLDPRT n'a pas pu être trouvé.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\montant.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\montant.SLDPRT ne peut être ouvert à cause d'une erreur inattendue.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\traverse.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\traverse.SLDPRT n'a pas pu être trouvé.

' MSGBOX
' Ne peut pas ouvrir C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\traverse.SLDPRT.
' 
Modèle externe C:\Documents and Settings\Christophe\Mes documents\dessin solidworks\motif 2\traverse.SLDPRT ne peut être ouvert à cause d'une erreur inattendue.

Part.SetPickMode
swApp.ActiveDoc.ActiveView.FrameWidth = 1476
swApp.ActiveDoc.ActiveView.FrameHeight = 1047
Part.SetPickMode
Set Part = Nothing
swApp.CloseDoc "Assemblage2 - A3 H"
swApp.ExitApp
End Sub
