Bonjour,
Ton fichier s'ouvre bien dans SW ?
Un exemple d'utilisation de GetDesignTable en VBA : http://help.solidworks.com/2013/English/api/sldworksapi/Get_Design_Table_Example_VB.htm
Essaye aussi d'ajouter la ligne
File.GetFileCopy (0)
juste après la ligne
Vault.GetFileFromPath("Le_nom_de_ton_fichier_avec_le_chemin", Folder)
Cordialement,
Je viens d'insérer la ligne que tu m'a indiqué et l'erreur est à cette ligne, la même erreur.
Oui mon fichier s'ouvre bien dans SW et ma macro marche merveilleusement bien du moment que j'ai cliqué sur mon fichier au préalable pour "Obtenir la dernière version".
Cela confirme donc que c'est bien la raison du bug.
Edit : concernant l'utilisation de GetDesignTable je l'utilise bien comme c'est indiqué.
Là je ne vois pas. Pour info je n'ai aucune erreur de fonctionnement avec la macro suivante :
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
Dim Vault As New EdmVault5
Dim File As IEdmFile5
Dim Folder As IEdmFolder5
Vault.LoginAuto "Coffre_BE", 0
Set File = Vault.GetFileFromPath("C:\Coffre_BE\TEST\0088880001.SLDPRT", Folder)
Set Part = swApp.OpenDoc6(Folder.LocalPath & "/" & File.Name, 1, 2, "", longstatus, longwarnings)
swApp.ActivateDoc2 File.Name, False, longstatus
Set swModel = swApp.ActiveDoc
swModel.ViewZoomtofit2
End Sub
Le seul message que j'ai est que l'Epdm me demande si je veux extraire le fichier au chargement de celui-ci, message normal puisqu'il ne l'est pas. Pour info je n'ai pas besoin de la ligne GetFileCopy.
Je suis sur la version 2015.
Cordialement,