Pilotage AutoCAD LT depuis Excel en VBA

Version imprimable

Bonsoir le forum

Je cherche à "piloter" AutoCAD LT 2022 depuis Excel 2007 en VBA. Je suis sous W10.
Suite à l'installation d'AutoCAD sur mon poste, je retrouve bien les références AutoCAD au niveau du VBA.
Ci-dessous mon code de test.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Dim ACApp As AutoCAD.AcadApplication On Error GoTo err_recup_instance Set ACApp = GetObject(, "AutoCAD.Application.24") GoTo suite err_recup_instance: MsgBox ("Erreur récup instance AutoCAD : erreur " & Err.Number & " ==> " & Err.Description) On Error GoTo 0 GoTo fin suite: On Error GoTo 0 If ACApp Is Nothing Then MsgBox ("AutoCAD non lancé, lancement") Set ACApp = CreateObject("AutoCAD.Application.24") MsgBox ("AutoCAD lancé") Else MsgBox ("AutoCAD lancé." & vbCrLf & "Fichier ouvert : " & ACApp.ActiveDocument.Name) End If fin:
Sur l'appel à GetObject avec AutoCAD lancé, j'ai systématiquement l'erreur "429 - Un composant ActiveX ne peut par créer d'objet".
Si je teste l'appel à CreateObject, AutoCAD se lance mais j'ai une erreur dans Excel, "Microsoft Office Excel attend la fin de l'exécution d'une action OLE d'une autre application".
Je tourne un peu en rond. D'après certains forums, cela semble être un problème système mais je n'arrive pas à mettre le doigt dessus ...
Si quelqu'un a été confronté à ce problème, je suis preneur de toute information qui me permette d'avancer.

Merci de votre aide

Bonne soirée

FMI

Bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim ACApp As AutoCAD.AcadApplication
Set ACApp = GetObject(, "AutoCAD.Application")
If Err Then Set ACApp = CreateObject("AutoCAD.Application")
If Err Then
    MsgBox "Err AutoCAD :  " & Err.Description
Else
        If CBool(ACApp.Documents.Count) Then
                  MsgBox "AutoCAD lancé." & vbCrLf & "Fichier ouvert : " & ACApp.ActiveDocument.Name
        Else
                 MsgBox "AutoCAD lancé"
        End If
End If

pour ce qui concerne "Microsoft Office Excel attend la fin de l'exécution d'une action OLE d'une autre application" je ne vois pas!

02/09/2021, 07h58
Mirande

Bonjour

Merci pour la réponse.
Le problème est le même, erreur 429 sur le "GetObject"

Bonne journée

FMI

Bonjour,
Regardes ce lien
https://support.microsoft.com/fr-fr/...5-aad6f37e68b6

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim ACApp As Object
Set ACApp = GetObject(, "AutoCAD.Application")
If Err Then Set ACApp = CreateObject("AutoCAD.Application")
If Err Then
    MsgBox "Err AutoCAD :  " & Err.Description
Else
        If CBool(ACApp.Documents.Count) Then
                  MsgBox "AutoCAD lancé." & vbCrLf & "Fichier ouvert : " & ACApp.ActiveDocument.Name
        Else
                 MsgBox "AutoCAD lancé"
        End If
End If