Bonjour
J'ai un code qui me permet d’accéder à l'ouverture d'une vidéo au format MP4 avec VLC.
Le code est le suivant:
-------------------------------------------------------------------------------------
Private Sub CommandButton13_Click()
'Bouton "VIDEO"
'Aller ouvrir l'image sélectionner avec le nom dans la liste déroulante
'Nouveau code le 28/06/2020
If ActiveWorkbook.Name <> ThisWorkbook.Name Then ThisWorkbook.Activate
Dim NomFic As String, ArgDir As String
Dim Nom As String
Rep = Workbooks(ActiveWorkbook.Name).Path & "\Materiels\" 'Materiels=emplacement des fichiers .mp4
ArgDir = Rep & ComboBox1.Value & ".mp4"
NomFic = Dir(ArgDir)
If NomFic <> "" Then
ThisWorkbook.FollowHyperlink Rep & NomFic
Else
MsgBox "Il n'existe pas de vidéo :" & vbLf & ArgDir, vbCritical, Me.Caption
End If
End Sub
-----------------------------------------------------------------------------------------
Mon problème est le suivant:
Lorsqu'une vidéo existe (Nom du ComboBox1), je peux visualiser cette vidéo grâce à l'apparition de la boite de dialogue qui me permet de voir (Touche OK) ou d'annuler la vidéo (Touche Annuler). La touche OK est fonctionnelle, en revanche si je ne souhaite pas regarder la vidéo en appuyant sur le bouton (Annuler), j'ai un bug du code qui me fait apparaitre l'intitulé suivant :
Erreur d'éxecution'-2147467260(80004004)' Impossible de suivre le lien hypertexte jusqu'à destination.
Pouvez-vous m'éclairer sur ce bug et comment puis-je corriger le code ?
NB : Ce code me permet d'ouvrir uniquement les vidéo mp4 et non les autres formats (sinon plantage)
Cordialement
Jacques
J'ai un code qui me permet d’accéder à l'ouverture d'une vidéo au format MP4 avec VLC.
Le code est le suivant:
-------------------------------------------------------------------------------------
Private Sub CommandButton13_Click()
'Bouton "VIDEO"
'Aller ouvrir l'image sélectionner avec le nom dans la liste déroulante
'Nouveau code le 28/06/2020
If ActiveWorkbook.Name <> ThisWorkbook.Name Then ThisWorkbook.Activate
Dim NomFic As String, ArgDir As String
Dim Nom As String
Rep = Workbooks(ActiveWorkbook.Name).Path & "\Materiels\" 'Materiels=emplacement des fichiers .mp4
ArgDir = Rep & ComboBox1.Value & ".mp4"
NomFic = Dir(ArgDir)
If NomFic <> "" Then
ThisWorkbook.FollowHyperlink Rep & NomFic
Else
MsgBox "Il n'existe pas de vidéo :" & vbLf & ArgDir, vbCritical, Me.Caption
End If
End Sub
-----------------------------------------------------------------------------------------
Mon problème est le suivant:
Lorsqu'une vidéo existe (Nom du ComboBox1), je peux visualiser cette vidéo grâce à l'apparition de la boite de dialogue qui me permet de voir (Touche OK) ou d'annuler la vidéo (Touche Annuler). La touche OK est fonctionnelle, en revanche si je ne souhaite pas regarder la vidéo en appuyant sur le bouton (Annuler), j'ai un bug du code qui me fait apparaitre l'intitulé suivant :
Erreur d'éxecution'-2147467260(80004004)' Impossible de suivre le lien hypertexte jusqu'à destination.
Pouvez-vous m'éclairer sur ce bug et comment puis-je corriger le code ?
NB : Ce code me permet d'ouvrir uniquement les vidéo mp4 et non les autres formats (sinon plantage)
Cordialement
Jacques
