Discussion :

[soeursourire]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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/

[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?

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.

[fring]

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

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

J'ai donc testé ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[soeursourire]

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?