Quizz musical

JNP à dit:

Bonsoir Belsebou ,
Pour commencer, il faudrait que tu postes la sub PlaySong, que l'on sache ce qu'il y a dedans...
Ensuite, les réponses correspondent bien à ce que tu cherches, vu que tu as le chemin Song à la fin de la macro qui doit te servir à lancer la chanson aléatoire, à condition bien sûr que tu ait tous les chemins dans la colonne A.

Merci de ta réponse JPN
N'y a-t-il pas un moyen pour éviter de resaisir tout dans un fichier excel.
Je voudrais en fait aller piocher dans un répertoire qui contient des MP3 avec des noms de fichier du type "nomchanteur_nomchanson.mp3" sans être obliger de tout retaper dans excel

Sinon ce que j'ai trouvé sur le forum pour lancer un mp3 est ci dessous:

Code:

'Michel Pierron MPFE 2004
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

Private Declare Function GetShortPathName Lib "kernel32" Alias _
 "GetShortPathNameA" (ByVal lpszLongPath As String _
, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Private Song As String

Sub PlayOn()
Song = "D:\TEST.mp3"
Call PlaySong(True)
End Sub

Sub PlayOff()
Call PlaySong(False)
End Sub

Sub PlayPauseReprise()
Dim msg As String * 255
Static iPos As Long
Static nb As Integer
If nb Then
PlaySong True, iPos
Else
mciSendString "status MPFE position", msg, 255, 0
iPos = Str(msg)
mciSendString "Pause MPFE", 0, 0, 0
End If
nb = Not nb
End Sub

Private Sub PlaySong(Play As Boolean, Optional Reprise As Long = 0)
On Error Resume Next
Call mciSendString("Stop MPFE", 0&, 0, 0)
Call mciSendString("Close MPFE", 0&, 0, 0)
If Not Play Then Exit Sub
If Song = "" Or Dir(Song) = "" Then Exit Sub
Song = GetShortPath(Song)
Call mciSendString("Open " & Song & " Alias MPFE", 0&, 0, 0)
Call mciSendString("play MPFE from " & Reprise, 0&, 0, 0)
End Sub

Private Function GetShortPath(strFileName As String) As String
Dim lngRes As Long, strPath As String
strPath = String(165, 0)
lngRes = GetShortPathName(strFileName, strPath, 164)
GetShortPath = Left(strPath, lngRes)
End Function

Cliquez pour agrandir...

JNP à dit:

Pour remplir ta colonne A, il te suffit d'une petite macro décrivant les dossiers et sous dossiers.

Cliquez pour agrandir...

Sub PlayOn()
[B][COLOR=red]Song = "D:\TEST.mp3"[/COLOR][/B]
Call PlaySong(True)
End Sub

' insère ici le code pour jouer ta chanson avec le format Song = "D:\" & variable2 & ".mp3"

Belsebou à dit:

Ta macro pour faire un choix semble fonctionner puisque des croix apparaissent en B
Rendons à César ce qui est à César, il y a eu un peu de perte sur le fil suite à un problème technique, mais si ma mémoire est bonne, c'est Hoerwind qui t'avais fait la macro de choix aléatoire
Par contre je n'arrive pas à relier ce choix aléatoire à l'exécution de la macro pour lancer la musique.
Tu écris Song = "D:\MUSIQUIZZ\" & variable2 & ".mp3" or dans ta colonne, l'extension .mp3 est déjà présente, donc aussi présente dans la variable2, l'écriture exacte serait Song = "D:\MUSIQUIZZ\" & variable2.
Je n'ai pas encore tester l'affichage du nom et du titre de la musique jouée.
Dépêche toi, le réveillon, c'est bientôt

Cliquez pour agrandir...

Belsebou à dit:

Set myFile = myFolder.Items.Item(variable2)

Cliquez pour agrandir...