Bonjour
J'ai un code qui me permet de lire plusieurs sons dans un jeu de logique. Tout marche bien en local, et on entend les sons. J'ai mis le jeu en ligne sur un site perso, et il est devenu muet. Donc le jeu fonctionne sans le son(avec un appel API).
Merci de me venir en aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _ (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As _ Long) As Long sub defin() m8(1, 0) = "joues.wav": m8(1, 1) = "gagnes.wav" m8(2, 0) = "jouev.wav": m8(2, 1) = "gagnev.wav" End Sub Sub son1() ' sons ou voix m7 = ThisWorkbook.Path + "\" + m8(f4, f8) x1 = PlaySound(m7, 0, 2) End Sub
Cordialement
Partager