Discussion :

[olivierm67]

Bonjour.

Je vous écris car dans un programme HTA, je cherche une alternative à la fonction wscript.quit

Voici le code :

Code :

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

1
2
3
4
5
6
		'Action si erreur
		If strError <> 0 Then
			commandText = "INSERT INTO employe(matricule) VALUES('" + user + "')"
	 		objConn.Execute commandText
			WScript.Quit
		End If

Je ne peux pas le remplacer par Self.close car j'aimerais seulement quitter le script pour revenir à la suite du fichier HTA.

Avez-vous des idées ?

Je vous remercie.

[hackoofr]

Peut-être un Exit Sub si vous utilisiez dans une Procédure Sub ou bien Exit Function si vous utilisiez dans une une Fonction

[olivierm67]

Cela fonctionne avec Exit Sub.

J'ai également fait une version alternative en intégrant cela dans un IF
(il se peut que la manipulation se trouve dans ma fonction Windows_OnLoad).

A bientôt !