Discussion :

[supercoco]

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 :

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
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.