contrôler une application web avec des macro vba

Version imprimable

22/01/2020, 21h22
monfiston

1 pièce(s) jointe(s)

contrôler une application web avec des macro vba

bonjour
je voudrais savoir si c'est possible de piloter une application web avec des macro excel

dans la page web, il faudrait que je clique sur le lien entouré en rouge, je connais son N° numéro déjà

le pb c'est que le lien n'est jamais au même endroit
Pièce jointe 532897

puis, je colle des données dans la page qui c'est ouverte

et ensuite j'appuie toujours en VBA sur le bouton enregistrer
23/01/2020, 10h43
monfiston

1 pièce(s) jointe(s)

bonjour à tous
voici le code de la page web que j'ai réussi à trouver

je souhaite pouvoir simuler l'appuie sur ce bouton

je m'aide toujours grâce à ce tuto,
mais mon bouton n'a pas l'air d'avoir de nom!

Pièce jointe 532963

si quelqu'un à une idée, je suis preneur
23/01/2020, 14h08
monfiston

1 pièce(s) jointe(s)
j'ai réussi à avancer un peu
j'arrive à:
- ouvrir la page avec le bon lien
- écrire dans les champs texte de la page web en vba

mais je n'arrive pas à valider

Pièce jointe 533061
Code:

1 2 3 4 Set InputGoogleBouton = IEDoc.all("save_close") 'On simule un clic InputGoogleBouton.Click
mais il ne se passe rien, la page web ne se ferme pas et ne s'enregistre pas

je suis pratiquement sur que c'est le bon bouton, car je n'ai pas d’erreur dans la macro, et si je change le nom, par un qui n'existe pas, ça plante

une idée?

Bonjour,

Essaie peut-être comme ceci :
Non testé

Code:

1
2
3
4
 
For Each ele In IEdoc.getElementsByTagName("input")
   If ele.Value = "save_close" then ele.Click: Exit For
Next ele

23/01/2020, 15h52
monfiston

merci
je viens de tester, mais il ne se passe rien de plus

et j'ai l'impression que dans ta routine la variable "ele.Value" reste vide
23/01/2020, 17h10
monfiston

je viens de creuser encore un peu plus la question

et j'arrive à appuyer sur les boutons quitter, imprimer,.... en vba

et pour les boutons "enregistrer", "enregistrer et quitter", il ne se passe rien avec la même méthode

une idée?
23/01/2020, 18h28
monfiston

2 pièce(s) jointe(s)

j'avance petit à petit

sur les boutons "enregistrer", "enregistrer et quitter", il n'y a pas "d'évènement onclick"

il ne se lancerait pas par une fonction par hasard?

j'ai bien trouvé quelque chose, mais je n'arrive pas à démarrer la fonction
Pièce jointe 533143

Pièce jointe 533146

Code:

IEDoc.parentWindow.execScript "(this: any): void ", "JavaScript"

ou?

Code:

IEDoc.parentWindow.execScript "(l2lbutton: any): void ", "JavaScript"

une idée?
23/01/2020, 19h43
Qwazerty

Salut

Les Input utilisés comme button semble en effet avoir un fonctionnement différent des éléments Button
https://developer.mozilla.org/fr/doc...t/Input/button
Dans la section "utiliser les bouton <Input>
"btn.addEventListener('click', updateBtn);"

Ce qui correspondrait bien à ce que tu décrit, à savoir un appel à une fonction.

Les appels de function que tu as écrit ne sont pas d'une forme correcte, ici le nom de la fonction semble être "SenTryWrappedFunction" (je ne comprends pas trop la déclaration en tant que Constante), Essai avec "sentryWrapped"
Tu auras des renseignements ici sur la démarche à suivre. Comme précisé, attention à la casse, il faut bien respecter les majuscules/minuscules sinon ça ne fonctionne pas.

Donc peut-être un truc comme ça

Code:

IEDoc.parentWindow.execScript "SenTryWrappedFunction", "JavaScript"

ou

Code:

