XL 2010 Lecture video via VBA [RESOLU]

herve62

XLDnaute Barbatruc
Supporter XLD
Bonsoir
J'ai repris 2 appli de 2 ;3 ans et la fonction qui me permettait de lire des vidéos suite à un choix dans une appli ne fonctionne plus ?
Je viens de recréer un petit exemple seul ... idem !
Apparemment celà bloque sur DblQuote ?
Ou alors la fonction WmPlayer n'est plus supportée en 2010 ?
 

Pièces jointes

  • Lect_video.xlsm
    19.5 KB · Affichages: 10

patricktoulon

XLDnaute Barbatruc
re
et oui l’éternel problème des demandes en MP
les discussions en deviennent moins intelligibles ;)
@fanch55 je ne vois pas pourquoi le même code dans initialyse ferait planter alors que dans le activate non
bizarre ton truc
j'ai ma petite idée quand même du problème
essaie userform1 à la place de "Me"
VB:
Private Sub UserForm_Initialize()
    Hx = Me.Height
    Wx = Me.Width
    For Each ctrl In UserForm1.Controls
        With ctrl
            .Tag = Join(Array(.Left, .Top, .Width, .Height), ";")
            'If TypeName(ctrl) <> "Frame" Then .Tag = .Tag & ";" & .Font.Size
        End With
    Next
End Sub
 

patricktoulon

XLDnaute Barbatruc
re
tiens un petit rafraichissement de mon player wmp dans webbrowser
afin d’économiser la mémoire j'ai viré le texte défilant dans un label
maintenant le titre défile dans la page web toujours en haut
compatible avi,xvid,mp4,swf,etc.. quasiment tout les format et conteneur si tant est que les codecs soient dispos dans votre exploit
 

Pièces jointes

  • player wmp embeding webbrowser version 2023.xlsm
    36.1 KB · Affichages: 4

patricktoulon

XLDnaute Barbatruc
re
bonjour
il te faut charger le complément pou WMP
et a partir du moment ou il est intallé tu l'a aussi dispo pour le plugin wmp pour le web
cela dit gardons en tète que tout ça fonctionne sur un webrowser utilisant les librairie de IE
mais n'est evidement pas compatible avec firefox ou chrome (edge je ne sais pas je ne m'en sert pas )
tote ces technologies étant obsolète aujourd'hui
la plus part des navigateurs ayant adopté la balise video html5 et le mp4 ou webm pour format video
 

TooFatBoy

XLDnaute Barbatruc
J'avais essayé mes swf avec 4 navigateurs dont Edge, et comme tu le dis ça ne marchait pas.
Je ne sais pas si IE est installé avec W10 (j'ai toujours supposé que non, mais j'ai probablement tort).

Des vieux tutos me disaient de les lire avec VLC, mais pas réussi, ni avec MPC-HC.

Bon, ce n'est pas grave, j'avais admis de ne plus les utiliser et les avais donc effacés.


Merci pour ces renseignements 👍
 

fanch55

XLDnaute Barbatruc
re
et oui l’éternel problème des demandes en MP
les discussions en deviennent moins intelligibles ;)
@fanch55 je ne vois pas pourquoi le même code dans initialyse ferait planter alors que dans le activate non
bizarre ton truc
j'ai ma petite idée quand même du problème
essaie userform1 à la place de "Me"
VB:
Private Sub UserForm_Initialize()
    Hx = Me.Height
    Wx = Me.Width
    For Each ctrl In UserForm1.Controls
        With ctrl
            .Tag = Join(Array(.Left, .Top, .Width, .Height), ";")
            'If TypeName(ctrl) <> "Frame" Then .Tag = .Tag & ";" & .Font.Size
        End With
    Next
End Sub
Dans Initialize, Excel se plante et se relance
pt.gif

Dans Activate
pt2.gif

 

patricktoulon

XLDnaute Barbatruc
re
c'est vraiment bizarre ton truc
j'avoue je suis perplexe là
le problème avec ce code dans le activate c'est que des que tu change de fenêtre et reviens ça sera déclenché
et donc les calculs faussés car les dimensions ne sont pas les originales


vous avez vraiment des version bizarre d'excel
ce code n'a rien d'extraordinaire il stock les dim et position dans le tag des controls c'est tout
 

fanch55

XLDnaute Barbatruc
re
c'est vraiment bizarre ton truc
j'avoue je suis perplexe là
le problème avec ce code dans le activate c'est que des que tu change de fenêtre et reviens ça sera déclenché
et donc les calculs faussés car les dimensions ne sont pas les originales


vous avez vraiment des version bizarre d'excel
ce code n'a rien d'extraordinaire il stock les dim et position dans le tag des controls c'est tout
Complétement d'accord : je ne comprend pas le pourquoi du initialize, ma confiance en la stabilité d'excel dans ses versions est quelque peu malmenée ....
 

Statistiques des forums

Discussions
312 215
Messages
2 086 324
Membres
103 179
dernier inscrit
BERSEB50