VBA : Playing full screen & closing Windows Media Player after use

[juliendupere]

Hi everyone,

I just started with VBA. I would like to open a video full screen and close it after.

Here's what I've got so far. I can open the video, but cannot play it in full screen nor close it after 1 min 53 sec.

Sub Intro()

Dim WMP As Object

'Next 3 lines work just fine, but do not display Full Screen
Set WMP = CreateObject("new:{6BF52A52-394A-11d3-B153-00C04F79FAA6}")
WMP.openplayer "C:\Users\(...)\test.mp4"
Application.Wait (Now + TimeValue("0:01:53"))
'This next line attemps to close the WMP but it does not work
WMP.closeplayer "C:\Users\(...)\test.mp4"

End sub

Thank you very much for any help.