Discussion :

[MISTER_TEE_SHIRT]

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 :

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

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

[patricktoulon]

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

[MISTER_TEE_SHIRT]

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 :

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

 Dim Myplayer As windowsmediaplayer

Code :

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

 Dim WindowsMediaPlayer1 As windowsmediaplayer

....

Code :

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

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"

[patricktoulon]

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 :

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

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

[MISTER_TEE_SHIRT]

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

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