Discussion :

[ebernar]

Bonjour à tous,

voila mon problème :
je me suis servi de l'éditeur de macro VBA Excel pour écrire une fonction permettant de rafraichir deux pages web ouvertes dans deux browsers distinctes. (recherche de la fenêtre souhaitée parmi toutes les fenêtres ouvertes, activer la fenêtre en question (focus) puis envoi de la touche F5 par Sendkeys

Dans Excel, la macro fonctionne très bien. Mais le but étant de la déclencher par le planificateur de tâches, je souhaite la convertir en vbs. Mais l'exécution par cscript génère des erreurs de compilation.

Qu'est ce qui ne va pas dans mon code pour vbscript ?

Voici le code en question :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassname As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
 
' ShowWindow() Commands
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_NORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_MAXIMIZE = 3
Public Const SW_SHOWNOACTIVATE = 4
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Public Const SW_MAX = 10
'-----------------------------------
 
Sub Rafraichir_Fenetre(titre_fenetre As String)
  Dim hwnd As Long, Fenetre As String
 
  Fenetre = titre_fenetre '
 
  hwnd = FindWindow(vbNullString, Fenetre)
 
  If hwnd = 0 Then Exit Sub
    SetForegroundWindow hwnd
    'ShowWindow hwnd, SW_SHOW
    SendKeys "{F5}", True
  End Sub
 
Sub Main()
    Rafraichir_Fenetre ("Monitoring des services critiques - Google Chrome")
 
    Application.Wait (Now + TimeValue("0:00:05"))
 
    Rafraichir_Fenetre ("La meteo des domaines - Google Chrome")
End Sub

Merci pour votre aide.
Cordialement.
Gérald.

[Mat.M]

bonsoir un truc qui me rend sceptique c'est d'appeler des APi win 32 dans un script internet
Sinon c'est pas possible de debugger pas-à-pas en mettant des points d'arrêt ?

Mais l'exécution par cscript génère des erreurs de compilation.

ok mais quelles sont ces erreurs ?

[ericlm128]

Ce script est un vbscript ?

[ProgElecT]

Salut

Il n'est pas possible d'utiliser des APIs, sinon en utilisant DynamicWrapperX.
En VBScript, il ne faut pas typer les variables.