error in Objet requis: 'oPlayer'?

[#1]

Hello,

below the cod, I do not know the problem by adding the Windows Media Player OCX

/**** Code ***/

sub play
set button1 = ActiveDocument.getsheetobject("BU01")
set prop = button1.GetProperties
if prop.Text.v = "OK" then
set oPlayer =ActiveDocument.GetSheetObject("CO01").GetReplacementObject
set oSelections = ActiveDocument.GetField("Path").GetPossibleValues
msgbox(oSelections.Item(0).text)
msgbox("Path")
msgbox(ActiveDocument.Evaluate("vLocation"))
' oPlayer.URL = oSelections.Item(0).text
msgbox(oPlayer.URL)
oPlayer.URL = ActiveDocument.Evaluate("Path")
'oPlayer.URL ="C:\Documents and Settings\t.zarra\Bureau\qlikV\qlikview.wmv"
set button1 = ActiveDocument.getsheetobject("BU01")
set prop = button1.GetProperties
prop.Text.v = "STOP"
button1.SetProperties prop
else
set oPlayer = ActiveDocument.GetSheetObject("CO01").GetReplacementObject
oPlayer.controls.stop '= true
set button1 = ActiveDocument.getsheetobject("BU01")
set prop = button1.GetProperties
prop.Text.v = "PLAY"
button1.SetProperties prop
end if
end sub

/***** end code *****/

thank you

[disqr_rm]

You may wanna see how Shima has done it in http://community.qlik.com/media/p/67025.aspx and compare with your code. Just a thought.