Olá Alyson,
primeiramente origado pela ajuda.
Eu sou ainda leio no assunto VBA, não sei como eu deveria me dar com o código que você colocou. Vou adicionar aqui como estão os meus códigos e se você poder me dar um exemplo de como ficaria junto com oque você me mandou eu ficaria muito grato.
Eis os meus códigos:
Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub DrumSoundFile(BateriaFile As String, wait As Boolean)
If Dir(BateriaFile) = "" Then Exit Sub
If wait Then
sndPlaySound BateriaFile, 0
Else
sndPlaySound BateriaFile, 1
End If
End Sub
Sub PlayDrum01()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums011111.wav", False
End Sub
Sub PlayD()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_11112.wav", False
End Sub
Sub PlayO()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_08.wav", False
End Sub
Sub PlayP()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_09.wav", False
End Sub
Sub PlayT()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_150.wav", False
End Sub
Sub Playi()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_170.wav", False
End Sub
Sub PlayJ()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_160.wav", False
End Sub
Sub PlayE()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_320.wav", False
End Sub
Sub PlayR()
DrumSoundFile "D:\DESKTOP_2\Bateria\DDrums_300.wav", False
End Sub
