Utiliser VLC media player dans Excel (VBA)

Version imprimable

Voir 40 message(s) de cette discussion en une page

31/10/2017, 15h32
gberthon

2 pièce(s) jointe(s)

Utiliser VLC media player dans Excel (VBA)
Je voudrais utiliser VLC player dans un Formulaire (Userform) Excel.
Je sais démarrer VLC dans Excel uniquement de cette façon, par exemple pour Youtube :
Code:

1 2 3 Private Sub CommandButton1_Click() Shell """C:\Program Files (x86)\VideoLAN\VLC\vlc.exe"" ""https://www.youtube.com""" End Sub
J'ai placé le plugin : VideoLAN VLC ActiveX dans VBA/Références/Outils et "F2" me montre la bibliothèque AXVLC et tous les détails. Rien de plus.
VLC n’apparaît pas dans les contrôles supplémentaires de la boîte à outils de Excel VBA.
Je souhaite placer VLC dans un Formulaire (Userform) donc il faut avoir VLC dans la boîte à outils comme on y trouve Web Browser ou Windows Media Player et de là, le placer dans un cadre sur le Userform.

QUelqu'un pourrait-il me conseiller. Merci d'avance.
31/10/2017, 15h38
kiki29
Salut, de la lecture :
- VideoLAN's Wiki
- ActiveX
31/10/2017, 15h54
gberthon

Active X et VideoLAN Wiki

Merci des informations.

J'avais déjà lu l'article Active X Wiki mais je n'ai pas la capacité technique et la connaissance pour faire ce qu'ils recommandent : Créer une distribution Active X avec les .cab je ne suis pas assez calé pour faire ça.

Quand au site VideoMAN Wiki j'ai fait le tour du mieux que j'ai pu sans trouver la réponse à ma question, pas plus que je ne l'ai trouvée chez Microsoft ou ailleurs :

Comment faire apparaître VLC dans ma boîte à outils de Excel VBA aussi simplement qu'on le fait pour un Web Browser (navigateur) ou un Video Media Player. Pourriez-vous me renseigner ? D'avance merci.
31/10/2017, 16h59
kiki29

1 pièce(s) jointe(s)

Re, comme je dis toujours dans ces cas : pas de bras pas de chocolat ..... Utiliser les contrôles dans un UserForm, en VBA Excel
31/10/2017, 17h58
gberthon

1 pièce(s) jointe(s)

Merci de votre réponse

Je vous remercie de votre réponse mais vous avoue ne pas très bien comprendre les références au chocolat...

Je vois bien que votre fenêtre des contrôles supplémentaires affiche le VLC media player et c'est justement la raison de ma question.

Quand je vais dans les contrôles supplémentaires de la boîte à outils, comme vous pouvez le voir sur l'image incluse, en dessous de "VideoRenderCtrlClass" on ne trouve pas VLC comme sur votre image, et cela malgré que j'aie installé le VideoLAN VLC Active X Plugin dans mes références (onglet Outils de VBA). J'ai installé le multi-pages, puis un navigateur, puis un ShockwaveFlash mais contrairement à vous je ne trouve pas VLC et ne sais pas où le trouver pour qu'il apparaisse ensuite dans les contrôles supplémentaires.

J'ai lu en détail la page "Utiliser les contrôles dans un UserForm, en VBA Excel" aucune référence n'est faite à VLC player...

Auriez vous la gentillesse de m'indiquer où vous avez trouvé ce contrôle et comment vous le faites apparaître dans les contrôles supplémentaires ?
Moi je ne suis pas un génie, je ne suis qu'un retraité peinard de 67 ans qui cherche à remettre en marche sa collection de bande annonces .mp4 de films qui était connectée à Youtube par Shockwave Flash et qui ne marche plus depuis que Youtube a remplacé les flash players par HTML5. C'est tout. Je n'ai aucune autre prétention et je suis coincé. Merci d'avance.
31/10/2017, 19h47
patricktoulon

re

Bonsoir
de toute façon tu cours après une chimère
aussi longtemps que je me souvienne je n'ai jamais réussi a mettre vlc dans un userform directement
tourne toi plutôt vers media player
31/10/2017, 20h00
gberthon

Windows Media Player
Windows Media Player ?
A priori je n'ai rien contre. Je pensais que c'était juste un lecteur interne qui n'a pas comme VLC et Shockwave (avant) la possibilité d'aller pêcher des vidéos sur le Net et de les jouer dans un Userform. Si c'est le cas, pourquoi pas. Je vais essayer...

Merci du tuyau. D'ailleurs si tu as de l'expérience avec l'usage de VMP sur Internet comme par exemple ces lignes qui ouvrent VLC et l'envoient me chercher Youtube et l'ouvrir :
Code:

