Discussion :

[biggione]

Bonjour à toutes & à tous,

voilà j'ai une toute petite question qui me démange depuis un pti moment:

comment puis-je faire dans ma macro pour lancer à partir d'excel un film en .avi (exemple: C:\film.avi) avec par exemple le lecteur Windows Media?

j'ai cherché mais j'ai pas trouvé de truc qui m'ont crée le déclic...

Merci d'avance pour votre aide.

[SilkyRoad]

bonsoir

je n'ai pas bien compris si tu veux ouvrir WMP pour visualiser un film

Code :

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

1
2
3
4
5
Sub lancerUneVideo()
    Dim Wmp As Object
    Set Wmp = CreateObject("WMPlayer.OCX.7")
    Wmp.openPlayer "C:\Documents and Settings\leFilm.AVI"
End Sub

ou utiliser un objet WMP placé dans la feuille

Code :

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

1
2
3
4
Sub jouerMediaPlayer()
    Feuil1.WindowsMediaPlayer1.URL = "C:\Documents and Settings\leFilm.AVI"
    Feuil1.WindowsMediaPlayer1.Controls.Play
End Sub

dans le doute je mets les deux ...


bonne soiree
michel

[biggione]

je veux en cliquant sur un bouton lancer le film par WMP.
merci pour ton code, je vais le tester.
je te dirai si ca a marché
bonne soirée

[biggione]

merci pour ton aide ca marche!!