1 pièce(s) jointe(s)
Problème VBA et pages web
Bonjour,
j'essais via une macro excel de me connecter sur un site intranet (BOWEBI), de récupérer les donner d'une requête et de les importer dans une base excel.
voici le début de mon code :
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
|
Dim IE As Object
Dim sLocalFilename As String
Dim Doc As HTMLDocument
Dim i As Integer
Dim IEdoc As Object
Dim DOCelement As Object
Dim frm As Object
Dim RegEx As Object, RegA As Object
Const READYSTATE_INTERACTIVE = 3
Const READYSTATE_COMPLETE = 4
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://************/wijsp/scripts/login/login.jsp"
'Do While IE.ReadyState <> READYSTATE_INTERACTIVE
'DoEvents
'Loop
Application.Wait (Now + TimeValue("00:00:05"))
IE.Document.all("duser").Value = "*******" -->login
IE.Document.all("dpass").Value = "*******" -->pass
IE.Document.all("bok").Click
Do While IE.ReadyState <> READYSTATE_INTERACTIVE
DoEvents
Loop
Application.Wait (Now + TimeValue("00:00:10"))
IE.Navigate "http://**********/wijsp/scripts/documentXML.jsp?ctxLayout_last=browsePXML.jsp&cmdLayout=&cmdLayout_P1=&cmdLayout_P2=&cmdBlock=all&cmd=askView&cmdP1=module2*0*2*wid*&cmdP2=" -------> lien direct vers ma requete
Do While IE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
IE.Document.all("user").Value = "*********" --> login
IE.Document.all("password").Value = "*******" -->pass (il le demande deux fois quoique pas toujours
IE.Document.all("button").Click
Application.Wait (Now + TimeValue("00:00:35")) ---> temps maxi de rafraichissement de la requete |
jusque la ça fonctionne
une fois la requête exécutée, je n'arrive pas à accéder au lien "enregistrer"
(ci-joint image)
je suis dessus depuis deux jour et pense avoir tout essayer, la je bloque complètement.
si quelqu'un peut m'éclairer, merci d'avance.
