Ouvrir une vidéo depuis Excel

Résolu
Philou9906 Messages postés 8 Statut Membre -  
Philou9906 Messages postés 8 Statut Membre -
Bonjour à vous,

J'ai aucune idée comme faire.
Je fais une listebox dans laquelle est énuméré des fichiers pour de la formation dont les supports varie de PDF, Excel, Word, lien internet et MP4
Je ne veux pas l'intégrer à Excel, mais l'ouvrir dans une autre fenêtre.
Je but sur le lancement des vidéos.
Sachez que celle-ci sont enregistré sur un serveur.
J'ai déterminé les variables suivantes :
Dossi --> le chemin sur le serveur pour le dossier comprenant le fichier à lire
CHX --> le fichier étant choisi

Pouvez-vous m'aider ?

D'avance je vous remercie et vous en suis déjà reconnaissant
Meilleures salutations
A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

voir ceci:

https://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

0
Philou9906 Messages postés 8 Statut Membre
 
Bonjour,

merci pour votre rapidité et votre proposition.
A voir, mon employeur, n'a pas laissé WindowMediaPlayer.
J'ai essayé.
Ce que j'arrive à lire c'est VLC

Merci à vous
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729 > Philou9906 Messages postés 8 Statut Membre
 
comme ceci, adapter le chemin 

Sub test()
Shell "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe", vbNormalFocus
End Sub


@+ Le Pivert
0
Philou9906 Messages postés 8 Statut Membre > cs_Le Pivert Messages postés 8437 Statut Contributeur
 
Voilà ce que j'ai fait en prenant vos précieux conseils :

Sub OUVVID()
Videoavoir = Dossie & "\" & CHX & ".mp4"
Sheets("Liste d’inventaire").[M2] = Videoavoir ' Ceci pour m'assurer que se sont les bonnes données
Shell "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe " & Videoavoir, vbNormalFocus
End Sub

?? Précision Videoavoir est as String ????

L'application VLC s'ouvre, mais un message d'erreur me dit ne pas pouvoir ouvrir la vidéo

Ce qui m'étonne au plus haut point, c'est qu'en utilisant le lien hypertexte de la Cellule M2, j'ouvre la vidéo.

Pouvez encore m'aider ??
Je vous en suis reconnaissant d'avance.
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729 > Philou9906 Messages postés 8 Statut Membre
 
Cela fonctionne chez moi. C'est un problème de chemin

essayer avec le chemin en dur comme ceci: 

Option Explicit
Sub test()
Shell "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe " & "C:\Users\LePivert\Documents\Video\Vilain_petit_canard_ntsc.mpg", vbNormalFocus
End Sub
0
Philou9906 Messages postés 8 Statut Membre > cs_Le Pivert Messages postés 8437 Statut Contributeur
 
Merci,
Je le ferai demain matin à la première heure.

Merci pour votre réactivité et vos réponses
0
Réponse 2 / 2
Philou9906 Messages postés 8 Statut Membre
 
LePivert......
Un grand très GRAND merci. Et même un TRES TRES GRAND MERCI.

Si je buts sur la 2ème proposition, la première fonctionne à merveille !!!

Donc ça me va.

Sympa de votre part, de votre patience, du temps pris pour me répondre .

Meilleures salutations
0