1 2 3 4 5 Private Sub CommandButton1_Click() Shell """C:\Program Files (x86)\VideoLAN\VLC\vlc.exe"" ""https://www.youtube.com/""" End Sub
Ce serait vraiment sympa de la partager avec moi, m'évitant de perdre beaucoup de temps à tâtonner...

Merci d'avance
31/10/2017, 20h14
patricktoulon

re

non tu peux pas envoyer un lien en tant que fichier de lecture dans un ctrl media player

par contre tu peux dans un webbrowser intégrer le code d'un embed /object flash et y injecter le lien dans le param movie ou src

j'avais déjà fait ca
si je le retrouve dans mes archives je te le ferait passer
31/10/2017, 22h21
kiki29

Re, va ici : Utiliser Windows Media Player en VB et VBA
01/11/2017, 11h39
gberthon

Résumons nous !

Résumons nous !

patricktoulon recommande Windows Media Player mais malheureusement WMP ne fait pas ce dont j'ai besoin.

kiki29 connait la solution de mon problème puisqu'il montre sa boîte qui contient un VLC player et ses contrôles supplémentaires avec le plugin Active X mais de toute évidence il ne souhaite pas me dire comment faire pour y arriver.

Me voici bien avancé ! Tant pis.
C'est dommage, bêtement je pensais que sur les forums les gens expérimentés aidaient les novices...
01/11/2017, 12h32
patricktoulon

2 pièce(s) jointe(s)

re

Citation:

C'est dommage, bêtement je pensais que sur les forums les gens expérimentés aidaient les novices...

a oui !! et que faisons nous d'après toi?

tu a raison c'est dommage j'ai retrouvé dans mes archives une astuce mais visiblement on t'aide pas alors je vais la garder

je vais seulement te montrer une animation qui te montre la lecture dans un userform d'une video de youtube

tu réfléchira a deux fois avant parler
Pièce jointe 323958
01/11/2017, 12h40
kiki29

Comme tu ne lis pas ce que l'on te donne à lire, comme tu ne regarde pas et surtout tu ne comprends pas les snapshots, comme tu es dans l'attentisme pur et simple du tout cuit, comme dit plus haut : pas de bras pas de chocolat.
01/11/2017, 12h48
patricktoulon

re

absolument kiki je pense que c'est cela
la question aurait du être
pourriez vous me faire et me donner un fichier avec un userform capable de lire les vidéos de You tube ?
la réponse est non bien évidement :ptdr:

kiki si tu veux je te la donne l'astuce elle est simple comme bonjour en MP bien évidement:mouarf:
02/11/2017, 02h54
clementmarcotte

Bonjour,

Par curiosité, j'ai installé VLC sur ma machine.

J'ai l'activeX dans mes contrôles et j'ai pu le mettre sur une UserForm (Excel 2016, 32 bits). Pas encore essayé d'aller plus loin

Donc as-tu un Excel à 64 bits ou un Excel à 32 bits.
02/11/2017, 08h25
gberthon

Salut clementmarcotte, merci pour ton intervention. Je bosse sur Windows 7 - 64bits avec Excel 2010 - 64bits.
Vivant avec 700€ par mois je n'ai pas les moyens de suivre l'évolution des produits Microsoft !

J'ai une Dbase de films pour mon intérêt personnel. Elle roule bien et depuis longtemps avec ma vieille structure PC / Excel.
Non seulement je stockais les données sur les films mais aussi je visionnais les trailers (bandes annonce) des films dans mon Userform avec Shockwave Player. Shockwave lisait les bandes annonces des films (trailers) directement sur Youtube. Pas besoin de les stocker donc économie de place.

Ca marchait au poil puis un jour Youtube a supprimé la prise en charge de Flash Player et remplacé ça par HTML5.

Depuis c'est la galère. J'ai d'abord essayé d'intégrer HTML5 dans mon Userform mais ça ne semble pas possible et en plus je ne connais rien à HTML5. Depuis des mois je recherche pour intégrer VLC à Excel et j'ai seulement trouvé les plugin Active X pour VLC qu'il faut utiliser.

J'ai placé le plugin VideoLAN VLC ActiveX dans VBA/Références/Outils et "F2" me montre bien la bibliothèque AXVLC et tous les détails. Rien de plus.
VLC n’apparaît pas dans les contrôles supplémentaires de la boîte à outils de Excel VBA. Or, pour que je puisse mettre VLC dans mon Userform qui marche bien et que je souhaite garder, il faut d'abord qu'il apparaisse dans ma boîte à outils... Penses-tu qu'il puisse y avoir un problème Windows 7 - 64bits avec Excel 2010 - 64bits ? Ce qui est bizarre c'est que les autres contrôles supplémentaires comme par exemple Web Browser, Shockwave, Windows Media Player se trouvent bien dans les contrôles supplémentaires... Tout sauf VLC...

