Discussion :

[LimsWolf]

Bonjour, je n'arrive pas a faire apparaître la fenêtre autoCad en prmier plan, je comprend pas Visible = true devrai la faire apparaître non ? (line 16)

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
23
24
25
26
27
28
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim objetSelectionne As AcadObject, CouleurOriginale As Integer
    'AcadDoc est un lien sur le dessin en cours
    Set AcadDoc = GetObject(, "Autocad.application").ActiveDocument
    Set AcadObj = GetObject(, "Autocad.application")
 
 
    For nc = 10 To 250
 
        If Target.Column = nc + 2 Then
 
            If Target.Cells.Value <> "" Then
                Set objetSelectionne = AcadDoc.HandleToObject(Target.Cells.Value)
                CouleurOriginale = objetSelectionne.Color
                AcadObj.Visible = True
 
                objetSelectionne.Color = 10
                Update
                MsgBox ("voici l'objet")
                objetSelectionne.Color = CouleurOriginale
            End If
 
        End If
 
    Next
 
End Sub

Si vous savez.
Merci

[fring]

Bonjour,

Essaie comme ceci :

• En tête du module tu ajoutes ces deux déclarations
  

  Code :

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

  1
  2
  Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
  Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

• Dans ton code, tu remplaces "AcadObj.Visible = True" par ceci
  

  Code :

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

  Call SetForegroundWindow(FindWindowA(vbNullString, AcadObj.Caption))

[LimsWolf]

Merci,

j'ai fais comme vous m'avez dit, la première fois ça n'a pas marcher. Mais j'ai bien chercher et en fait c'est la MsgBox qui empêchait de bon déroulement, évidement :p.

Merci bien Résolu.