Open resource pool

[Biggles]

I am trying to use the following code to open the resource pool as read
write, but I still get prompted on how to open it. What should I change?

Dim projapp As MSProject.Application
Dim curr_pool As String

curr_pool = "<" & proj_db & ">\resourcepool"


Set projapp = CreateObject("MSProject.Application")

'OPEN THE RESOURCE POOL TO ATTACH ALL THE OTHER PLANS
projapp.FileOpen Name:=curr_pool, FORMATID:="MSPROJECT.MPD",
ReadOnly:=False

 

[Jan De Messemaeker]

Hi,

I've been looking for that deeply but found no solution other than to use
sendkeys; heve the fileopen statement PRECEDED by
Sendkeys " ~"


Hope this helps,

aeker
Microsoft Project Most Valuable Professional
+32 495 300 620
For availability check:
http://users.online.be/prom-ade/Calendar.pdf