Ouvrir une vidéo depuis Excel [Résolu]

Signaler
Messages postés
8
Date d'inscription
mercredi 27 mai 2020
Statut
Membre
Dernière intervention
28 mai 2020
-
Messages postés
8
Date d'inscription
mercredi 27 mai 2020
Statut
Membre
Dernière intervention
28 mai 2020
-
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

2 réponses

Messages postés
7064
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
23 novembre 2020
577
Messages postés
8
Date d'inscription
mercredi 27 mai 2020
Statut
Membre
Dernière intervention
28 mai 2020
>
Messages postés
7064
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
23 novembre 2020

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.
Messages postés
7064
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
23 novembre 2020
577 >
Messages postés
8
Date d'inscription
mercredi 27 mai 2020
Statut
Membre
Dernière intervention
28 mai 2020

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
Messages postés
8
Date d'inscription
mercredi 27 mai 2020
Statut
Membre
Dernière intervention
28 mai 2020
>
Messages postés
7064
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
23 novembre 2020

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

Merci pour votre réactivité et vos réponses
Messages postés
8
Date d'inscription
mercredi 27 mai 2020
Statut
Membre
Dernière intervention
28 mai 2020
>
Messages postés
7064
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
23 novembre 2020

Bonjour,

J'ai essayé comme vous me l'avez proposé. Sans plus de succès.

Quand j'utilise le lien que je reporte dans la cellule M2, j'ai tout d'abord un message de microsoft qui me demande si je veux bien ouvrir ce fichier car il se peut que certain endommage.....etc

?? Est-ce cela le problème ??

Et si oui avez vous une solution pour enlever ce message ??
Sans devoir passer par le mode administrateur, car je n'ai pas ce pouvoir.....

Merci à vous et meilleures salutations
Messages postés
7064
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
23 novembre 2020
577 >
Messages postés
8
Date d'inscription
mercredi 27 mai 2020
Statut
Membre
Dernière intervention
28 mai 2020

Tu peux lancer a partir du lien comme ceci:

 Sub test()
ActiveWorkbook.FollowHyperlink Address:=Sheets("Feuil1").Range("A1"), NewWindow:=True  ' adapter feuille et cellule
End Sub>


tu vas avoir ton message, mais ensuite cela fonctionne.

Sinon tu peux essayer de récupérer dans une variable le chemin de ta video comme cela:

Sub essai()
Dim mavariable As String
mavariable = Range("A1").Hyperlinks(1).Address 'adapter la cellule
Shell "C:\Program Files (x86)\VideoLAN\VLC\vlc.exe " & mavariable, vbNormalFocus
End Sub


cela fonctionne chez moi sans message

Voilà, a toi de jouer!

@+ Le Pivert
Messages postés
8
Date d'inscription
mercredi 27 mai 2020
Statut
Membre
Dernière intervention
28 mai 2020

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