Utiliser VLC media player dans Excel (VBA)

Version imprimable

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)

02/11/2017, 18h06
gberthon

1 pièce(s) jointe(s)

merci patricktoulon

Totalement bluffant - Totalement bluffé...

Je l'ai recalé par curiosité :

Code:

.Move 0, 2, Me.InsideWidth - 2, Me.InsideHeight - 2

et il couvre exactement la surface du formulaire que j'ai fixée à 640 x 380. Je vais mettre le Browser dans mon système actuel à la place du Flash Player qui y était et le code dans le Userform Initialize avec le reste (il contient déjà les autres infos nécessaires sur les films quand le formulaire démarre).

Je n'avais aucune chance ni de pouvoir faire cela moi-même ni de trouver nulle part une personne qui m'aurait guidé comme tu l'as fait. Merci.

NB : Il est arrivé de façon inconstante que sorte un message dont je te mets la Capture. Peu importe car cela n'empêche pas le bon fonctionnement.

Encore merci.

1 pièce(s) jointe(s)

a oui j'oubliais il faut mettre la propriété " silent" du webbrowser à true et tu n'aura pas les avertissement de script de la page

perso je l'ai recaler comme ca car j'ai ajouter plein d'options et donc besoins de boutons et listbox pour faire une playlist
bref le mien est quasi complet

allez encore un petit cadeau si ton office est en 32 bits sur ton W7 64 tu n'aura rien a modifier sinon il faudra ajouter les declaration 64 bits des apis

allez change ton code pour celui ci ( dans le userform)

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Declare Function SetWindowLongA Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'trouver le handle
Private Declare Function fwa Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
' Déclaration des fonctions API
Dim balvideo
Private Sub UserForm_Activate()
Handle = fwa(vbNullString, Me.Caption)
 
    With WebBrowser1
        .Silent = True
        .Navigate "https://youtu.be/wYwAXFl26t0"    '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
codehtml = "<meta http-equiv=""X-UA-Compatible"" content=""IE=edge,chrome=1,htaccess=1"">"
 
        '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 allowfullscreen")
        'maintenant on a le code de l'embed et rien que lui
        .Document.body.innerhtml = codehtml & videohtml    ' on le réinjecte dans le document de la page web en le récrivant
        .Move 0,0, Me.InsideWidth - 100, Me.InsideHeight  ' 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
   SetWindowLongA Handle, -16, &H94CF0080 ' on peut redimentionner l'userform avec la souris
    ' et voila enjoy yourself with your player html5 off youtube de la balle je te dis moi!!!
End Sub
 
Private Sub UserForm_Resize()
    With WebBrowser1
        .Left = 0: .Top = 0: .Width = Me.InsideWidth: .Height = Me.InsideHeight 0
        Set doc = .Document
        Set video = doc.getelementsbytagname("VIDEO")(0)
        With doc.body.Style: .Width = "100%": .Height = "100%": End With
        With video.Style: .Position = "absolute": .Width = "100%": .Height = "100%": .Left = 0: .zIndex = 0: .visibility = "visible": End With
    End With
End Sub

voila maintenant ton lecteur tu peux le dimensionner a ta guise avec ta souris ou les boutons dans la caption
Pièce jointe 324300

03/11/2017, 09h33
gberthon

Merci patricktoulon pour ton aide précieuse.

Maintenant je sais qu'il ne faut plus perdre mon temps à courir après une chimère : "Exit" VLC media player qui n'est plus compatible avec Excel et "enter" le Web Browser au bon endroit et à la bonne taille. Quel soulagement.

Je peux donc clôturer la discussion par un "RESOLU" dont je suis vraiment heureux.
04/11/2017, 18h28
patricktoulon

2 pièce(s) jointe(s)

re

re
prends le fichier xls

Pièce jointe 324871

et comme je fait sauter les script le lecteur youtube ne se déclenche pas et ca reste dans une balise video puisque comme on est dans un webbrowser le reste du document s'adapte a la version 8 et 9 de IE ,tu a donc la possibilité " d'enregistrer sous" dans le menu contextuel click droit dans la video
05/11/2017, 16h21
gberthon

