Jouer mon Mp3 en boucle

[Temjeh]

Bonsoir et merci d'avance

J'ai ceci qui fonctionne très bien:

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Sub PlayMP3()
Mp3File = ThisWorkbook.Path & "\" & "ForestEcho.mp3"
mciExecute ("play " & Mp3File)
End Sub

Sub StopMp3()
Mp3File = ThisWorkbook.Path & "\" & "ForestEcho.mp3"
mciExecute ("stop " & Mp3File)
End Sub

Y a-t-il un moyen de le faire jouer en boucle?

Merci

Temjeh

 

[Temjeh]

Re : Jouer mon Mp3 en boucle

...up

Merci

 

[kjin]

Re : Jouer mon Mp3 en boucle

Bonsoir,
Essaies plutôt la fonction Ce lien n'existe plus et ses Ce lien n'existe plus de commande

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Sub PlayMP3()
Mp3File = ThisWorkbook.Path & "\ForestEcho.mp3"
mciSendString "OPEN" & Chr(32) & Mp3File & Chr(32) & "TYPE MPEGVIDEO ALIAS DjTemjeh WAIT", vbNullString, 0&, 0&
mciSendString "PLAY DjTemjeh REPEAT", vbNullString, 0&, 0&
End Sub

Sub StopMP3()
mciSendString "STOP DjTemjeh", vbNullString, 0&, 0&
mciSendString "CLOSE ALL", vbNullString, 0&, 0&
End Sub

A+
kjin

 

[Temjeh]

Re : Jouer mon Mp3 en boucle

Merci beaucoup
Ca fonctionne à la perfection!

Mais pourquoi des bruits de nature en boucle?
En bruit de fond pour mon jeu de Golf en ligne gratuit(WOW)

Pour ceux que ca interessent
WGT (World Golf Tour)

A++

Temjeh

 

[kjin]

Re : Jouer mon Mp3 en boucle

Bonsoir,

Mais pourquoi des bruits de nature en boucle?
En bruit de fond pour mon jeu de Golf en ligne gratuit(WOW)

N'oublies pas qu'il faut bosser quand même...😎
A+
kjin