Discussion :

[sovan]

Bonjour,

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

Code :

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

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

[hackoofr]

Tu as reçu quoi comme message d'erreur

[SfJ5Rpw8]

Bonjour,

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

Code :

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

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

[sovan]

Ha merci pour la petit correction