Discussion :

[ThSall]

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.
@+

[clementmarcotte]

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...

[ThSall]

Merci, je vais regarder de plus près l'explorateur.
J'ai du louper quelque chose.
@+

[kiki29]

Salut, voir Utiliser Windows Media Player en VB et VBA

[ThSall]

bonjour,

j'avais déjà regardé cette page, mais le code ne marche chez moi!!!!
merci pour la réponse @+

[Minise]

une méthode (un peu trop) violente c'est de l'éliminer avec un taskill

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TASKKILL /F /IM lenomdelatâche.exe

je connais pas windows media

[Menhir]

le code ne marche chez moi!!!!

C'est toujours agréable d'avoir des descriptions aussi détaillées...

As-tu indiqué à ton module VBA que tu utilisais la bibliothèque d'objet de Media Player ?

[ThSall]

j'utilise ce code pour lancer VMP;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function WmPlaySound(MySound)
      Dim WshShell
      Set WshShell = CreateObject("WScript.Shell")
      WshShell.Run "wmplayer " & DblQuote(MySound) & "", 1, False
      Set WshShell = Nothing
 
   End Function
Function DblQuote(Str)
   DblQuote = Chr(34) & Str & Chr(34)
End Function
Sub joue_VMP()
musique = Sheets("Feuil1").Cells(2, 6).Value 
WmPlaySound musique
End Sub

musique correspond à la cellule qui contient l'adresse du morceau (c:\user\...)
ç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 @+

[Menhir]

On essaye une seconde et dernière fois : qu'est-ce que tu veux dire par :

le code ne marche chez moi!!!!

Est-ce que tu as chargé la bibliothèque d'Objets Media Player ?
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.

[ThSall]

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.

[clementmarcotte]

Bonjour,

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.

Oui, mais dans quel code ?

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.

[ThSall]

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 @+