Inserer une musique

Private Sub CommandButton3_Click()
  
    WindowsMediaPlayer1.URL = "C:\Users\Max\Desktop\Musiques\Hymnes\Afghanistan.wav"
    WindowsMediaPlayer1.Controls.Play
End Sub
 
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
    If NewState = 3 Then WindowsMediaPlayer1.fullScreen = False
End Sub

Private Sub CommandButton3_Click()
MsgBox ComboBox1
End Sub

Private Sub CommandButton3_Click()
    'jouerWindowsMediaPlayer
    WindowsMediaPlayer1.URL = "C:\Users\Max\Desktop\Musiques2\" & ComboBox1 & ".wav"

    WindowsMediaPlayer1.Controls.Play
End Sub

Private Declare Function mciExecute& Lib "winmm.dll" (ByVal lpstrCommand$)
Dim Mid As String
Private Sub UserForm_Initialize()
  Cb.List = [D5:D9].Value
End Sub
Private Sub Cb_Change()
  Mid = ThisWorkbook.Path & "\" & Cb & ".mid"
  Call mciExecute("play " & Mid)
End Sub
Private Sub Shut_Click()
  Call mciExecute("stop " & Mid)
End Sub

'### Constantes à adapter ###
Const CHEMIN As String = "c:\Hymnes\"
Const SUFFIXE As String = ".mid"
'############################

Private Sub CommandButton3_Click()
Dim i&
If ComboBox1 = " * Stop *" Then ComboBox1 = ""
i& = Shell("C:\Program Files\Windows Media Player\wmplayer.exe " & CHEMIN & ComboBox1.Value & SUFFIXE & "", vbHide)
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim Cell As Range
Me.ComboBox1.AddItem (" * Stop *")  'ajout pmo pour stopper la musique
With Sheets("Feuil1")
  For Each Cell In .Range("D5:D" & .Range("D65536").End(xlUp).Row)
    Me.ComboBox1.AddItem (Cell)
  Next
End With
End Sub