pb de acadObj

[g_barthe]

Bonjour

 

J'ai une macro vba sous autocad qui marche depuis x temps et la du jour au lendemain a plus rien :casstet:

 

elle bloque sur moSpace comme si l'objet acadObj etait vide. Le message d'erreur est erreur d'exécution

 

pas de base de données

 

 

voila le début du code qui deja ne focntione plus.

Dim acaddoc As Object

Dim moSpace As Object

Dim acadObj As Object

Set acadObj = GetObject(, "AutoCAD.Application")

Set acaddoc = acadObj.ActiveDocument

'Set moSpace = acaddoc.ModelSpace

 

Pourtant ds les référence il y a bien autocad et rien n'a changé. JE ne comprend pas. Si je change par AutoCAD.Application.15 pour spécifier version 2004 il me dit que c'est le controle activeX qui n'a pas pu charge l'objet. Je tourne en rond carré moi

 

Un petit coup de main serait le bienvenu