Ecouter des .wma

ratou34 · 27 Novembre 2010

Bonjour le forum,

J'ai un userform sur lequel se trouve un bouton.
Je voudrais ecouter un fichier wave lorsque je clique sur le bouton de mon userform.
J'ai essayé le code suivant mais rien ne se passe (pas d'erreur, ni de plantage) :

Declare Function PlaySound Lib "Winmm" _
(ByVal pszSound As String, ByVal hmod As Long, ByVal fdwSound As Long) As Long

Sub Test()
PlaySound "C:\Music\test01.wma", 0, 0
End Sub

J'ai ce probleme sur Excel 2003 et 2007.
Merci d'avance pour vos reponses

James007 · 27 Novembre 2010

Re : Ecouter des .wma

Bonjour,

Tu peux essayer le code suivant avec Windows Media Player :

Code:

Sub jouer()
     son = "C:\Program Files\Windows Media" & _ 
     "Player\wmplayer.exe C:\Music\test01.wma"
     MyAppID = Shell(on, 0)
End Sub

A +

ratou34 · 27 Novembre 2010

Re : Ecouter des .wma

Salut James007,
Je viens de tester et en effet cela fonctionne.
Merci de ton aide
@+

Ecouter des .wma

ratou34

XLDnaute Junior

James007

XLDnaute Barbatruc

ratou34

XLDnaute Junior

Discussions similaires