XL 2019 Blocage fonction "ThisWorkbook.FollowHyperlink"

[Michel69]

Bonjour,
J’ai créé une vidéothèque de films et je bloque sur la fonction « ThisWorkbook.FollowHyperlink ».
Quand je clic sur « LIRE » la vidéo n’est pas lu.
Autre question, quand je parviendrai à lire les vidéos, j’ai plusieurs format vidéo .AVI ou . MP4 ou .MKV comment faire pour que tous ces format soit lu ?
Je vous joins ma feuille pour que vous puissiez voir.
Merci

 

[Dudu2]

Bonjour,

Avec ça ?

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

Sinon, lors du ThisWorkbook.FollowHyperlink Chemin, c'est le programme associé à l'extension qui sera exécuté. Par exemple, chez moi, VLC est associé à ces extensions et plus, et donc lancé pour la lecture.

 

[Michel69]

Bonjour Dudu2,

Merci pour votre réponse, mais cela ne fonctionne pas:

Le message d'erreur apparaît, il bloque toujours sur le ThisWorkbook.FollowHyperlink Chemin

A savoir j'ai un disque dur dédier F: dans ce disque dur j'ai 10 dossiers des films trié selon le genre du films et le dossier vidéothèque qui contient ma feuille Excel.

Effectivement je visionne tous mes films avec VLC donc il ouvre tous les formats.

Voila je suis encore bloqué

Merci bonne journée