re
bonjour tout les deux

ce que visiblement tu ne sais pas c'est quane quand tu lis un fichier du web sur VLC il utilise rtmpdump ou dérivé pour télécharger en temporaire puis le lit en même temps
l'avantage de vlc c'est qu'il a le moyen de lire un fichier qui n'est pas totalement téléchargé il reconstruit le frame bit/s

voila comment vlc lit les fichiers video su le web

maintenant le plugins lui n'est qu'un renderer il te faut coder les action que vlc fait pour lire le fichier

une autre solution et la c'est super simple pour youtube c'est de récupérer le code html l'embed (maintenant balise video html5 encore plus simple plus besoins de swf (fichier de configuration pour flash ))

de le mettre dans un document webbrowser dans ton userform

c'est pas plus compliqué que ca

l'avantage de la balise video qui peut lire un fichier local aussi sa manip est très simple

attention tout de même tout les codec ne sont pas pris en charge

et je vais vous donner une nouvelle qui ne vas pas vous faire plaisir

le plugin vlc ne fonctionne plus avec Excel de puis la version 2.1.0 je retrouverais l'article

allez voila comment ca se passe
je vais te donner la base

met un webbrowser dans ton userform c'est tout!!!!

donne lui la dimension que tu veux

dans le activate
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 with webbrowser1 .navigate "url du fichier de youtube" .silent=true do:doevents:loop while .readystate<>4 set doc=.document videohtml=doc.getelementsbytagname("VIDEO")(0).outerhtml on 'récupère le code html de l'embed doc.body.innerhtml=videohtml' on réécrit que l'embed pas besoins de tout le reste de la page 'ici avec l'attribut css "style" tu peux dimensionner le lecteur dans le html 'exemple set lect=.document.getelementsbytagname("VIDEO")(0) lect.style.width="100%"' le lecteur fera la largeur du webbrowser end with
voila c'est tout simple

02/11/2017, 10h46
gberthon

Merci patricktoulon.

En effet je ne connaissais pas la procédure rtmpdump dont tu parles et je vais essayer d'approfondir pour la comprendre.

