Discussion :

[aliosys]

if windowsmediaplayer s'arrête alors
action1
end if
Cordialement,
Jean-marc

[SilkyRoad]

bonjour Jean_Marc

il existe l'evenement "PlayStateChange" pour l' objet Windows Media Player

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If WindowsMediaPlayer1.Status = "Arrêté" Then MsgBox "terminé"
'd'autres exemples de statuts :
'Connexion en cours...
'Lecture en cours
'Opération terminée
'Ouvrir le média
'Prêt
'Arrêté
'Modification du média en cours...
End Sub

cordialement
michel

[aliosys]

remerciement
J'ai terminée mo programme grace ton intervention.

C'est si simple quand on connait.