Piloter une page SQL server reporting

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
Je souhaite automatise une tache répétitive via une macro en VBA. Mon souci est que je n’arrive pas à renseigner le champ qu’il faut sur la page web. C’est une page SSRS. Si quelqu’un peut me donner des pistes je suis preneur.
Le code de ma macro :

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
 Option Explicit
 Public Sub Navigateur()
 Dim oNav As InternetExplorerMedium
 Dim oDoc As HTMLDocument
 Dim objCollection As Object
 
 Set oNav = New InternetExplorerMedium
 oNav.Visible = True
 oNav.navigate "http://xxxxxxxxxxxxxxxx"
 ' Attente avec timeout de 10 s
 If WaitIE(oNav, 10) Then
 ' 10 s écoulées et page non chargée
 MsgBox "Time out!"
 Else
 ' Page chargée, on continue
 Set oDoc = oNav.document
 Set objCollection = oDoc.getElementsById("ReportViewerControl_ctl04_ctl03_txtValue")
 objCollection.Value = "400056958"
 End If
 End Sub
 
 Public Function WaitIE(oNav As InternetExplorerMedium, Optional pTimeOut As Long = 0) As Boolean
 Dim lTimer As Double
 lTimer = Timer
 Do
 DoEvents
 If oNav.readyState = READYSTATE_COMPLETE And Not oNav.Busy Then Exit Do
 If pTimeOut > 0 And Timer - lTimer > pTimeOut Then
 WaitIE = True
 Exit Do
 End If
 Loop
 End Function

en pièces jointe le code Html que j'essai d'atteindre.
Merci a tous ceux qui pourrons m'aider.

18/04/2019, 10h54
zenpbb

Bonjour,
Aurais-tu, par hasard, un message d'erreur sur ta ligne

Code:

Set objCollection = oDoc.getElementsById("ReportViewerControl_ctl04_ctl03_txtValue")

?
Cela ne serait pas étonnant, parce que tu as mis à tort un s dans : getElementsById.
23/04/2019, 10h02
lami7

Bonjour,
J'ais déjà essayer sans le s et cela ne change pas le problème.
23/04/2019, 10h30
lami7
Bonjour,
lorsque j'enlève le s le programme s'arrête

Code:

objCollection.Value = "400058951"

avec comme message :

Citation:

Variable objet ou variable de bloc With non définie

j'ai essayé d'atteindre le champs avec
Code:

1 2 Set objCollection = oDoc.getElementsByName("ReportViewerControl$ctl04$ctl03$txtValue") objCollection.Value = "400058951"
du coup le programme s’arrête toujours sur objCollection.Value avec comme message d'erreur :

Citation:

Propriété ou méthode non gérée par cet objet.