XL 2013 baisser le sons progressivement sur Windows media player VBA

creolia à dit:

Bonjour à tous je viens vers vous pour vous demander votre aide.

j'ai un USF pour lancer des musiques de cérémonies j'ai deux boutons pour monter et baisser le sons.

VB:

Private Sub V2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If VolNiveau = "0" Then Exit Sub

VolNiveau.Caption = VolNiveau.Caption - 5
WindowsMediaPlayer1.settings.volume = VolNiveau.Caption
V2.BackColor = &HFF&
MuteV.Caption = VolNiveau.Caption

End Sub

mais je souhaite de créer un bouton qui baisserais le sons progressivement passer de 100 à 0 en 5 secondes.

j'ai tenter un timer mais cela fonctionne pas sa me descend le sons tous les seconde soit 100 secondes

il y a t'il s'il vous plait une solution pour baisser le sons progressivement

merci d'avance de votre aide

Cliquez pour agrandir...

Private Sub decrescendo_Click()
    For i = WindowsMediaPlayer1.settings.volume To 0 Step -20
        DoEvents
        WindowsMediaPlayer1.settings.volume = i
        Application.Wait Now + TimeValue("00:00:1")
    Next
    WindowsMediaPlayer1.settings.volume = 0
    WindowsMediaPlayer1.URL = ""
End Sub

creolia à dit:

bonsoir à tous merci pour votre aide je teste cela dés demain au travail bonne soirée à vous et encore merci

Cliquez pour agrandir...