Activer des sons *.wav

[Luc]

Bonjour à tous,

J'utilise Excel 2000 et je souhaite activer un son (fichier *.wav, par exemple) à la fin d'une procédure plutôt qu'un traditionnel BEEP. Je ne vois pas du tout comment faire. Là, je sèche...
Merci d'avance pour votre aide.

 

[STéphane]

un exemple ici
<http://xlbysteph.free.fr/aideinformatique/multimedia.html>

 

[Luc]

Salut Stéphane,

Merci pour ta réponse aussi rapide.
Ca marche en insérant un objet son wave dans la feuille. Il suffit juste d'activer l'objet dans le code. Et en plus c'est simple!!!

Pour info, je n'ai pas réussi à faire tourner la première solution proposée:

Sub PlayMIDI()
If Application.CanPlaySounds Then
mciExecute "play " & "C:\Winnt\Media\Passport.mid"
Else
MsgBox "Sound is not supported on your system !, " & vbCrLf _
& "but anyway, the code is processing", , "Désolé"
Exit Sub
End If
End Sub

La macro échoue sur "mciExecute"...
Peux-tu m'éclairer? (c'est juste pour ma culture personnelle, et ça pourrait peut-être servir aux autres...)

Merci encore.
Luc

 

[Celeda]

Stephane,
J'ai la même demande SVP, je suis arretee au même niveau
Merci

 

[STéphane]

essayer cela
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpzSoundName As String, ByVal uFlags As Long) As Long

Sub Musique()
If Application.CanPlaySounds Then
Call sndPlaySound32("D:\...\ex.wav", 0)
'Chemin à modifier............!!!
End If
End Sub


ou cherchez pour des exemples avec mciexecute sur http://groups.google.fr

bye
Stéphane

 

[Luc]

Stéphane, merci pour le temps passé, mais tu as été pris de vitesse par Gérard qui m'a proposé sensiblement la même solution.
Ca marche pour moi. J'ai transmis à Celeda le message de Gérard.
Il n'y a pas de raison pour qu'elle n'y arrive pas non plus...

C'était la première fois que je participais à ce forum. Je crois bien que j'y reviendrait...

Merci à tous.
A+

 

[Celeda]

Bonjour:

Merci beaucoup STephane, Luc et Gerard, pour vos explications. Mais je me suis moins douée que vous alors je vais tester tranquillement ce week-end.
Bonne fin de semaine à vous.