Eseguire 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!!!!