exception 0x86DB0898 on SaveAs instruction

[bozood]

hi,
her is my code :

dcvScenario.Src = _documentPath 'dcvScenario is my Visi
Drawing Control
dcvScenario.Src = ""
...
_vsoDocument.SaveAs(file.vsd) 'this instruction throws a
exception HRESULT 0x86DB0898

Could anybody tell me why ? what's wrong in my code ?
How to save changes in the visio document, i open first (_documentPath
?

Please, help me !
Thanks in advanc

 

[Al Edlund]

where in your code did you assign _vsoDocument to the active document?

If I was to guess, I would suspect that the saveas expects a string. So
maybe it should be "file.vsd".
al

 

[Al Edlund]

visApp = GetObject(, "Visio.Application")

docObj = visApp.ActiveDocument

visApp.Application.DoCmd(visCmdFileSave)

 

[bozood]

Thank you al,
you were right, my variable _vsoDocument was not the activeDocument
when i called the function SAveAs