Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Une fois mais pas plus ...

claudio54

XLDnaute Junior
Bonjour à tous
Tout d'abord, je vous présente tous mes vœux pour cette nouvelle année.
Je suis en cours de réaliser une petite appli où j'ai besoin d'afficher une vidéo en plein écran suite à une action sur un bouton.
J'ai créé un Userform avec un lecteur WindowsMediaPlayer que j'ai paramétré en lecture plein écran.
Lors de l'appui sur le bouton, pas de problème, la vidéo se lance bien en plein écran.
En double cliquant sur la vidéo en cours, je passe par un code pour arrêter la lecture et effacer le lecteur WMP. Pas de problème,
la vidéo s'arrête et je reprends la main.

Et voila mon problème : quand je clique une deuxième fois sur le bouton, la vidéo se lance mais je n'ai pas d'image, uniquement le son.
Je tourne en rond mais je ne suis pas assez futé pour voir où ça coince. Ca marche une fois mais pas plus !
J'ai joint un tout petit fichier pour illustrer mon problème.

Merci à ceux qui pourront m'aider à afficher le plein écran à chaque clic sur le bouton.
 

Pièces jointes

  • VideoPleinEcran.xlsm
    20.4 KB · Affichages: 13
Solution
Bonsoir à tous ,
Ce qui fonctionne chez moi ( Excel 2019 ) :

VB:
Private Sub LectureClip()
    If Usf1.WindowsMediaPlayer1.Url <> "" Then Unload Usf1
    Usf1.WindowsMediaPlayer1.Url = "D:\Users\.......\Videos\VID_20230110_173922.mp4"
End Sub

et rien dans le code de l'Usf en relation avec le WindowsMediaPlayer .

fanch55

XLDnaute Barbatruc
Bonsoir à tous ,
Ce qui fonctionne chez moi ( Excel 2019 ) :

VB:
Private Sub LectureClip()
    If Usf1.WindowsMediaPlayer1.Url <> "" Then Unload Usf1
    Usf1.WindowsMediaPlayer1.Url = "D:\Users\.......\Videos\VID_20230110_173922.mp4"
End Sub

et rien dans le code de l'Usf en relation avec le WindowsMediaPlayer .
 

Discussions similaires

  • Question
Microsoft 365 Excel365
Réponses
2
Affichages
431
Réponses
15
Affichages
957
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…