IEDoc.parentWindow.execScript "sentryWrapped", "JavaScript"

++
Qwaz
23/01/2020, 20h10
monfiston

merci de ton aide
je viens de les tester, mais malheureusement, j'ai droit à un erreur automation
23/01/2020, 20h26
Qwazerty

Salut

Le dev html... je ne connais pas mais la structure du code me semble alambiquée.
De plus il me semble aussi que la Fonction attend un paramètre (This) qui représente sans doute le bouton....

La déclaration de la fonction en tant que variable + l'utilisation du Focus pour la déclencher...
Je pense qu'il utilisent ça pour empêcher son appel par un code externe ( mais c'est juste une intuition, rien de concrêt pour étayer ce propos).

Il faudrait pouvoir déclencher l'event Focus du Input pour pouvoir déclencher l’exécution du code.
Hors HTMLInputelement ne semble pas avoir d'appel à Focus
https://docs.microsoft.com/en-us/pre...03817(v=vs.85)

Essai tout de même

Code:

InputElement.Focus

en remplaçant Inputelement par le nom de ta variable pointant sur le bouton

++
Qwaz
23/01/2020, 20h34
monfiston

Ça ne marche pas non plus,
Je pense que tu as en partie raison
Car si j accède au bouton avec des send key
Tabulation + entrer
Ça ne fonctionne pas, il faut que c est la souris qui clique sur ce fichu bouton
23/01/2020, 21h35
Qwazerty

Peut-être en regardant du coté des requêtes émises par la page lorsque tu cliques sur manuellement sur le bouton. Il faudrait regarder les requêtes crées et essayer de les comprendre pour les reproduire...
L'une d'elle doit sans doute se charger de transmettre les données à sauvegarder (??)

bonjour
j'ai réussi en bidouillant, avec des commandes "sendkey"

par contre, j'ai un autre pb

sur mon pc perso, le même fichier fonctionne très bien

sur les pc du boulot qui sont en anglais, ça ne fonctionne pas

j'ai droit à cette erreur :"le serveur distant n'existe pas ou n'est pas disponible"

sur ces codes

Code:

IE.Visible = True

Code:

Do Until IE.readyState = READYSTATE_COMPLETE

voici mon code complet

Code:

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
53
54
55
56
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare Function SetCursorPos Lib "user32" ( _
                 ByVal x As Long, _
                 ByVal y As Long) As Long
 
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_MAXIMIZE = 3
 
 
Sub WaitIE(IE As InternetExplorer)
   'On boucle tant que la page n'est pas totalement chargée
   Do Until IE.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub
 
Sub envoie_info()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
 
   'Chargement d'une page Web 
 
 IE.navigate "https://ww.google.com"
 
 
   'Affichage de la fenêtre IE
   IE.Visible = True
   ShowWindow IE.hwnd, SW_MAXIMIZE
 
   'On attend le chargement complet de la page
 WaitIE IE
 
   'On pointe le membre Document
   Set IEDoc = IE.Document
   'On pointe notre Zone de texte
   Set InputGoogleZoneTexte = IEDoc.all("description")
SendKeys "{Pgdn}", True
 
Sleep 100
 
   'On définit le texte que l'on souhaite placer à l'intérieur
   InputGoogleZoneTexte.Value = " & Range(kanban_metallo.copier) & "
 
 
Sleep 300
SetCursorPos 500, 1000 'x and y position
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0

vous auriez une idée?

26/01/2020, 16h37
Qwazerty
SAlut

Citation:

Envoyé par monfiston

sur les pc du boulot qui sont en anglais, ça ne fonctionne pas

j'ai droit à cette erreur :"le serveur distant n'existe pas ou n'est pas disponible"

Je doute que ça vienne de la version anglaise vu les lignes pointée.
Par contre le message d'erreur me ferait plus dire que la variable n'est plus attribuée. Tu trouveras peut-être une solution avec cette méthode.
Code:

