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 ...

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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 .
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 .
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
128
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
361
  • Question Question
Microsoft 365 Excel365
Réponses
2
Affichages
469
Réponses
15
Affichages
1 K
  • Question Question
Microsoft 365 Contrôle sur date
Réponses
8
Affichages
276
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…