Lancer fichier excel depuis hta

Bonjour,

Je me lance dans .hta et je voudrai lancer un fichier excel qui se trouve sur c:\monfichier.xls.
J'ai essayé ça

Code:

---

1 2 3 4 5

Sub RunProgram Const NORMAL_WINDOW = 1 Set objShell = CreateObject("Shell.Application") objShell.ShellExecute "EXCEL.EXE", "C:\monfichier.xls", , , NORMAL_WINDOW End Sub

---

Lancé avec

Code:

---

<input type="button" name="lien5" value="2 - Lancer&#10&#13Etatbudg" onclick="RunProgram" style="Font:bold;width:130px;Height:40px;color:#CC7A29"onclick>

---

mais j'ai un msg d'erreur code 800A01F4 variable non definie objShell

Avez-vous une solution

Merci

J'ai mis ça

Code:

---

1 2 3 4 5

Sub RunProgram Dim WshSHell set WshShell = CreateObject("WScript.Shell") WshShell.Run("CMD /C start C:\monfichier.xls") End Sub

---

et ça marche