Discussion :

[gberthon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[kiki29]

Salut, de la lecture :

• VideoLAN's Wiki
• ActiveX

[gberthon]

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.

[kiki29]

Re, comme je dis toujours dans ces cas : pas de bras pas de chocolat ..... Utiliser les contrôles dans un UserForm, en VBA Excel

[gberthon]

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.

[patricktoulon]

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

[gberthon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[patricktoulon]

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

[kiki29]

Re, va ici : Utiliser Windows Media Player en VB et VBA

[gberthon]

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

[patricktoulon]

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

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

[patricktoulon]

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

kiki si tu veux je te la donne l'astuce elle est simple comme bonjour en MP bien évidement

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

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

[patricktoulon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[patricktoulon]

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

[gberthon]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

 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 ?

[patricktoulon]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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)