Discussion :

[steph44470]

Bonjour,

je viens de finir une matrice de réponse en excel 2010 sur un fichier son.
exemple : intonation, politesse, etc..

j'ai utilise un bouton qui permet d'écouter le fichier en cliquant dessus, par contre je ne peux que l'ecouter.
Pas de possibilité de retour arriere, pause, etc.

Le test via ce lien ne fonctionne pas, un message d'erreur à chauqe fois
http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

je suis donc parti sur autre chose :

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Dim Wmp As WindowsMediaPlayer
 
Private Sub CommandButton1_Click()
 
Wmp.URL = "D:\black.wma"
Wmp.Controls.Play
End Sub

=> message d'erreur
erreur d'execution '91'

Auriez-vous une solution ?
cdt

[parmi]

Bonjour,

As-tu mis le contrôle WMP sur un Userform comme stipulé ?
Ça devrait fonctionner...

[steph44470]

les lignes données sont issues d'une simple feuille avec une Userform et 1 bouton.

cela me permet de tester plus facilement.

Je ne sais pas comment mettre le contrôle WMP sur un Userform comme stipulé ?

PS :
Dans la matrice, j'utilise cette ligne pour écouter le fichier :

Code :

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

Application.ExecuteExcel4Macro "SOUND.PLAY(,""C:\windows\temp\ecoute.WAV"")"

Mais je ne peux pas le stopper.

cdt stephan

[parmi]

Si tu vas dans le menu Développeur et que tu cliques Insérer, choisis l'icône avec des outils.
Dans la liste qui s'affiche, trouve WMP en bas de la liste, sélectionne-le et place-le (desssine-le) sur la feuille.
Dans le code de ton bouton, mets ceci

Code :

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

1
2
    WindowsMediaPlayer1.URL = "Le chemin et nom de ce que tu veux écouter"
    WindowsMediaPlayer1.Controls.Play

À ce moment-là, tu entendras et tu pourras utiliser le volume, pause, arrêt,...

Attention toutefois: les contrôles ActiveX sont devenus capricieux depuis les dernières versions Office...

La même chose peut être faite sur un Userform.
Il suffit de l'afficher en premier, donc dans le code du bouton sur la feuille, tu mets

Code :

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

1
2
3
4
5
6
Sub Jouer()
    Application.DisplayAlerts = False
    UserForm1.WindowsMediaPlayer1.URL = "Le chemin et nom de ce que tu veux écouter"
    UserForm1.Show
    Application.DisplayAlerts = True
End Sub