bonjour,
j'ai récupéré cette routine ( sur le site d’ailleurs, merci)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Add_player()
    Dim osld As Slide
    Dim oplayer As Shape
    Set osld = ActivePresentation.Slides(16)
    Set oplayer = osld.Shapes.AddOLEObject( _
    Left:=10, _
    Top:=10, _
    Width:=240, _
    Height:=160, _
    ClassName:="WMPlayer.OCX.7")
    With oplayer.OLEFormat.Object
        .URL = "D:\ecrits\IME\video\Couper un tasseau d'équerre _ vidéo Menuiserie.flv"
        .fullScreen = False
        .windowlessVideo = True
    End With
End Sub
elle ajoute un player sur la diapo.
le player ne s'affiche et se lance qu’après un relancement du diaporama ?
qu'est ce qui cloche ?
merci de votre aide.