VBA - Commande pour savoir si un document est actif

Out of category
1

Bonjour,

Quelle commande permet de savoir si un document est actif ? Le but serait de quitter mon programme si il n'y en a pas.

Merci pour votre aide :)

2

Salut,

Il faut utiliser activedoc :

http://help.solidworks.com/2012/English/api/sldworksapi/SolidWorks.Interop.sldworks~SolidWorks.Interop.sldworks.ISldWorks~ActiveDoc.html

Il retourne NULL si aucun document est actif.

Set swModel = swApp.ActiveDoc

If isnull(swModel) then ...

Ou peut-être :

Do

Set swModel = swApp.ActiveDoc

Loop while isnull(swModel) = false

 

3

La fonction me renvoit toujours la même chose lorsque qu'un doc est ouvert ou non. J'utilise le code ci-dessous :

Dim swmodel As SldWorks.ModelDoc2

If IsNull(swmoddel) = False Then Exit Sub

 

4

Essaye de t'inspirer ce cette macro alors :

http://www.lynkoa.com/tutos/import-export-formats-neutres/macro-solidworks-obtenir-le-nom-des-documents-ouverts