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 :
Merci pour votre aide.
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
Cordialement.
Gérald.
Partager