Probème de lecture de la vidéo de mon Userform

Bonjour à tous et bonne année,

en effet je suis nouveau dans le groupe. Et j'espère ne pas repeter un meme sujet déjà peut etre traité. Car j'ai pas vu de sujet semblable.

Aufait j'ai un petit soucis lors de la lecture de ma vidéo. Elle s'execute très bien mais rien ne s'affiche. Je ne comprends pas quel est l'erreur. Voici le code merci de bien vouloir m'aide. Bonne journée

Private Sub cb_m5_techniker_Change()

Dim value As Boolean

If autochange = True Then

autochange = False

Exit Sub

End If

value = cb_m5_techniker.value

If Not check_change_permission_for_checkbox(ActiveSheet) Then ' wenn nutzer nicht weitermachen möchte

autochange = True 'automatische änderung vormerken

cb_m5_techniker.value = Not value ' und den ursprünglichen wert wieder herstellen

Exit Sub ' und restliche prozedur abbrechen

End If

'######################################################

'Eigentliche Prozedur

If cb_m5_techniker.value = True Then

cb_m5_nicht_durchgefuehrt.value = False

End If

End Sub

Private Sub start_video_button_Click()

video_player.Show

End Sub

Private Sub CommandButton1_Click()

MsgBox ("Browser wird geöffnet bitte warten")

Set wshshell = CreateObject("WScript.Shell")

wshshell.Run "

"

Unload Me

End Sub

Private Sub UserForm_Initialize()

browser.Navigate ("

")

' flashplayer.Movie = "https://www.youtube.com/v/w1q2W-mkzFI"

End Sub