Shell command: Error 5

[mtheriault2000]

Long time that I played with the Shell command. I keep getting Error 5.
I think that it is related to some space included in the path, but can't find how to resolved that yet.

The goal, start and external application when my Excel file is opened.

Private Sub Workbook_Open()     ' Setting a global variable

Dim retcode As Long
Dim StringBack As String
Dim Astring As String


Astring ="G:\Users\Utilisateur\Documents\Martin\Documents\Document Bourse\MultiChart\WorkSheet\1 Hour\4_ScalesChart\4Scales_Desktop.mcd"




retcode = Shell(Astring,1)

End Sub

Martin

 

[rlv01]

How sure are you that file "G:\Users\Utilisateur\Documents\Martin\Documents\Document Bourse\MultiChart\WorkSheet\1 Hour\4_ScalesChart\4Scales_Desktop.mcd" exists? Does the code work if you replace it with notepad.exe for a test?

Private Sub Workbook_Open()     ' Setting a global variable

Dim retcode As Variant 'Long
Dim StringBack As String
Dim Astring As String


'Astring = "G:\Users\Utilisateur\Documents\Martin\Documents\Document Bourse\MultiChart\WorkSheet\1 Hour\4_ScalesChart\4Scales_Desktop.mcd"
Astring = "C:\Windows\System32\Notepad.exe"


retcode = Shell(Astring, 1)

End Sub

 

[mtheriault2000]

OK, I will try when back home

When I copied the file string in the Windows search box, Windows did opened it

 

[rlv01]

You might also include the error text for any error you get. For example if I run your code I get a Runtime-error 53, which includes the error text "file not found" (because I don't have a 4Scales_Desktop.mcd file on my PC). The error text, in addition to the error number, can be helpful to anyone trying to assist.