Discussion :

[Mirande]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thumb down]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Mirande]

Bonjour

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

Bonne journée

FMI

[Thumb down]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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