A la lumière de ton explication : VLC ne fonctionne plus avec Excel depuis la version 2.1.0 (j'avais vu dans https://wiki.videolan.org/ActiveX/ : l'API sur cette page concerne les contrôles VLC ActiveX d'avant 0.8.5.1, cette API sera bientôt supprimée, il n'est plus recommandé de l'utiliser mais plutôt VLC ActiveX v2 à utiliser avec les nouvelles version de VLC, postérieures à 2.0.0 voir https://wiki.videolan.org/Documentation:WebPlugin/). Donc après ça ils ont dû terminer la compatibilité...

C'est bon à savoir bien que regrettable... Il va donc falloir que je passe à l'étape que tu décris : récupérer le code HTML d'un video player (il y en a plein partout gratuits) et le mettre dans mon Userform avec un web browser, ce que je sais faire.

La surprise vient du fait que tu m'apprends qu'on peut procéder comme ça... Je n'aurais jamais eu l'idée de coller un HTML5 player dans un navigateur inséré dans un formulaire !!! Ce ne m'avait même pas effleuré l'esprit et je suis absolument ravi de l'apprendre. Je me remets au boulot et je te tiens au courant...
02/11/2017, 12h01
patricktoulon

2 pièce(s) jointe(s)

re

Citation:

C'est bon à savoir bien que regrettable... Il va donc falloir que je passe à l'étape que tu décris : récupérer le code HTML d'un video player (il y en a plein partout gratuits) et le mettre dans mon Userform avec un web browser, ce que je sais faire.

non il faut récupérer l'embed(qui est en fait simplement une valise video paramétrée par youtube ) de la page c'est tout
tu n'a plus a aller cher un swf gratuit pour flash c'est du mp4

en fait c'est tres simple

si tu regarde bien le procédé que je t'ai donné

je n'utilise pas la fonction write dans le document pour écrire le code html du lecteur mais j'utilise body.innerhtml

en fait c'est une astuce pour garder youtube comme "host" sinon tu aura les fourmi que l'on avais dans nos téléviseur il y a 30 ans

en fait c'est comme si je récrivais le code de la page web sans quitter youtube

quelques fois il y a des pubs avant et comme ici on utilise que le embed repiquer sur la page originale il n'est pas transformé en lecteur youtube ca reste la balise video html5 alors il faut fair un 2d navigate comme ca youtube ne te met pas la pub car i_l crois que tu re visionne pour la 2d fois la video
c'est une astuce a la patricktoulon

tu n'a donc pas le triangle play de youtube

si tu veux les controls play volume ect ....du lecteur il faut modifier un peu le code ( ajouter les attributs a la balise video ou les modifier
connaissance en html "DOM" requise un minimum

l'avantage de cela aussi c'est que si tu clique droite sur la video en train d'etre jouée tu a dans le menu "enregistrer la video sous"
chose qu'avec le player youtube tu n'a plus

je viens de finir mon exemple version beta car j'utilisait un autre procedé avant mais comme on est plus en embed mais video html5 c'estait out of order
demonstration
Pièce jointe 324158

A patricktoulon - réponse :
Suite à tes explications j'ai inséré un formulaire : Userform1 dans lequel j'ai placé un Web Browser que j'ai appelé Browser_1 et un bouton de commande que j'ai appelé bnt_lecture.

Au btn_lecture j'ai placé le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub btn_lecture_Click() With Browser_1 .Navigate "https://www.youtube.com/watch?v=5bP1f_1o-zo&t=3s" 'c'est l'URL de la vidéo que je veux voir .Silent = True Do: DoEvents: Loop While .ReadyState <> 4 Set doc = .Document videohtml=doc.getelementsbytagname("VIDEO")(0).outerhtml on doc.body.innerhtml = videohtml Set lect = .Document.getelementsbytagname("VIDEO")(0) lect.Style.Width = "100%" End With End Sub
Je note de suite que la ligne

Code:

videohtml=doc.getelementsbytagname("VIDEO")(0).outerhtml on

s'inscrit en rouge donc j'ai une erreur de syntaxe.
En effet, F5 ouvre le formulaire contenant le Browser_1 et un clic sur le bouton "Lecture" amène un MsgBox - Erreur de compilation : Erreur de syntaxe...
J'ai sûrement dû faire une connerie...

Juste pour voir je mets la ligne de code qui pose problème en "remarque" avec un apostrophe et je repars.

Là le Browser démarre et part sur la bande annonce que j'ai choisie : "https://www.youtube.com/watch?v=5bP1f_1o-zo&t=3s" mais déclenche une erreur d'exécution '13' : Incompatibilité de type...

Je suis certain d'avoir loupé quelque chose mais savoir quoi ??? C'est une autre histoire.

Que penses-tu ?

2 pièce(s) jointe(s)

bon allez je vais te donner mon model basic de demo

alors
ouvre un nouveau fichier excel

ajoute un userform sufisament grand pour acceuille une video regardable regarde la capture 1
Pièce jointe 324288
dans cet userform met lui un webbrowser en haut a gauche tu peux lui donner la diment de 1 sur 1 c'est pas un probleme

maintenant dans le code du userform met tout ca et c'est presque rien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Dim balvideo
Private Sub UserForm_Activate()
    With WebBrowser1
 
        .Navigate "https://www.youtube.com/watch?v=5bP1f_1o-zo&t=3s"    'on fait comme si on allait sur la page du clip
        Do: DoEvents: Loop While .ReadyState <> 4    ' on attent que la page soit chargée
       Me.Caption = Me.Caption & " lecture de : " & .Document.Title
        Do: DoEvents: Set balvideo = .Document.getelementsbytagname("VIDEO"): Loop While balvideo.Length = 0
 
        'on récupère le code HTML de l'embed(balise video html5)et on ajoute le auto play et les controls visibles
        videohtml = Replace(.Document.getelementsbytagname("VIDEO")(0).outerhtml, "controlslist=""nodownload""", " controls  preload  autoplay fullscreen")
        'maintenant on a le code de l'embed et rien que lui
        .Document.body.innerhtml = videohtml    ' on le réinjecte dans le document de la page web en le récrivant
        .Move 0, 18, Me.InsideWidth - 100, Me.InsideHeight - 18 ' on cale le webbrowser a la dimention de l'interieur de l'userform
        ' on va agrandir a la dimention du document le lecteur maintenant
        Set balvideo = .Document.getelementsbytagname("VIDEO")(0)
        With balvideo
            .Style.Left = 0: .Style.Top = 0: .Style.Width = "100%": .Style.Height = "100%"    ' on cale aussi le player (balise video) a la dimention du document soit du userform aussi
            Do: DoEvents: r = .Duration: Loop While r Like "*QN*" = True
            TextBox1 = Val(.Duration) / 60
 
 
        End With
    End With
    ' et voila enjoy yourself with your player html5 off youtube de la balle je te dis moi!!!
End Sub

voici la démo animée avec ton lien qui te pose probleme

ne regarde pas les boutons je ne te donne pas encore le code pour les options ;)
Pièce jointe 324285
voila

si tu es sage dans les prochains jours je te donnerais le moyen de déclencher l'enregistrement du fichier en cours de lecture a partir de VBA(commandbutton)

Voir 40 message(s) de cette discussion en une page