XL 2019 Une fois mais pas plus ...

[claudio54]

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.

 

[vgendron]

Bonjour,
chez moi, (excel 2010) je ne peux meme pas ouvrir le formulaire (erreur mémoire insuffisante....) et le fichier provoque un bug excel qui ne veut plus se fermer...

 

[claudio54]

Ah bon ! Comment ca ce fait, il y a trois fois rien dans le fichier : un Usf avec un WMP et 3 lignes de code.

 

[fanch55]

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

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 .

 

[sousou]

Bonjour,
chez moi, (excel 2010) je ne peux meme pas ouvrir le formulaire (erreur mémoire insuffisante....) et le fichier provoque un bug excel qui ne veut plus se fermer...

idem

 

[claudio54]

Merci fanch55, ça marche impec !
Je n'aurai jamais réussi à trouver cette solution.
Encore merci et longue vie au forum

​