Private Sub ListBox2_Click()
Dim Compte As Integer, C As Range
Dim sPDFfile As String, sAdobeCommand As String
Const cAdobeReaderExe As String = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"
TextBox4 = ListBox2.Column(3)
If Compte = 0 Then
CommandButton4.Enabled = True
CommandButton1.Enabled = True
CommandButton5.Enabled = True
End If
If ListBox2.ListIndex = -1 Then Exit Sub
CommandButton3.Enabled = True
sPDFfile = ThisWorkbook.Path & "\8_burostock_cat_2010.pdf"
Set C = Feuil1.Columns("B").Find(What:=ListBox2.Column(3))
If Not C Is Nothing Then
sAdobeCommand = " /a ""page=" & C.Offset(, 7) & "=Open Actions"" "
Shell cAdobeReaderExe & sAdobeCommand & Chr(34) & sPDFfile & Chr(34), vbNormal
End If
End Sub