WindowMediaPlayer HS

Bonjour le forum

J'utilise office 2024

Pouver vous me dire pourquoi la macro ne fonctionne plus, alors que avant hier c'était normal.

Ca bug dans :

Me.WindowsMediaPlayer1

Merci.

Option Explicit             'oblige à déclarer toutes les variables
Option Compare Text         'utilise le texte pour le classement alphabétique
Private x As Variant        'déclare la variable x
Private pl As Range         'déclare la variable pl (PLage)
Private cel As Range        'déclare la variable cel (CELlule)
Private nl As Long          'déclare la variable nl (Numéro de Lige)

Private Sub userform_initialize()
TextBox14.Value = Sheets("feuil1").Range("n2")
Call obG1
End Sub
Private Sub OptionButton1_Click()
Call obG1
End Sub
Private Sub OptionButton2_Click()
Call obG1
End Sub
Private Sub OptionButton3_Click()
Call obG2
End Sub
Private Sub OptionButton4_Click()
Call obG2
End Sub
Private Sub OptionButton5_Click()
Call obG3
End Sub

Private Sub ComboBox1_DropButtonClick()
If Me.ComboBox1.ListCount = 0 Then
    MsgBox "Vous devex choisir le type de recherche ! PAR TITRE,GENRE ou REALISATEUR."
    Me.OptionButton3.SetFocus
End If
End Sub
Private Sub ComboBox1_Change()
  Me.ListBox1.Clear
  For Each cel In pl
    If CStr(cel.Value) = CStr(Me.ComboBox1.Value) Then
      nl = cel.Row
      With Me.ListBox1
        .AddItem Sheets("Feuil1").Cells(cel.Row, 1)
        .List(.ListCount - 1, 1) = Sheets("Feuil1").Cells(nl, 2)
        .List(.ListCount - 1, 2) = nl
      End With
    End If
  Next cel
  If Me.ListBox1.ListCount = 1 Then Me.ListBox1.ListIndex = 0
End Sub

Private Sub listbox1_Click()
Dim Chemin As String
Dim Chemin1 As String
Dim Chemin2 As String
Dim Chemin3 As String
Dim Chemin4 As String
Dim Chemin5 As String

' ****************************************************
' Indiques exactement le répertoire de tes images
' ****************************************************
Chemin = "K:\videotheque\affiches\"
Chemin1 = "K:\videotheque\drapeaux\"
Chemin2 = "K:\videotheque\acteurs\"
Chemin3 = "K:\videotheque\acteurs1\"
Chemin4 = "K:\videotheque\acteurs2\"
Chemin5 = "K:\videotheque\windows\"

For x = 0 To 13
  Next x
 Me.Image1.Picture = LoadPicture(Chemin & Me.ListBox1 & ".jpg")
       Me.Image2.Picture = LoadPicture(Chemin1 & Me.ListBox1 & ".gif")
       Me.Image3.Picture = LoadPicture(Chemin2 & Me.ListBox1 & ".jpg")
       Me.Image4.Picture = LoadPicture(Chemin3 & Me.ListBox1 & ".jpg")
       Me.Image5.Picture = LoadPicture(Chemin4 & Me.ListBox1 & ".jpg")
       Me.WindowsMediaPlayer1.Url = (Chemin5 & Me.ListBox1 & ".mp4")

  nl = Me.ListBox1.Column(2, Me.ListBox1.ListIndex)
  For x = 0 To 12
    Me.Controls("TextBox" & x + 1).Value = Sheets("Feuil1").Cells(nl, 1 + x)
    Next x
    With Me.TextBox1
      .SelStart = 0
    .SelLength = Len(.Value)
 End With
End Sub
Private Sub CommandButton1_Click()
Dim dest As Range
With Sheets("Feuil1")
    If nl = 0 Then

        Set dest = .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
    Else
        Set dest = .Cells(nl, 1)
    End If
End With
For x = 1 To 12
     dest.Value = Me.Controls("TextBox1").Value
     dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
 Next x
Unload Me
UserForm1.Show
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub obG1()
UserForm1.Frame2.Visible = UserForm1.OptionButton2.Value
If Me.OptionButton1.Value = True Then
    For x = 1 To 13
        Me.Controls("TextBox" & x).Value = ""
    Next x
    Me.TextBox1.SetFocus
    nl = 0
End If
End Sub
Private Sub obG2()
Dim col As Variant
Dim dico As Object
Dim tbl As Variant
Dim I As Variant
Dim j As Variant
Dim temp As Variant

UserForm1.ComboBox1.Clear
col = IIf(UserForm1.OptionButton3.Value = True, 1, 10)
With Sheets("Feuil1")
    Set pl = .Range(.Cells(2, col), .Cells(Application.Rows.Count, col).End(xlUp)) 'définit la plage pl
End With

Set dico = CreateObject("scripting.dictionary")
For Each cel In pl
    dico(cel.Value) = ""
Next cel
tbl = dico.keys

For I = 0 To UBound(tbl, 1)
For j = 0 To UBound(tbl, 1)
        If tbl(I) < tbl(j) Then
            temp = tbl(I)
            tbl(I) = tbl(j)
            tbl(j) = temp
        End If
    Next j
Next I
UserForm1.ComboBox1.List = tbl
End Sub

Private Sub obG3()
Dim col As Variant
Dim dico As Object
Dim tbl As Variant
Dim I As Variant
Dim j As Variant
Dim temp As Variant

UserForm1.ComboBox1.Clear
col = IIf(UserForm1.OptionButton3.Value = True, 1, 5)
With Sheets("Feuil1")
    Set pl = .Range(.Cells(2, col), .Cells(Application.Rows.Count, col).End(xlUp)) 'définit la plage pl
End With

Set dico = CreateObject("scripting.dictionary")
For Each cel In pl
    dico(cel.Value) = ""
Next cel
tbl = dico.keys

For I = 0 To UBound(tbl, 1)
For j = 0 To UBound(tbl, 1)
        If tbl(I) < tbl(j) Then
            temp = tbl(I)
            tbl(I) = tbl(j)
            tbl(j) = temp
        End If
    Next j
Next I
UserForm1.ComboBox1.List = tbl
End Sub

Bonjour,

A priori l'extension ".mp4" que vous affectez systématiquement à tous les films que vous souhaitez visualiser avec Windows MediaPlayer ne correspond pas à l'extension figurant dans la liste de vos films (en général, ".mkv").

Non,c'est tout simplement le lecteur qui n'est pas prévu dans la version preview de office 2024

Si vous avez un solution pour mettre le lecteur dand les controles active X, je suis preneur

Merci.

Bonjour,

Vous pouvez essayer d'utiliser le contrôle VLC ActiveX que vous obtenez à l'installation du VLC Mediaplayer.

Son fonctionnement est cependant différent de celui de Windows Media Player :

1- le chemin d'accès du fichier média est au format Web

2- il faut passer par une playlist

ci-dessous exemple :

    Me.VLCPlugin21.audio.mute = False
    Me.VLCPlugin21.audio.volume = 60
    Me.VLCPlugin21.playlist.Add ("File:///M:/groland01.flv")
    Me.VLCPlugin21.playlist.playItem (0)

Bonjour thev

C'est pareil vlc est inactif dans les controles active X.

J'ai trouvé
Fichier
options
centre de gestion de la confidentialité
Paremétres de gestioh de la confidentialité
Parametres active X
Activer tous les controles
A+ et merci à tous de s'être penché sur le problème;