Ouvrir fichier hta

Bonjour,

Je souhaite ouvrir un fichier hta à partir d'un dossier sur le réseaux
:aie:

Code:

---

1 2 3 4 5 6 7

dim objExec currentPath = "\\FREEBOX\Disque dur\Aplications" function fctopen() Set objShell = CreateObject("WScript.Shell") Set oShell = CreateObject("WScript.Shell") Set objExec = objShell.Exec("mshta.exe " & "" & currentPath & "\loading.hta") end function

---

Ca ne marche pas !!

Merci d'avance :)

:salut:
Tu as reçu quoi comme message d'erreur :koi:

Bonjour,

peu-être un probléme d'espace dans ton nom de répertoire .. si on encadre de guillemets ?

Code:

---

1 2	Set objExec = objShell.Exec("mshta.exe """ & currentPath & "\loading.hta""")

---

Ha merci pour la petit correction :)

;)