Discussion :

[paselo]

Bonjour¨

JE voulais jouer un son wav depuis le code vba et j'ai trouvé ce genre de code !
J'ai fait un copier coller du code dans l'évenement sur clic... , mais apparement pas mal d'erreur ! JE suis débutant et ça doit se voir...

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
18
19
20
21
22
Private Sub Bouton_son_Click()
 
Option Compare Database
Option Explicit
 
Public Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
 
 
Sub PlayWAV()
    Dim wavfile As String
    ' snd_async: son asynchrone (la musique n'arrete pas le programme)
 
    wavfile = CurrentProject.Path & "\son\" & "caisse-enregistreuse.wav"
 
    Call PlaySound32(wavfile, 0&, SND_ASYNC Or SND_FILENAME)
 
End Sub
End Sub

MErci

[hyperion13]

si vous pouviez donner les runtime error cela serait un grand pas pour les autres

[tee_grandbois]

bonsoir,
a mon avis la partie de code ci-dessous doit être placé dans un Module standard (pas un module de classe de formulaire):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Option Compare Database
Option Explicit
 
Public Declare Function PlaySound32 Lib "winmm.dll" Alias "PlaySoundA" (ByVal IpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

et doit s'utiliser comme cela dans un formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Bouton_son_Click()
Dim wavfile As String
' snd_async: son asynchrone (la musique n'arrete pas le programme)
 
wavfile = CurrentProject.Path & "\son\" & "caisse-enregistreuse.wav"
 
Call PlaySound32(wavfile, 0&, SND_ASYNC Or SND_FILENAME)
 
End Sub

[paselo]

Et je suis en 64 bits, cela joue un rôle?

[paselo]

Exact il fallait mettre la première partie dans un module et il fallait aussi ajouter ptrsafe !

Merci