faire emettre un son .wav dans une macro

[papymira]

bonjour à tous,
j'arrive par beep à faire couiner l'ordi lors d'un appui sur un bouton ! mais peut-on faire émettre quelque chose de plus harmonieux ?

merci d'avance ...😉

 

[SubEndSub]

Re : faire emettre un son .wav dans une macro

Bonjour chez vous

Pour répondre au questionnement de Roger

Trouvé sur le net

Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Const SND_SYNC As Long = &H0 ' play synchronously (default)

a = sndPlaySound32(sWinDir & "Media\tada.wav", SND_NODEFAULT Or SND_NOSTOP Or SND_SYNC)

Une exemple de macro d' Andy Pope pour préciser ma précédente réponse.

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

Const SND_SYNC As Long = 0
Const SND_ASYNC As Long = 1

Sub Sound()

    Dim strSoundFile As String
    
    strSoundFile = "c:\test\MySound.WAV"
    
    Call sndPlaySound32(strSoundFile, SND_SYNC)
    MsgBox "Synchronously"
    
    Call sndPlaySound32(strSoundFile, SND_ASYNC)
    MsgBox "Asynchronously"
    
End Sub

 

[ROGER2327]

Re : faire emettre un son .wav dans une macro

Re...

Merci SubEndSub.
J'en déduis que la paramètre en question contrôle la synchronisation des actions.
Si sa valeur est 0 (ou omis), la procédure lance l'exécution du fichier de son et ne rend la main à l'utilisateur que lorsque le fichier de son est entièrement exécuté.
Si sa valeur est 1, la procédure lance l'exécution du fichier de son et rend immédiatement la main à l'utilisateur.
Tout cela semble fonctionner sans problème : pourquoi Bill dit-il que "cette propriété ne doit pas être utilisée" ?​

ROGER2327