Inserer une musique

[maval]

Bonjour


Est-il possible de lancer une musique d'un formaire "midi,Wav ou MP3"?

J'ai sur mon formulaire un combobox pout choir le morceau de musique et un bouton pour envoyer la musique.


Je vous remercie de votre aide

 

[Modeste geedee]

Re : Inserer une musique

Bonsour®
voir éventuellement là :
http://mj13xld.free.fr/MyMP3_V5_MJ.xls

 

[maval]

Re : Inserer une musique

Bonjour,

Je te remercie de la réponse mais j'aimerai ecouter la musique a partir de mon formulaire en choisissant dans la combobox.

Bon aprés midi

 

[maval]

Re : Inserer une musique

Re,

J'ai trouver un code auquel je peut ecouter de la musique avec Windows Media Player seul probleme j'aimerai choisir la musique par ma combobox.

Avec ce code

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

Merci d'avance

 

[MJ13]

Re : Inserer une musique

Bonjour Maval, Modeste GD

En adaptant ton code et celui-ci, j'espère que tu vas y arriver 🙂.

Private Sub CommandButton3_Click()
MsgBox ComboBox1
End Sub

 

[maval]

Re : Inserer une musique

Bonsoir Michel

je te remercie de la réponse entre temps j'ai trouver ceci qui fonctionnne.

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

    WindowsMediaPlayer1.Controls.Play
End Sub

Pourrai tu me dire comment je peut arreter la musique avec un bouton.

Merci et bonne soirée

 

[Si...]

Re : Inserer une musique

salut

autres procédures, attention, les morceaux sont dans le même dossier

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

Attention, avec ThisWorkbook.Path ici, les morceaux sont dans le même dossier !

 

[PMO2]

Re : Inserer une musique

Bonjour,

Essayez le code suivant. Le dossier "Hymnes" doit être placé dans C:

'### 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

 

[maval]

Re : Inserer une musique

Bonsoir Si, MPO2

Je vous remercie nickel et vous souhaite une bonne soirée