Ouverture PDF par listbox

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Private Sub ListBox1_Click()
Dim sFichier As String
Dim hwnd As Long
    sFichier = ListBox1.List(ListBox1.ListIndex, 3)
    ShellExecute hwnd, "Open", sFichier, 0&, 0&, SW_SHOWNORMAL
End Sub

Private Sub ListBox1_Click()
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) Then
With Worksheets(1)
    Set objHyper = _
        .Hyperlinks.Add(Anchor:=.Range("A1"), _
            Address:=ListBox1.List(i, 3))
    objHyper.Follow
    .Range("A1").Clear
End With
End If
Next i
End Sub

Dim I as Byte, obtHyper as Object

Sub AjoutLiens()
Dim i As Long, LastRow As Long
Dim sStr As String

    LastRow = Worksheets("piecedivers").Range("D" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
        sStr = Worksheets("piecedivers").Range("D" & i)
        If Len(sStr) > 0 Then
            Worksheets("piecedivers").Hyperlinks.Add Anchor:=Range("E" & i), Address:=sStr, TextToDisplay:="Essai" & i
        End If
    Next i
End Sub