Esecuzione file audio

Eseguire un file audio di Tommy

Qualcuno può aiutarmi su come far eseguire un suono (file waw o mp3) ad un determinato evento (tipo una cella ha un certo valore) e anche sostituire il "din" che fa quando si apre un msgbox? grazie

di Apoben64

Ciao tommy, io uso questo codice che lo devi incollare in un modulo del foglio in cui vuoi che venga eseguito il suono e adattarlo alle tue esigenze.
se vuoi visiona anche questo link:
http://ennius.interfree.it/vba/vba119.htm

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


Private Sub EseguiSuono() 
    Dim NomeFile As String 
    Dim rc  As Long 
    NomeFile = "C:\Musica\suono.wav" 
    rc = sndPlaySound(NomeFile, 1) 


End Sub 


Private Sub Worksheet_Change(ByVal Target As Range) 


    If Target.Address = "$A$1" And Target.Value = 10 Then 
        EseguiSuono 
    End If 


End Sub

Mitico di Tommy

Veramente mitico uno meglio dell'altro. ho scetlo laformula di incorporare il suono (presente nel link che mi hai segnalato)altrimenti se do il file a qualcun altro non funziona
grazieeeee!!!!