Ouverture fichier vba SolidWorks
Blindavi
Messages postés
23
Date d'inscription
mercredi 14 octobre 2009
Statut
Membre
Dernière intervention
24 juillet 2012
-
14 déc. 2009 à 11:57
lucasgaetan Messages postés 8 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 25 mars 2011 - 22 oct. 2010 à 13:41
lucasgaetan Messages postés 8 Date d'inscription mardi 19 octobre 2010 Statut Membre Dernière intervention 25 mars 2011 - 22 oct. 2010 à 13:41
1 réponse
lucasgaetan
Messages postés
8
Date d'inscription
mardi 19 octobre 2010
Statut
Membre
Dernière intervention
25 mars 2011
22 oct. 2010 à 13:41
22 oct. 2010 à 13:41
Dim swApp As Object
Dim Part As Object
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
'ouvrir fichier
Set Part = swApp.NewDocument("Chemin\non du fichier.extention", 0, 0, 0)
'exemple : Set Part = swApp.NewDocument("C:\Temp\Assemblage.sldas", 0, 0, 0)
Dim Part As Object
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
'ouvrir fichier
Set Part = swApp.NewDocument("Chemin\non du fichier.extention", 0, 0, 0)
'exemple : Set Part = swApp.NewDocument("C:\Temp\Assemblage.sldas", 0, 0, 0)
