Bonjour, peut on regler le volume avec cette formule ?
Sub joueBeepWindows2ApiBlack()
Dim MonWav As String
MonWav = "C:\Windows\Media\Windows Exclamation.wav" '... chemin et nom à adapter
ExecuteExcel4Macro ("CALL(""winmm"",""PlaySoundA"",""JCJJ"",""" & MonWav & """, " & 0 & "," & &H1...