Bonjour,
Pourriez-vous me dire ce qui ne va pas avec ma déclaration du répertoire courant?
Sous VBS ceci fonctionne:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
DossProg = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
Prog1 = DossProg & "Progs\MonProg.exe"
Sous HTA qui n'aime pas WScript ceci ne fonctionne pas:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
DossProg = Replace(ScriptFullName, ScriptName, "")
Prog1 = DossProg & "Progs\MonProg.exe"
Merci pour votre aide!