Videos avec VBA

Hello,

Je suis novice avec VBA dans Excel et je cherche à lire une video en plein écran après avoir cliquer sur un bouton de commande. J'ai trouvé sur le net des choses intéressantes comme ci-dessous mais malheureusement je ne trouve pas ce Microsoft Multimedia Control dans mes controles, est-ce normal? Que puis-je utiliser à la place?

Here's another method that might be simpler if you want them to have control. If you don't, just make the control Visible property false.

First, add a Microsoft Multimedia Control to your form using Ctl-T and then select it.

Now, use this code in your Form_Load event:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

' Prepare the MCI control for AVI video. MMControl1.Notify = False MMControl1.Wait = True MMControl1.Shareable = False MMControl1.DeviceType = "AVIVideo" MMControl1.FileName = "C:\Documents and Settings\boB\My Documents\My Videos\Elvis\Elvis Presley - The Wonder Of You (Great Video 1970) (1).avi"   ' Open the MCI device. MMControl1.Wait = True MMControl1.Command = "Open"   ' Play the video. MMControl1.Wait = True MMControl1.Command = "Play"   ' Close the device. MMControl1.Command = "Close"

---

Merci

Je tente de visualiser ma video en faisant comme suit:
- une 1ere forme UserForm1 avec un CommandButton1
- une 2eme forme UserForm2 avec un WindowsMediaPlayer

Et j'ai ce code:

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() UserForm2.Show UserForm2.WindowsMediaPlayer1.URL = "G:\LESBRONZES.avi" UserForm2.WindowsMediaPlayer1.fullScreen = True UserForm2.WindowsMediaPlayer1.Controls.Play UserForm2.WindowsMediaPlayer1.Controls.stop End Sub

---

Malheureusement l'option fullScreen échoue et sans cette option la video n'apparait pas et quand je ferme la fenetre j'entends le son de la video qui se met en route et pas d'image. Qu'est ce que je fais de faux?
Merci

Bonjour,

Pourquoi insères-tu WMP dans un UserForm ? A mon avis c'est de là que vient le problème.

Jette un oeil sur le lien ci-dessous, c'est un tuto sur l'utilisation de WMP en VBA

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

Il faut bien que j'applique ce
WindowsMediaPlayer1.URL = "C:\leFichier.mp3"
à un objet?? D'ou la 1ere phrase du tutorial:
Vous devez préalablement créer une forme dans votre projet et y ajouter un objet Windows Media Player, nommé WindowsMediaPlayer1

Non?

Je commence à me demander si ce que je veux faire est faisable depuis Excel avec VBA. Je voudrais lancer une video, puis une fenetre de sliders pour que celui qui regarde puisse juger la video, puis de nouveau une autre video et ainsi de suite tout en enregistrant les scores et les temps et en plein ecran. Est-ce que cela vous semble quelque chose de faisable avec VBA? ou il vaudrait mieux lancer un script Matlab depuis VBA?

Merci.

Citation:

---

Envoyé par soeursourire

Il faut bien que j'applique ce
WindowsMediaPlayer1.URL = "C:\leFichier.mp3"
à un objet?? D'ou la 1ere phrase du tutorial:
Vous devez préalablement créer une forme dans votre projet et y ajouter un objet Windows Media Player, nommé WindowsMediaPlayer1

Non?

---

Oui tu as raison, n'ayant pas l'habitude de manipuler ce contrôle, je m'y suis penché un peu plus.
Comme expliqué dans le tuto de Silkyroad

Citation:

---

Envoyé par Silkyroad

Windows Media player doit avoir le statut "Lecture en cours" pour pouvoir utiliser l'option "plein écran".

---

J'ai donc testé ceci

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub UserForm_Initialize() WindowsMediaPlayer1.URL = "D:\Temp\testvideo.wmv" End Sub     Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long) If NewState = 3 Then _ WindowsMediaPlayer1.fullScreen = True End Sub

---

Dès que la lecture est en cours on passe en plein écran

J'espère que cela pourra te dépanner.

Merci beaucoup. Ca marche bien.
Mais je me demande si je vais pouvoir obtenir ce que je veux avec VBA:
- la video doit se faire sans laisser les boutons (play, accelerer etc.) pour que l'utilisateur ne puisse pas intervenir sur la video
- il va me falloir des sliders pour que l'utilisateur puisse donner un score à ces videos...

Vous croyez que c'est possible?