Ouvrir windows Media player à partir d'Excel

Bonjour,

Je voulais un conseil car je voulais lancer une page Windows Media Player à partir de VBA Excel 2007.

J'ai fait la déclaration de la variable ci-dessous

Dim Myplayer As windowsmediaplayer

...

Utilisation de la variable

Code:

---

1 2 3 4

Set Myplayer = Windowsmediaplayer With Myplayer .controls.play endwith

---

Je n'ai pas trop bien compris comment on utilise la fonction set

bonour regarde par ici
http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

Bonjour,

J'ai lu la documentation WindowsMediaPlayer et j'ai utilisé le point "II-A Définir et lire un fichier"

Voici mon programme :

Code:

---

Dim Myplayer As windowsmediaplayer

---

Code:

---

Dim WindowsMediaPlayer1 As windowsmediaplayer

---

....

Code:

---

WindowsMediaPlayer1.URL = "C:\Users\Utilisateur\Music\MUSIQUE\CALOGERO-JE ME SUIS TROMPE.mp3"

---

Et j'ai en message d'erreur "Variable objet ou variable de bloc With non définie"8-)

re
bonsoir allez
si ton but et de lancer media player avec une chanson et afin de libérer vba pour faire aure chose je te propose ceci tu n'a qu'a changer le titre de la chanson et le tour est joué
met ceci dans un module standard et change ce qui est en rouge

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

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 test() musique = "H:\mes musique\Amy Mc Donald\This is the Life - Amy Mac Donald\This is the Life\02 - This is the life2.mp3" WmPlaySound musique End Sub

---

;)

Merci grâce à ton programme j'ai pu lancé WMP à partir d'Excel.

Je n'ai plus qu'à comprendre les fonctions.

;)