Version imprimable
Bonjour, à tous
Je crée un jeu qui consiste à trouver, à partir de son intro, une chanson et sont interprète.
J'ai un timer,et à la fin du temps imparti je n'arrive pas à arrêter WindowsMédiaPlayer ( j'arrive à le lancer).
Si vous avez des idées je suis preneur, par avance Merci.
@+
Bonjour,
Il me semble qu'il y a une méthode Stop.
Ceci étant dit, ce que tu faire, c'est d'utiliser l'Explorateur d'objets pour examiner ton ActiveX. Tu devrais y retrouver les propriétés et méthodes disponibles...
Merci, je vais regarder de plus près l'explorateur.
J'ai du louper quelque chose.
@+
Salut, voir Utiliser Windows Media Player en VB et VBA
bonjour,
j'avais déjà regardé cette page, mais le code ne marche chez moi!!!!
merci pour la réponse @+
une méthode (un peu trop) violente c'est de l'éliminer avec un taskill
je connais pas windows mediaCode:TASKKILL /F /IM lenomdelatâche.exe
C'est toujours agréable d'avoir des descriptions aussi détaillées... :roll:Citation:
Envoyé par ThSall
As-tu indiqué à ton module VBA que tu utilisais la bibliothèque d'objet de Media Player ?
j'utilise ce code pour lancer VMP;
musique correspond à la cellule qui contient l'adresse du morceau (c:\user\...)Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
ça marche bien, mais je ne sais pas l'arrêter
Ce code n'est pas de ma science, le l'ai trouvé sur le forum
merci @+
On essaye une seconde et dernière fois : qu'est-ce que tu veux dire par :
Est-ce que tu as chargé la bibliothèque d'Objets Media Player ?Citation:
Envoyé par ThSall
Dans l'éditeur VBA > Outils > Références > Windows Media Player
Si ce n'est pas le cas, charge-les et retourne dans le lien que t'a donné kiki.
oui, il y a 2 Windows Media Player et ils sont cochés + Windows Media Player Compatibility layer et
Windows Media Player Launcher qui sont cochés aussi.
Bonjour,
Oui, mais dans quel code ?Citation:
Envoyé par ThSall
Le code de SilkyRoad permet d'utiliser et de contrôler Windows Media Player à partir d'une macro VBA. C'est comme prendre un vol direct Paris-Montréal. Tu as besoin d'une référence à wmp.dll ou peut-être wmplib.dll
Ton code, lui, utilise VBA, pour lancer la bibliothèque Scripting (WsShell), pour que ce soit la bibliothèque scripting qui lance Windows Media Player. Ce n'est pas VBA qui contrôle WMP; c'est la bibliothèque Scripting. C'est comme faire Paris-Moscou-Montréal. Si tu veux prendre ton code au lieu de celui de SilkyRoad, tu dois demander à la même bibliothèque Scripting de dire à Windows Media Player de s'arrêter. Personnellement, je n'ai pas envie de chercher comment on fait cela.
bonjour,
le code qui est dans mon message, est celui que j'utilise et qui fonctionne pour ouvrir WMP. mais je n'arrive pas à trouver la commande pour l'arrêter.
Le code dans silkyroad que l'on m'a indiqué soit;
Option Explicit
Dim Wmp As WindowsMediaPlayer
Sub jouerWindowsMediaPlayer()
Set Wmp = CreateObject("WMPlayer.OCX.7")
Wmp.URL = "C:\Users\Thierry\Desktop\jeu_des_chansons\musiques\Nino Ferrer - LE SUD.MP3" 'Sheets("Feuil1").Cells(2, 6).Value
Wmp.Controls.Play
End Sub
ne fonctionnait pas. Suite au message de "Menhir", j'ai coché dans outils\références\VBAPoject la case qui correspond à Windows Media Player (wmp.dll).
Le code se bloque à la ligne ;
Set Wmp = CreateObject("WMPlayer.OCX.7")
J'ai un message ;
Erreur d'exécution '-2147467259 (80004005)':
Erreur Automation
Erreur non spécifiée
Je ne comprend pas pourquoi ! C'est dommage car avec ce code si il fonctionnait j'ai aussi la manière de l'arrêter
merci @+