Vista - Openning XL I get a Run Time error 1004

Hi,

Running the following code I get a Run time error. I understand the
reason(the module that I want to execute is in my personal.xls) but
don't know how to fix it!
Thank you for your support.

Option Explicit

dim app,workbook,objWMIService,colProcessList,objShell
dim strComputer, objProcess

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process " _
& "Where Name = 'Excel.exe'")

For Each objProcess in colProcessList
'WScript.Echo "Excel est terminé" 'Pour Debuggage
objProcess.Terminate()
Next

Set app = CreateObject("Excel.Application")

Set workbook = app.Workbooks.Open("D:\Robert\DOCUMENT\XLS\Budget" &
Year(now) & ".xls")

On Mar 10, 8:09*pm, Bobby <rpq...@xxxxxx> wrote:Houps! Found it!
Regards.