XL 2013 Windows Media Player

Achille_1 · 6 Mars 2020

Bonjour à tous,

Je souhaiterais enlever la barre de gestion de Windows Media Player et mettre en boucle la vidéo. J'ai déjà trouvé pour faire une boucle mais je ne trouve pas de moyen de cacher "proprement" cette barre :

Merci d'avance pour votre aide !

Achille

patricktoulon · 6 Mars 2020

re
bonjour
WindowsMediaPlayer1.settings.setMode "loop", True

pour enlever les Controls tu va dans vbe dans les propriétés du wmp et à "personnaliser" et dans la fenêtre qui souvre tu va a "disposition des commandes" et tu chois "none" dans la combobox

Utiliser Windows Media Player en VB et VBA

silkyroad.developpez.com

JBARBE · 6 Mars 2020

Bonjour Achille, tous,
Ce site est consacré aux problèmes que posent Excel !
Je ne sais pas s'il y a un bénévole qui pourra répondre !
Pour ma part je ne le peux !
En même temps avec patricktoulon qui a trouvé la solution !
Bonne journée !

patricktoulon · 6 Mars 2020

si tu a débloquer le webbrowser pour 2013 j'ai une alternative si tu veux
car il est vrai qu'avec un wmp on a le message de securité "utilise un composant.....blablabla"et que l'on ne peut éviter

Achille_1 · 6 Mars 2020

Merci de ta solution patricktoulon ça me suffit, ma vidéo marche très bien (je n'ai pas besoin d'internet) !
@JBARBE je souhaite intégrer une vidéo grâce à Window Media Player dans un Userform Excel

Achille

patricktoulon · 6 Mars 2020

il est nullement question d'internet mais du controls webbrowser dans un userform

[Toutes versions] alternative a l'objet window media player dans un userform pour eviter le message d'avertissement de securité - Contribuez

Player excel V2.0 certains parmi vous ont eu la désagréable surprise de voir apparaitre une message de sécurité vous avertissant l'utilisation d'un control ActivX quand un control media Player et c'est juste un

www.developpez.net

Achille_1 · 6 Mars 2020

D'accord, après ici je n'ai aucun message d'alerte pour cette vidéo

patricktoulon · 6 Mars 2020

re
c'est pas la video qui est en cause mais le controls WMP lui même selon les pc

Achille_1 · 6 Mars 2020

Bon je m'excuse, j'ai parlé trop vite...

Donc si je suis ta solution pour "contourner" le problème, il faudrait que je mettes le code que tu as créé dans mon Userform contenant la vidéo ?

Et la deuxième partie de ton code dans mon Command_Button ouvrant le Userform vidéo.

Rien d'autre à changer (Sauf les emplacements des vidéos) ?

Merci d'avance

patricktoulon · 6 Mars 2020

re
prend un fichier vierge
insert un userform
met un webbrowser dans le userform
ajoute un module

met ce code le module userform

VB:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SWL Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SendMessageA Lib "user32" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Private Declare Function ExtractIconA Lib "shell32.dll" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long


Private Sub UserForm_Activate()
    Me.Caption = "Excel Player V2.0: lecture de : " & StrReverse(Split(StrReverse(Me.Tag), "\")(0))
    H = FindWindow(vbNullString, Me.Caption)    ' on determine le handle de l'userform
    x = ExtractIconA(0, "C:\Program Files\Windows Media Player\wmplayer.exe", 0)
    SendMessageA H, &H80, False, x

    Me.WebBrowser1.Move 0, 0, Me.InsideWidth + 12, Me.InsideHeight, 0
    video = Replace(Me.Tag, "\", "/")
    'ecriture du code html dans le webbrowser
    code = code & "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Strict//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"">" & vbCrLf
    code = code & "<html xmlns=""http://www.w3.org/1999/xhtml"" xml:lang=""fr"" >" & vbCrLf
    code = code & "<head><meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" & vbCrLf
    code = code & "<style>* { margin:0; padding:0; }</style></head>" & vbCrLf
    code = code & "<body><div id=""DV"">" & vbCrLf
     code = code & "<embed src=""" & video & """ type=""application/x-shockwave-flash"" wmode=""transparent"" width=""100%"" height=""100%""></embed>" & vbCrLf
     code = code & "</div></body></html>" & vbCrLf
    With WebBrowser1
        .Navigate "about:blank"
        Do: DoEvents: Loop Until .ReadyState = 4
        .Document.write code
    End With
    SWL H, -16, &H94CF0080    ''j'ajoute le bouton minimiser et maximiser a la caption du userform avec l'api SetWindowLongA
    Debug.Print code
End Sub
Private Sub UserForm_Resize()
    WebBrowser1.Move 0, 0, Me.InsideWidth + 12, Me.InsideHeight, 0
End Sub

dans le module standard tu met ce code

VB:

Sub test()
With UserForm1
            .Show 0
            .Tag = "K:\FILM TVblablabla.mp4"   ' ou de la musique  comme vous voulez
            'on positionne le lecteur ou on veut et a la taille que l'on veut (l'object se resizera a la dimension  de l'userform tout seul j'ai tout prevu a l'intérieur  )
            .Left = 100
            .Top = 100
            .Width = 500
            .Height = 300

        End With
End Sub

pour le webbroser avec 2013 si il est bloqué c'est simple
ouvre un bloque note
met ceci

Bash:

Windows Registry Editor Version 5.00

[-HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\COM Compatibility\{8856F961-340A-11D0-A96B-00C04FD705A2}]

et sauve ce fichier en "blablabla.reg"
execute cette clé
voila le webbrowser est dipo tu peut l'ajouter dans le userform

ps: si ton excel est en 64 bits tu devra adapter les declaration d'api ou t'en passer

j'ai tout dis

demo
c'est a s y méprendre je met même l'icon wmp dans la caption on dirait vraiment WMP APPLICATION LOL

Achille_1 · 6 Mars 2020

Qu'est-ce que tu entends par webbrowser ? Le WMP ? J'ai essayé de regarder sur internet mais apparemment c'est un navigateur web.

patricktoulon · 6 Mars 2020

non le control webbrowser dans ta boite a outils control dans vbe
regarde dans les suplementaires aussi

patricktoulon · 7 Mars 2020

bonjour
demain je sort la version 3.0 un peu plus aboutie avec les options d'affichage du control panel et des boutons
la version 1 et 2 commençaient a dater
j'ai pris un peu de temps pour la réécrire

j'en ai profiter pour réécrire la version beta du player youtube aussi

Achille_1 · 9 Mars 2020

Bonjour,

D'accord merci Patrick !

Cette version 3.0, où puis-je la trouver ?

patricktoulon · 9 Mars 2020

Bonjour
je la post tout a l'heure dans les ressources

XL 2013 Windows Media Player

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

Discussions similaires

Partager cette page

Statistiques des forums