Button to play wav file based on cell value

[zackete]

Hello everyone!

Well, let's say that I've just arrived to this VBA excel world. One week ago I have no idea that microsoft excel had such a cool feature...

Somehow I've managed (thx google!) to insert an extremely helpful VBA code on one of my excel files.

I'm using Microsoft Excel 2010 on Windows 7 64 bits.

This code looks on 2 different columns, and plays a .wav file based on the cell value.

Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
On Error Resume Next
If Target.Column = 1 Then
Call PlaySound("C:\Users\Diego\Desktop\" & Target.Value & ".wav", 0&, SND_ASYNC Or SND_FILENAME)
Else
Call PlaySound("D:\" & Target.Value & ".wav", 0&, SND_ASYNC Or SND_FILENAME)
End If
On Error GoTo 0
End Sub

It works perfect, no issues at all. But I'm looking to create also a clickeable button, that plays the .wav file based on the cell selected.

So if for example the cell contains the value "ladygaga", when you click the button it plays the audio ladygaga.wav.

Any help with this would be really much appreciated

Thx in advance!

 

[p45cal]

The macro that the button is assigned to/triggers should contain:

On Error Resume Next
  Call PlaySound("C:\Users\Diego\Desktop\" & ActiveCell.Value & ".wav", 0&, SND_ASYNC Or SND_FILENAME)
On Error GoTo 0

??

 

[zackete]

So you mean like this?

Private Sub Play_Click()
On Error Resume Next
  Call PlaySound("C:\Users\Diego\Desktop\" & ActiveCell.Value & ".wav", 0&, SND_ASYNC Or SND_FILENAME)
On Error GoTo 0
End Sub

Just tried it, but didn't worked :S

 

[zackete]

Got your point! I made it works with the following code:

Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
  Alias "PlaySoundA" (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Private Sub Play_Click()
  Call PlaySound("C:\Users\Diego\Desktop\" & ActiveCell.Value & ".wav", 0&, SND_ASYNC Or SND_FILENAME)
End Sub

But, if there are 2 wav files with the same name in column 1 and 2, it always plays the one allocated on "C:\Users\Diego\Desktop\".

I want that if you click on a .wav file at Column2, it looks for it on a different path (i.e: "D:\").

Thx in advance and thx for help!

 

[p45cal]

..then either have the path included in the cell and remove it from the macro or if you know that cells from a given column will always play from a given folder you can do something like this:

Private Sub Play_Click()
Select Case ActiveCell.Column
  Case 1
    Call PlaySound("C:\Users\Diego\Desktop\" & ActiveCell.Value & ".wav", 0&, SND_ASYNC Or SND_FILENAME)
  Case 2
    Call PlaySound("D:\somefolder\somewhere\Desktop\" & ActiveCell.Value & ".wav", 0&, SND_ASYNC Or SND_FILENAME)
End Select
End Sub

 

[zackete]

Worked like a charm! Thx a lot!