Utilisation fichier son avec excel 2010 et VBA

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:

---

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

Bonjour,

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

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:

---

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

---

Mais je ne peux pas le stopper.

cdt stephan

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:

---

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:

---

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

---