[VBA] Message de confirmation IE -> Macro bloquée

Version imprimable

24/11/2016, 22h45
Jeev77

[VBA] Message de confirmation IE -> Macro bloquée

Bonjour à tous,

Je tiens tout d'abord à m'excuser d'avance pour les fautes d'orthographes :S

J'aurais besoin de votre aide car cela fait depuis un bon moment que je suis bloqué.

J'ai une macro excel en VBA qui va sur ie et va modifier un champs sur un site en intranet. Tout cela fonctionne correctement, cependant lorsque la macro clique sur "Save" il y a un message de confirmation qui apparait. Ce message la empêche la macro de continuer tant que je ne valide ou annule pas manuellement.

Je voulais savoir s'il y avait une solution pour pouvoir prendre la main sur cette fenêtre de confirmation pour pouvoir la valider a l'aide de la macro svp ?

J'ai déjà essayer la fonction "Application.sendkeys" mais rien y fait ... :(

Merci d'avance de votre aide.
25/11/2016, 00h47
patricktoulon

re

re
bonsoir
si une boite type message apparait don fenêtre non IE alors sendkey par un wscript.sell(object)
attention pas !!!! par application.sendkey qui elle n'agit que sur excel
surement aussi une gestion d'attente de cette fenêtre type message
25/11/2016, 07h56
Jeev77

VBA

Bonjour Patricktoulon,

Merci pour ta reponse, c'est un message de confirmation ou je dois cliquer sur OK ou ANNULER. Pourrez tu m'expliquer stp comment je devrais coder en passant par le script ?

Merci encore
25/11/2016, 08h57
patricktoulon

re
Bonjour
après ta ligne de code qui clik sur le bouton save tu met :
Code:

1 2 Application.Wait (Now + TimeValue("0:00:01")) With CreateObject("WScript.Shell"): .SendKeys "{enter}": End With
augmente éventuellement a 2 ou 3 secondes dans le wait
25/11/2016, 09h54
Jeev77

D'accord merci beaucoup Patricktoulon

Je vais essayer cela ce soir et je te ferai un retour.

Bonne journée :)
28/11/2016, 20h00
Jeev77

VBA

Bonsoir Patricktoulon,

J'ai essayé ton code en le mettant après l'action du clique mais cela ne marche pas car la macro s'arrete et ne va pas plus loin tant que je n'aurais valider manuellement le message de confirmation :(
28/11/2016, 21h55
patricktoulon

re

re
et oui suis-je bête
en effet
il va te falloir lancer script shell avant le clik et mettre a l'intérieur un sleep et le sendkey
j'ai pas le code je ne peut t'en dire plus
peut être aussi dans un vbs dynamique et donc externe a l'App Excel

vba

Bonjour Patricktoulon,

Dois je procéder comme ceci stp :
Code:

1 2 3 4 5 6 Application.Wait (Now + TimeValue("0:00:01")) With CreateObject("WScript.Shell"): .SendKeys "{enter}": End With Sleep 2000 'Clique sur le bouton "Save" IEDoc.all("SAVE_BTN").click
Je n'ai pas très bien compris, je suis désolé je ne suis pas très à l'aise encore avec le VBA :?

29/11/2016, 15h23
patricktoulon

re

non le sleep doit être dans le with mais pr le wscript.
il serait plus facile de gèrer cela en vbs externe
mais il me faut le code pour tester

vba

La macro agit sur un outil en interne donc je ne sais pas cela va fonctionner pour toi mais je te le passe tout de même le voici :

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
'Déclaration des variables
    Dim IE As New InternetExplorerMedium
    Dim IEDoc As HTMLDocument
    Dim Element As HTMLInputElement
 
    Dim ec As MSHTML.IHTMLElementCollection
    Dim e As MSHTML.IHTMLElement
    Dim HtmlElementStandard As HTMLGenericElement
    Dim htmlTabElement() As IHTMLElement
 
    Dim core
    Dim browser
 
    Set core = CreateObject("OpenTwebst.Core")
    Set browser = core.StartBrowser("http://sesam.sso.infra.ftgroup/LoginDispatch")
 
    'Ouverture de la page "mytools" pour se logguer
    IE.navigate "http://mytools.sso.infra.ftgroup/binbeemytools/Home/Portfolio"
 
    'fermeture de la fenêtre "mytools"
    IE.Quit
 
For i = 7 To 8
 
    Call browser.FindElement("a", "uiname=SIO").Click
    Call browser.FindElement("input text", "id=ORDER_REFERENCE").InputText(Range("A" & i).Value)
    Call browser.FindElement("input button", "id=SEARCH, index=1").Click
    Call browser.FindElement("a", "uiname=Create Alert").Click
    Call browser.FindElement("select", "id=ALERT_TYPE").Select(Sheets("RTDD").Range("G" & i).Value)
 
    Call browser.FindElement("select", "id=SUBJECT").Select(Sheets("RTDD").Range("I" & i).Value)
 
    Call browser.FindElement("select", "id=CONFIDENCE_LEVEL").Select(Sheets("RTDD").Range("K" & i).Value)
 
 
    Call browser.FindElement("input text", "name=PROPOSED_RTDD").InputText("17-Jan-2017")
 
 
    Call browser.FindElement("textarea", "name=ORIGINATOR_COMMENTS").InputText(Range("J" & i).Value)
 
    '----- bouton "save and send alert" -------
    Call browser.FindElement("input button", "id=SEND_ALERT_BTN, index=1").Click
 
    '-----------Apres cela le message de confirmation "OK" ou "ANNULER" apparait-----------
 
Next

07/12/2016, 18h02
Jeev77

VBA

Bonjour,

Quelqu'un aurait il une solution svp ? Cela m'aiderai énormément :oops:

Merci
07/12/2016, 18h21
Marc-L

Bonjour, bonjour !

Il faut déclencher le SendKeys pas trop tôt question de synchronisation !

Vu que l'on ne peut accéder au site, voir les solutions dans les discussions de ce forum
et de celui Contribuez entre autres … (rechercher ("WScript.Shell").SendKeys, UI Automation, …)

Et souvent le mieux est de ne pas piloter un navigateur mais de juste reproduire ses requêtes.

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …
07/12/2016, 19h59
patricktoulon

re
de toute façon avec InternetExplorerMedium et les protocoles récents dans les pages web je te souhaite beaucoup de courage
Code:

1 2 dim IE as object set IE=createobject("internetexplorer.application")
si tant est que ton service informatique de ta boite ne t'ai pas tronquer l'utilisation de IE

a ce moment la perso je fou l'idée a la poubelle j'ai assez de cheveux blancs
08/12/2016, 12h14
Jeev77

Bonjour Patricktoulon et Marc-L,

Merci d'avoir pris le temps de me repondre.

Malheureusement je suis toujours bloqué :(

Des lors que le message de confirmation apparait sur IE la macro s'arrête. Concernant le vbs externe je n'ai aucune base dessus du coup je ne sais pas trop comment faire :/

Désolé de poser beaucoup de question je debute tout juste :oops:
08/12/2016, 12h32
Marc-L

Il te reste alors à voir les exemples dans les discussions des forums,
à lire la documentation de UI Automation sur MSDN
ou comme le VBA n'est pas le plus efficace des outils pour ce genre de besoin,
en effectuant une recherche sérieuse sur le Net tu en trouveras d'autres …