comme il est indiqué dans le titre : La méthode Popup ne marche pas dans un HTA ? pourquoi aucune idée
par contre dans un Vbscript marche !
voila les deux exemples : VBS et HTA

en VBS :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Popup()
Dim WshShell, BtnCode
Set WshShell = WScript.CreateObject("WScript.Shell")
 
BtnCode = WshShell.Popup("Comment allez-vous ?", 7, "Répondez à cette Question:", 4 + 32)
 
Select Case BtnCode
   case 6      WScript.Echo "Je suis ravie d'apprendre que vous allez bien."
   case 7      WScript.Echo "J'espère que vous irez mieux."
   case -1     WScript.Echo "Y-a-t-il quelqu'un ?"
End Select
End Sub
Call Popup
en HTA :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
<html>
<head>
<title>Question</title>
<HTA:APPLICATION 
APPLICATIONNAME="Question"
SCROLL="yes"
SINGLEINSTANCE="yes"
WINDOWSTATE="normal"
>
<script language="VBScript">
Sub Popup()
Dim WshShell, BtnCode
Set WshShell = CreateObject("WScript.Shell")
 
BtnCode = WshShell.Popup("Comment allez-vous ?", 7, "Répondez à cette Question:", 4 + 32)
 
Select Case BtnCode
   case 6      WScript.Echo "Je suis ravie d'apprendre que vous allez bien."
   case 7      WScript.Echo "J'espère que vous irez mieux."
   case -1     WScript.Echo "Y-a-t-il quelqu'un ?"
End Select
End Sub
</script>
</head>
<body>
<input type="button" value="Question" name="run_button"  onClick="Popup"><p> 
</body>
</html>