Jouer un son .wav Excel 2010

Bonjour à tous

Voila, a question est simple : comment jouer un son via une macro vba dans excel 2010?

nb : la seule choses que j'ai trouvé est Application.CanPlaySounds mais il est dit dans l'aide :

Cette propriété ne doit pas être utilisée. Les sons ont été supprimés de Microsoft Excel.

Merci d'avance pour votre aide

Merci, j'ai trouvé. Pour ceux que ça intéresse il faut faire :

Sub JoueSon()

' Joue le son du fichier C:\WINDOWS\TADA.WAV

Application.ExecuteExcel4Macro "SOUND.PLAY(,""C:\WINDOWS\MEDIA\TADA.WAV"")"

End Sub

voila , salut les amis

En revanche j'aimerai le jouer en même temps que l'affichage d'une msgbox mais cela ne marche pas...avez vous une idée?

Bonsoir

Avant que tu fasses ta réponse, j'avais bricolé ça

ÉDIT: Pour ton autre question pas de réponse

bonsoir Banzai64, merci pour ta réponse

whaou tu as fais vite pour faire tout ça!!! impressionant.

malheureusment je crois avoir déjà utilisé sndplaysound mais quand je lance ta macro cela me met ça :

...ça m'a l'air un peu compliqué comme erreur lol...

Bonsoir

J'avais déjà vu ça

Fait comme indiqué

Declare PtrSafe Function .......

A voir

http://msdn.microsoft.com/fr-fr/library/office/ee691831%28v=office.14%29.aspx

J'ai rajouté : Public Declare PtrSafe Function avant :

Public Declare Function sndPlaySound32 Lib "winmm.dll" _

Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal UFlags As Long) As Long

j'ai pas tout compris ( je suis encore novice en VBA) sur l'aide du lien que tu m'as envoyé mais à priori il faudrait remplacer les types long par des lonptr... c'est apparement lié à un pbm de pointeur. et les pointeur c'était pas mon dada en C. lol

Bonsoir

Je ne peux t'aider plus

Si quelqu'un passe par ici et qui sait, te donnera des conseils

Désolé

Bonjour,

A insérer en début de code et à tester

#If VBA7 Then
    Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias _
        "sndPlaySoundA" (ByVal lpszSoundName As String, _
        ByVal uFlags As Long) As Long
#Else
    Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
        "sndPlaySoundA" (ByVal lpszSoundName As String, _
        ByVal uFlags As Long) As Long
#End If

bonjour Banzai64 et Jean-Eric,

merci pour votre aide. J'ai rajouté ton code Jean-Eric, et ai tenté, en vain de faire fonctionner la macro proposée par banzai64 : cela ne marche toujours pas ( j'ai placé ton bout de code au début du module, je pense que c'est là qu'il fallait l'inserer....?) .

Donc j'ai toujours le code que j'ai écris au début, qui est très court c'est assez sympa, sauf que visiblement je ne peux jouer que des wav et pas de (tous petits) mp3...

Merci encore pour vos réponse vous êtes super passez un bon dimanche.

coucou,

pour moi

Application.ExecuteExcel4Macro "SOUND.PLAY(,""C:\WINDOWS\MEDIA\TADA.WAV"")"

fonctionne parfaitement, merci du tuyau !

JP