Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$11" Then
Cancel = True
On Error Resume Next
Workbooks.Open ActiveWorkbook.Path & "/Dwg/" & Target.Value & ".dwg"
Shell ("c:\Program Files (x86)\IGC\Free DWG Viewer\BravaFreeDWG.exe " & ActiveWorkbook.Path & "\dwg\" & Target.Value & ".dwg"), vbMaximizedFocus
If Err.Number <> 0 Then
Call MsgBox("Le fichier " & Chr(34) & " " & Target.Value & ".dwg " & Chr(34) & " n'éxiste pas dans le répertoire Profil DWG.", vbCritical, "Manque fichier profil")
Target.Select
End If
On Error GoTo 0
'c:\Program Files (x86)\IGC\Free DWG Viewer\BravaFreeDWG.exe
End If
End Sub