outil controles suppl....

Salut

Private Sub CommandButton1_Click()
Nomfichier = InputBox("Définir l'emplacement du fichier")
MediaPlayer1.Filename = Nomfichier
End Sub

Private Sub UserForm_Initialize()
MediaPlayer1.AnimationAtStart = True
End Sub

Ce code est relativement simple, il permet de choisir le fichier et de le lire automatiquement ... il faudrait peut etre intégrer une fenetre pour parcourir et choisir le fichier, ajouter des controles pour la vidéo et plein d'autres choses encore ...
Alors j'espere que ca te donnera une petite idée des actions possibles ...
@+
Sebb