Mais ou est la musique ?

[zeltron24]

Bonsoir le Forum,

J'ai récupéré cette macro que je lance à l'ouverture de mon classeur. L'emplacement des fichiers sons est correct mais aucun son ne sort¨Pouvez vous me dire ou se trouve l'erreur d'avance Merci

Sub Jouer_la_musique()
Dim Pays As String
Dim Path_Musique As String

 Sheets("Feuil1").Activate
    Pays = ActiveCell
    DoEvents
    ' paramètres de la musique
    Path_Musique = ("c:\Chansons\musique\" & Pays & ".mid") 
'    Musique_Nom = "Eurovision.mid"
    ' jouer la musique
    Call Musique_jouer(Path_Musique) ' + pays) 'Musique_Nom)
End Sub

zeltron24

 

[Papou-net]

Re : Mais ou est la musique ?

Bonsoir le Forum,

J'ai récupéré cette macro que je lance à l'ouverture de mon classeur. L'emplacement des fichiers sons est correct mais aucun son ne sort¨Pouvez vous me dire ou se trouve l'erreur d'avance Merci

Sub Jouer_la_musique()
Dim Pays As String
Dim Path_Musique As String

 Sheets("Feuil1").Activate
    Pays = ActiveCell
    DoEvents
    ' paramètres de la musique
    Path_Musique = ("c:\Chansons\musique\" & Pays & ".mid") 
'    Musique_Nom = "Eurovision.mid"
    ' jouer la musique
    Call Musique_jouer(Path_Musique) ' + pays) 'Musique_Nom)
End Sub

zeltron24

Bonsoir zeltron24,

L'avant-dernière ligne appelle une procédure Musique_jouer.
Es-tu certain qu'elle existe dans ton code ?

Espérant avoir aidé.

Cordialement.

 

[zeltron24]

Re : Mais ou est la musique ?

Bonsoir le Forum,

Pour répondre à Papou net
Oui je ne l'avais pas précisé mais elle existe.
En voici le contenu

Public Function Musique_jouer(ByVal Fichier As String, _
                              Optional ByVal Alias As Variant) As Boolean
Dim nRet As Long
    If IsMissing(Alias) Then Alias = "tune"
    ' stoppe la musique en cours d'exécution éventuellement
    Call Musique_Stopper(Alias)
    If mciSendString("open " & Fichier$ & " alias " & Alias, vbNullString, 0, 0) = 0 Then
        nRet = mciSendString("play " & Alias & " from 0", vbNullString, 0, 0)
        Musique_jouer = (nRet = 0)
    Else
        MsgBox "Impossible de jouer la musique." + vbLf + vbLf + "Problème de fichier ou de compatibilité"
        Musique_Stopper
    End If
End Function

et Musique_Stopper Aussi

 

[JNP]

Re : Mais ou est la musique ?

Bonsoir le fil 🙂,
Je ne suis pas sûr, mais pour exploiter un .mid (fichier midi), il me semble qu'il faut une interface midi 🙄...
Peut-être qu'il manque une référence pour déclencher cette interface 😉...
En jetant un oeil sur le net, je n'ai vu que l'utilisation de mciSendString pour enregistrer, par pour écouter 😱.
Bon courage 😎

 

[zeltron24]

Re : Mais ou est la musique ?

Avec un peu de retard merci pour ton aide JNP je continue de mon coté les recherches et je creuse mais pour l'instant encore rien