Discussion :

[michelr06]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

<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

[michelr06]

J'ai mis ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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