bonjour...
suite à une modification d'un fichier, je suis confronté a une erreur dans mon code, si vous pouviez me donner un petit coup de main merci d'avance
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [Q13:Q3000]) Is Nothing Then
Sheets("Stock").Select
ActiveSheet.Range("A3:X3000").AutoFilter Field:=6, Criteria1:=Target
End If
On Error GoTo 0
Else Intersect(Target, [L13:L3000]) Nothing Then
On Error Resume Next
'Workbooks.Open ActiveWorkbook.Path & "/Profil DXF/" & Target.Value & ".dxf"
Shell ("D:\Program Files\IGC\Free DWG Viewer\BravaFreeDWG.exe " & ActiveWorkbook.Path & "\Profil DXF\" & Target.Value & ".dxf"), vbMaximizedFocus
If Err.Number <> 0 Then
Call MsgBox("Le fichier " & Chr(34) & " " & Target.Value & ".dxf " & Chr(34) & " n'éxiste pas dans le répertoire Profil DXF.", vbCritical, "Manque fichier profil")
Target.Select
End If
MERCI D'AVANCE problème de syntaxe
suite à une modification d'un fichier, je suis confronté a une erreur dans mon code, si vous pouviez me donner un petit coup de main merci d'avance
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, [Q13:Q3000]) Is Nothing Then
Sheets("Stock").Select
ActiveSheet.Range("A3:X3000").AutoFilter Field:=6, Criteria1:=Target
End If
On Error GoTo 0
Else Intersect(Target, [L13:L3000]) Nothing Then
On Error Resume Next
'Workbooks.Open ActiveWorkbook.Path & "/Profil DXF/" & Target.Value & ".dxf"
Shell ("D:\Program Files\IGC\Free DWG Viewer\BravaFreeDWG.exe " & ActiveWorkbook.Path & "\Profil DXF\" & Target.Value & ".dxf"), vbMaximizedFocus
If Err.Number <> 0 Then
Call MsgBox("Le fichier " & Chr(34) & " " & Target.Value & ".dxf " & Chr(34) & " n'éxiste pas dans le répertoire Profil DXF.", vbCritical, "Manque fichier profil")
Target.Select
End If
MERCI D'AVANCE problème de syntaxe