Bonjour la communauté
voici mon code , ce que je cherche a faire , c est qd la personne clique sur une case, il prend le nom dans la case et va ouvrir le fichier en pdf
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 18, 19, 20, 21, 64, 65, 66, 67, 68, 69, 70, 71
If Target <> "" Then
MonDir = "K:\Solution\Final\"
On Error Resume Next
Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & MonDir & Target.Value & ".pdf"
If Err.Number <> 0 Then
On Error GoTo 0
MsgBox "Pas de PDF"
Exit Sub
End If
On Error GoTo 0
End If
End Select
End Sub
ca marche bien , mais le hic est que je voudrais qd il trouve pas le fichier qu il aille voir dans un autre directory genre "K:\Solution\Final2\".
mais apres plusieurs tentatives j y arrive pas
merci pour votre aide
voici mon code , ce que je cherche a faire , c est qd la personne clique sur une case, il prend le nom dans la case et va ouvrir le fichier en pdf
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 18, 19, 20, 21, 64, 65, 66, 67, 68, 69, 70, 71
If Target <> "" Then
MonDir = "K:\Solution\Final\"
On Error Resume Next
Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & MonDir & Target.Value & ".pdf"
If Err.Number <> 0 Then
On Error GoTo 0
MsgBox "Pas de PDF"
Exit Sub
End If
On Error GoTo 0
End If
End Select
End Sub
ca marche bien , mais le hic est que je voudrais qd il trouve pas le fichier qu il aille voir dans un autre directory genre "K:\Solution\Final2\".
mais apres plusieurs tentatives j y arrive pas
merci pour votre aide