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