Bonjour à tous, je reviens vers vous pour une nouvelle question

J’ai un script qui fonctionne à merveille dont je remercie ProgElect
Ma question est que je voudrai juste cliquer sur le script pour qu’il me donne la phrase et non cliquer à l’intérieur de la fenêtre.

Merci par avance à ce fantastique Forum de développeur

Code html : 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
<HTML>
	<HEAD>
	<TITLE> vocaliser le jour en cours </TITLE>
		<HTA:APPLICATION
         ApplicationName = "ProgDemo"
         Id="ProgDemo"
		>
	</HEAD>
	<SCRIPT language="VBScript" type="text/VBScript" >
                Sub Window_Onload()
                        ResizeTo 300, 200 ' dimensionnement de la fenêtre HTA (largeur, hauteur)
                        MeTop = (Screen.availHeight - 200) / 2: MeLeft = (Screen.availWidth-500)/2
                End sub
'------------------------------------------------------------------------------------------------------------------
    Sub ProgDemo_OnDBlClick()
      'ApplicationName = "ProgDemo" nom donné au HTA
      'toutes Subs consernant les evenements du HTA comencera par son id donc "ProgDemo_" + nom de l'evenement
 
      Dim Voix
      Dim TblNomJour(7), MotDuJour(7), NumJour, NomJour
 
      TblNomJour(0)="lundi"
      TblNomJour(1)="mardi"
      TblNomJour(2)="mercredi"
      TblNomJour(3)="jeudi":
      TblNomJour(4)="vendredi"
      TblNomJour(5)="samedi"
      TblNomJour(6)="dimanche":
      
      MotDuJour(0) = "Du courage pour ce "        'lundi
      MotDuJour(1) = "Bon "                       'mardi
      MotDuJour(2) = "Milieu de semaine ce "      'mercredi
      MotDuJour(3) = "Dernière ligne droite, "    'jeudi
      MotDuJour(4) = "Demain la quille, "         'vendredi
      MotDuJour(5) = "Ouf  "                      'samedi
      MotDuJour(6) = "Grace matinée? "            'dimanche
  
      NumJour = (Weekday(date,2) - 1)   ' <------- lundi = 1-1 .....   samedi = 7-1
      NomJour = TblNomJour(NumJour)     ' <------- 0 = lundi   .....   6 = dimanche
      
      Set Voix = CreateObject("SAPI.SpVoice")
      Voix.Speak MotDuJour(NumJOur) + NomJour
      Set Voix = NotHing ' Nettoyage
       Window.Close()
    End Sub
'------------------------------------------------------------------------------------------------------------------
        </SCRIPT>
	<Body>
	Démonstration simplifiée<br /><br />
	Double cliquez pour écouter
	</Body>
</HTML>