¡Hola amigos !

En otro Libro tengo el siguiente código que me funciona perfectamente:

Private Sub worksheet_change(ByVal Target As Range)

If Not Intersect(Range("Ak14:As18"), Target) Is Nothing Then

   For Each celda In Range("w25:W34")

      If celda.Value <> "" Then datos = datos + 1

   Next

   If datos > 0 Then

      Iniciar

   Else

      Parar

   End If

End If

 

'a partir de aquí quiero modificar el código para que, en lugar de ejecutar el WebBrowser4 y reproducir un GIF animado que tengo en una carpeta , dependiendo del  contenido del rango W25:W34,  me ejecute el control Windows Media Player que tengo insertado en el rango S2:AE12 y reproduzca un video corto guardado en una carpeta. Es decir,  en lugar de 

' WebBrowser4.Navigate "C:\fuegosartificiales.GIF"'

Hacer un código parecido a

' Windows Media Player1.Navigate "C:\videos\pulgoso.mp4"'

Lo he intentado pero no consigo que funcione.  ¡¡Muchas gracias por ayudarme!!

 

Este es el código que quiero modificar para que reproduzca el video en lugar del GIF

Set Target = Range("W25")

If Target.Value = "Lunes llegué tarde" Then

  WebBrowser4.Navigate "C:\GIF,s ANIMADOS\fuegosartificiales.GIF"

 Set Target = Range("W25")

If Target.Value = "Viernes no computa antes de las 7:00 h" Then

  WebBrowser4.Navigate "C:\GIF,s ANIMADOS\monito.GIF"

End If

 End Sub

Reproducir videos en EXCEL con WMP.xlsm

No era tan difícil, trasteando en otros foros encontré la solución.

Gracias compañeros, Tema Cerrado