Bonjour,

Mon programme communique avec autoCad et j'ai plusieurs fichier autocad ouvert et je voudrais choisir celui dans lequel je veux travailler.
Je voudrais remplacer 'ActiveDocument' par le l'intitulé de mon fichier .dwg :
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
Sub ChoixDeZone_Click()
 
Dim NewZone As String
NewZone = ThisWorkbook.Path & "\Zones\" & Cells(5, 13) & ".dwg"
 
If Par_zone = True Then
 
    Set AcadDoc = GetObject(, "Autocad.application").ActiveDocument
    Set AcadObj = GetObject(, "Autocad.application")
 
    Call SetForegroundWindow(FindWindowA(vbNullString, AcadObj.Caption))
    AutoCAD.Application.ActiveDocument.SendCommand ("(load ""selp"") ")
    AutoCAD.Application.ActiveDocument.SendCommand ("ssoc ")
    Set objSelSet = AutoCAD.Application.ActiveDocument.ActiveSelectionSet
 
    AutoCAD.Application.ActiveDocument.Wblock NewZone, objSelSet
 
End If
 
End Sub
Merci.