1 2 InputGoogleZoneTexte.Value = " & Range(kanban_metallo.copier) & "
Plutôt étrange comme écriture, il n'y aurait pas une erreur?
Je dirait plutôt
Code:

1 2 InputGoogleZoneTexte.Value = Range(kanban_metallo.copier).value
Et bien sur je préciserais sur quelle feuille je travaille concernant le Range ;)

++
Qwaz

merci, pour tes infos, le pb provient certainement de la page d’accueil de l'intranet

j'ai essayé ce matin, mais pas manque de temps, je n'ai pas pu faire un test viable, ça planté au milieu de la boucle

par contre je ne comprend pas pourquoi il faut démarrer une instance d'internet explorer au début, et après de relancer une autre?

sinon, oui tu as raison, pour les 2 défauts d'écriture du codes que tu as soulevé, ce sont des erreurs de recopiage

Code:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Sub PremierIEGet()
'Déclaration des variables
Dim FirstIE As New InternetExplorer 'cette instance contiendra la page qui charge en boucle
 
Dim IE As InternetExplorer 'Dim IE As New InternetExplorer
Dim objShell As Shell
Dim obj As Object
Dim InputGoogleZoneTexte As HTMLInputElement
Dim InputGoogleBouton As HTMLInputElement
 
FirstIE.navigate "www.google.fr"
FirstIE.Visible = True ' a vous de voir, il est possible de la garder masquée, mais attention a ne pas oublier de la fermer avant de finir la macro
 
'Ensuite on recherche la nouvelle instance d'IE qui a été ouverte par la 1ère instance...
'Ici il faudra peut-être mettre une petit Sleep histoire d'être sur que cette 2ème instance se soit chargée
'Je suis pas fan des sleep, mais bon... des fois...
 
'On charge la collection des appli lancés
Set objShell = New Shell
'On boucle
For Each obj In objShell.Windows
    'On regarde si l'appli est de type Document internet
    If TypeName(obj.Document) = "HTMLDocument" Then
        'On regarde si c'est bien l'instance qui a chargé Google
        If obj.LocationName = "Google" Then
            'On pointe cette instance via la variable IE
            Set IE = obj
            'On quite la boucle
            Exit For
        End If
    End If
Next
 
'Ensuite on utilise IE
'...
'...
'IE.Visible = True 'Logiquement celle-ci doit déjà être visible
 IE.navigate "https://...."
 
    ShowWindow IE.hwnd, SW_MAXIMIZE
 
 
    'On pointe le membre Document
   Set IEDoc = IE.Document
   'On pointe notre Zone de texte
   Set InputGoogleZoneTexte = IEDoc.all("description")
SendKeys "{Pgdn}", True
 
Sleep 100
 
   'On définit le texte que l'on souhaite placer à l'intérieur
   InputGoogleZoneTexte.Value = " & Range(kanban_metallo.copier) & "
 
 
Sleep 300
SetCursorPos 500, 1000 'x and y position
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
 
 
 
 
 
 
'Fermeture d'IE
'IE.Quit
 
'On libère la variable IE (bien que VBA s'en occupe à la fin de la procédure)
Set IE = Nothing
End Sub

je referais un test lors de ma reprise, jeudi soir

27/01/2020, 14h13
Qwazerty

Salut

Citation:

Envoyé par monfiston

par contre je ne comprend pas pourquoi il faut démarrer une instance d'internet explorer au début, et après de relancer une autre?

Alors non, en fait c'est l'inverse. Sur certain site (intranet), c'est transparent pour l'utilisateur mais la session principal est fermé et une autre instance est ouverte à l'occasion par exemple de la connexion au site.

Ainsi pour VBA, il lance une cession qu'il instancie dans une variable.
Cette instance est détruite par le site lors de la connexion.
VBA vient de perdre le lien vers son instance puisqu'elle n’existe plus.
Le code fourni dans le lien au dessus, permet de rechercher la nouvelle instance qu'à lancer le site.

Maintenant c'est une possibilité, je ne peux pas dire si c'est bien le problème qui t'occupe.

++
Qwaz