Private Sub Combo_Click() dim sPath as string player.stop select case combo.text case "Chanson d'adieux" : sPath = "\Audio\001" case "Le chant des druides" : sPath = "\Audio\002" ... end select On Error Resume Next Player.RenderFile App.Path & sPath Player.Run End Sub
Malheureusement, quand je passe à la ligne suivante, la lecture précédente reste en mode .Run
Je n'arrives pas à mettre le .Stop pour lire le fichier suivant
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question