Salut patricktoulon !

Bon ça roule, mais alors là ça roule super bien...
J'ai dû faire adapter les 4 lignes de code d'appels d'API en utilisant l'attribut PtrSafe car de toute évidence le code est pour un système Office 32 bits et je suis en 64 bits.

J'ai modifié les fonctions :

Code:

Private Declare PtrSafe Function SetWindowLongA Lib "user32"

Code:

Private Declare PtrSafe Function fwa Lib "user32" Alias "FindWindowA"

Code:

Private Declare PtrSafe Sub keybd_event Lib "user32"

Code:

Private Declare PtrSafe Function ShowWindow Lib "user32"

en ajoutant, comme tu le vois, l'attribut PtrSafe qui indique que l'instruction Declare est compatible 64 bits. Cet attribut est, bien sûr, obligatoire pour les systèmes 64 bits.

Donc résumons nous :
Grâce à ton code je peux aller sur Youtube chercher les bandes annonces (trailers) des films pour ma DBase avec "CommandButton2", choisir un trailer, le visionner, et avec "CommandButton1", copier le lien, le faire apparaître dans ListBox1 et l'enregistrer sur Feuil1. Sur Feuil1 je peux organiser les URL de la façon qui me va le mieux...

Les informations sur la vidéo visionnée apparaissent dans TextBox1 et il suffit d'un clic sur un des boutons de ListBox1 pour déclencher le visionnage par monsieur WebBroser1.
Pour finir, cerise sur le gâteau, la version FullScreen est opérationnelle ET tout le Userform se redimensionne avec la souris... De la balle comme on dit...

Sans compter que toutes les commandes fonctionnent. Ce qui m'a le plus épaté c'est ta façon de récupérer le code HTML dans le HTML de Youtube et d'ajouter les contrôles de fonctions... J'ai vu que l'enregistrement de la VDO fonctionne mais pour des raisons de place je ne les enregistre pas car ça fait trop de volume. Je stocke seulement les affiches.

Je vois difficilement de quoi on pourrait rêver de plus !!! C'est fantastique et c'était totalement hors de ma compétence. Dans mon système actuel je vais sur Youtube, je copie l'URL du trailer et je le colle dans une TextBox qui ensuite le place sur une feuille Excel avec les autres informations que je glane : date de sortie, rating, revenu du film, directeur, acteurs, affiche du film etc...

Donc : dire que tu m'as aidé serait loin de la vérité, je dirais plutôt que tu m'as sauvé !!!

Merci mille fois.
05/11/2017, 16h42
patricktoulon

re

re
oui c'est ca tu clique sur le boton mode resheash tu a youtube comme sur un navigateur
tu sélection ensuite une video
tu la laisse arriver et si il y a les pub tu laisse passer la pub ou le bouton ignorer dans la video
une fois que la video a commencé le src de la balise video est bien le lien vers la video
tu clique a ce moment la sur enregistrer le lien et c'a t'enregistre le lien et le titre dans la feuille 1
et ca l'ajoute dans la listbox

tu peux cliquer même tout de suite sur l'item de la liste que tu viens d'ajouter et ca te le lit sans pub et sans le reste de la page juste le player

alors oui de temps en temps tu aura des ratés car c'est difficile de faire sauter les pubs mais dans l'ensemble tu a un bon truc
et surtout tu a le click droit dans la video qui te propose l'enregistrement dans un fichier ce que le lecteur de youtube ne fait pas

voila voila

je corrigerais les bugs par ci par la mais dans l'ensemble ca fonctionne bien

et oui le bouton fullscreen était indispensable mais vu que l'on est en mode webbrowser le bouton dans le player ne fonctionne pas alors j'ai du astucer avec les api (aller /retour ) avec un bouton et le bouton de la caption bref c'est top

je me suis bien amuser avec ca je pense que je vais même aller un peu plus loin
je personnaliserais la balise "<video>avec des bouton play pause avance rapide etc......
je suis en trai aussi de regarder dans les js comment obtenir seulement le src comment je pourrais vraiment faire mon lecteur perso