Ouvrir une vidéo depuis Excel

Résolu/Fermé

Philou9906 Messages postés 8 Date d'inscription mercredi 27 mai 2020 Statut Membre Dernière intervention 28 mai 2020 - 27 mai 2020 à 16:21
Philou9906 Messages postés 8 Date d'inscription mercredi 27 mai 2020 Statut Membre Dernière intervention 28 mai 2020 - 28 mai 2020 à 12:17

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:

Ouvrir une vidéo depuis Excel
Comment télécharger une vidéo youtube - Guide
Comment ouvrir un fichier epub ? - Guide
Montage video windows - Guide
Ouvrir fichier .bin - Guide
Liste déroulante excel - Guide

2 réponses

Réponse 1 / 2

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
27 mai 2020 à 17:04

Bonjour,

voir ceci:

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

Philou9906 Messages postés 8 Date d'inscription mercredi 27 mai 2020 Statut Membre Dernière intervention 28 mai 2020
27 mai 2020 à 17:08

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

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > Philou9906 Messages postés 8 Date d'inscription mercredi 27 mai 2020 Statut Membre Dernière intervention 28 mai 2020
Modifié le 27 mai 2020 à 17:24

comme ceci, adapter le chemin

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

@+ Le Pivert

Philou9906 Messages postés 8 Date d'inscription mercredi 27 mai 2020 Statut Membre Dernière intervention 28 mai 2020 > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
Modifié le 27 mai 2020 à 18:02

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.

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

Merci,
Je le ferai demain matin à la première heure.

Merci pour votre réactivité et vos réponses

Réponse 2 / 2

Philou9906 Messages postés 8 Date d'inscription mercredi 27 mai 2020 Statut Membre Dernière intervention 28 mai 2020
28 mai 2020 à 12:17

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