Playing Sound.wav

[VinceF]

Greetings,

Should this code work?

Sub ClickSound()

Dim soundFile As String

soundFile = "C:\click.wav"

Call playSound(soundFile, 0)

End Sub

If yes, I'm getting a "Sub or function not Defined" error
If no, please advise as to what's wrong.

Thank You,
VinceF
Win10
Office365

 

[Joe4]

It is telling you exactly what the issue is.
You are trying to call a procedure named "playSound", and it cannot find it.
Have you created a procedure called "playSound"?

If not, where did you come up with that?
If from another post, go back and look to make sure you didn't forget to copy over other VBA code or perhaps install an Add-In that contains that.

 

[Logit]

Include the entire path :

Option Explicit

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

Sub shwFrm()
    Call sndPlaySound32("C:\Users\My\Desktop\Ring03.wav", 0)
End Sub

 

[VinceF]

Joe and Logit,
Thank you both for your replies.
Unfortunately my VBA skills are limited to pretty much copy/paste

Joe...I created a Module/Sub called ClickSound. I tried replacing "playSound" with "ClickSound" but I still get the error message.
Logit...I copied your code and adjusted the path where the file is and I get the below error message.

Apologize for my limited skills.

When I try to run the below code I'm getting...
Compile error
Invalid inside Procedure
and it highlights "Option Explicit"

Sub ClickSound()

Option Explicit

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

Sub shwFrm()
    Call sndPlaySound32("C:\clcik.wav", 0)

    
End Sub

 

[Logit]

Option Explicit

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

Sub ClickSound()
    Call sndPlaySound32("C:\clcik.wav", 0)   
End Sub

 

[Joe4]

Joe and Logit,
Thank you both for your replies.
Unfortunately my VBA skills are limited to pretty much copy/paste

Joe...I created a Module/Sub called ClickSound. I tried replacing "playSound" with "ClickSound" but I still get the error message.
Logit...I copied your code and adjusted the path where the file is and I get the below error message.

Apologize for my limited skills.

When I try to run the below code I'm getting...
Compile error
Invalid inside Procedure
and it highlights "Option Explicit"

Sub ClickSound()

Option Explicit

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

Sub shwFrm()
    Call sndPlaySound32("C:\clcik.wav", 0)

 
End Sub

"Option Explicit" needs to be at the very top of the procedure, before any code, like logit shows.

See here: Option Explicit in Excel VBA