Ouvrir une vidéo depuis Excel

Résolu
Philou9906 -  
 Philou9906 -
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

  1.
    cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    voir ceci:

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

    0
    1. Philou9906
       
      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
    2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > Philou9906
       
      comme ceci, adapter le chemin 

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


      @+ Le Pivert
      0
    3. Philou9906 > 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
    4. cs_Le Pivert Messages postés 8437 Statut Contributeur 730 > Philou9906
       
      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
    5. Philou9906 > 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
  2. Philou9906
     
    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