Private Sub btnLire_Click()
Dim i As Integer
Dim Film As String
Dim Chemin As String
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) Then
Film = ListBox2.List(i)
On Error GoTo GestionErreurs
Chemin = Dir("G:\ANIMATIONS-ENFANTS\" & Film & ".AVI")
ThisWorkbook.FollowHyperlink Chemin
Exit Sub
End If
GestionErreurs:
MsgBox "Erreur ! Ouverture film impossible : " & Film & " introuvable"
Next i
End Sub