Discussion :

[nicos148]

Bonjour,
Le problème est de simuler le choix d’une case sur une page web avec visual bassic.
L’exercice vient du site http://qwazerty.developpez.com/tutor...-et-vba-excel/
Section IV-L-1 intitulé : Trajet direct.



Code source de la page web,



Programme vba

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
Sub caseacocher()
 
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim CaseDirect As HTMLInputElement
 
'Chargement d'une page Web Google
IE.navigate "http://www.voyages-sncf.com/billet-train"
 
'Affichage de la fenêtre IE
IE.Visible = True
 
'On attend le chargement complet de la page
WaitIE IE
 
'On pointe le membre Document
Set IEDoc = IE.document
 
'On pointe la case à cocher
Set CaseDirect = IEDoc.all("DIRECT_TRAVEL_CHECK")
 
'On simule un clic sur la case à cocher
    CaseDirect.Click
 
   'On attend la fin de la recherche
   WaitIE IE
 
   'On libère les variables
   Set IE = Nothing
   Set IEDoc = Nothing
End Sub
 
 
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

Le but, on va sur le site de la sncf, on ouvre la page web, et on simule la case à cocher de « trajet direct ». Cet exercice fonctionne très bien, mais quand je le transpose à ce que je veux faire (vir ci-dessous) ça ne fonctionne plus d’où mon étonnement ! Le code erreur est

“run-time error ‘91’ : Object variable or with block not set.”

Le programme consiste à choisir cac40 (cocher la case cac40)



Programme vba

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
Sub RechercheVBAExcel()
 
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim CaseDirect As HTMLInputElement
 
   'Chargement d'une page Web Google
   IE.navigate "http://www.abcbourse.com/download/historiques.aspx"
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
   'On attend le chargement complet de la page
   WaitIE IE
 
   'On pointe le membre Document
   Set IEDoc = IE.document
 
    'On pointe la case à cocher
    Set CaseDirect = IEDoc.all("ct100_BodyABC_xcac40p")
 
   'On simule un clic sur la case à cocher
   CaseDirect.Click
 
   'On attend la fin de la recherche
   WaitIE IE
 
   'On libère les variables
   Set IE = Nothing
   Set IEDoc = Nothing
End Sub
 
 
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

c'est le même programme, alors pourquoi cette erreur
“run-time error ‘91’ : Object variable or with block not set.”
Merci de votre aide

[Marc-L]

Bonjour !




Exemples pour abcbourse dans cette discussion et dans cette contribution !

Un code ne peut pas directement fonctionner d'un site à un autre, il y a toujours de l'adaptation à effectuer surtout en pilotant IE
alors qu'une requête directe est plus efficace ! (Voir la première page de la contribution et plus haut dans la discussion …)

Maintenant sans savoir quelle ligne de code déclenche l'erreur, difficile de répondre !

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …

[nicos148]

Bonjour Marc-L,

Je te remercie d'avoir pris le temps pour me répondre.

je vais regarder les liens que tu m'a mis (et les comprendre)

pour mon cas j'ai mis un point arrêt à "Set IE = Nothing" pour voir ce qui se passe.

le problème se situe au niveau de CaseDirect.Click (en jaune sur VBA)

je pense qu'il n'y a rien dans CaseDirect (Nothing), ou que l’accès

CaseDirect = IEDoc.all("ct100_BodyABC_xcac40p") n'est pas exprimé correctement.

j'ai vérifié plusieurs fois, l'accès me semble correcte.

Merci encore.

[patricktoulon]

Bonjour

déjà le ready state complete tu oublie avec ABC bourse il vient jamais (merci les kooki dynamique)
il nous faut donc comme tu l'a (je l'espère) vu dans le lien de la discutions que marc t a donnée utiliser le ready state 3 (interactive)

en suite comme on peut pas attendre le ready state complet on est obligé de gérer l'attente autrement

peut être comme marc le fait
un do loop sur la véracité de la présence d'un object
en l'occurrence ici ton checkbox

et même avec ca avec se site on est sur de rien
la preuve j'ai fait le test l'object est toujours nothing après pres de 20 seconde qui suivent le ready 3

bien que l'exercice est intéressant je te suggère d'aller chercher ton Cac 40 ailleurs( sur un autre site ) y en a foison

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
 
Sub RechercheVBAExcel()
'Déclaration des variables
    Dim IE As Object
    Dim IEDoc As Object
    Dim CaseDirect As Object
    Set IE = CreateObject("internetexplorer.application")
    'Affichage de la fenêtre IE
    IE.Visible = True
    'Chargement d'une page Web Google
    IE.navigate "http://www.abcbourse.com/download/historiques.aspx"
    'On attend le chargement complet de la page
    Do: DoEvents: Loop Until IE.readyState = 3
 
    'On pointe le membre Document
    Set IEDoc = IE.Document
    t = Timer
    While Not IsObject(IEDoc.getelementbyid("ct100_BodyABC_xcac40p"))
        If Timer - t > 20 Then GoTo fin
    Wend
    'On pointe la case à cocher
    'By name "ctl00$BodyABC$xcac40p"
    Set CaseDirect = IEDoc.getelementbyid("ct100_BodyABC_xcac40p")
MsgBox IsObject(CaseDirect) ' ce message n'apparait jamais donc on a sauter  jusqu'a fin
    'On simule un clic sur la case à cocher
    CaseDirect.Click
    'On attend la fin de la recherche
 
    'On libère les variables
    Set IE = Nothing
    Set IEDoc = Nothing
Exit Sub
fin:
 MsgBox "désolé"
   'IE.Quit
End Sub

[Marc-L]

Effectivement ton code ne peut fonctionner Patrick ‼
Et tiens je ne suis plus le seul à être embêté avec ce site …


Nicos148, Patrick,
je ne comprends pas : vous avez déjà la solution sur un plateau
rien qu'en reprenant ma procédure Demo7 ou encore DemoIE dans mes liens
que ce soit en déclaration anticipée (early binding comme Nicos148)
ou en déclaration tardive (late binding comme Patrick),
les deux fonctionnant sans souci de mon côté avec IE9 comme avec IE11 !

Au passage Nicos148, il n'y a pas de mise à jour de cette page pour un click sur cette case à cocher …

[patricktoulon]

re
et bien c'est pas nouveau que abcbourse n'a pas de ready 4
et de ce fait ta méthode isobject entre dans la danse forcement il faut bien une gestion d'attente cohérente

en tout cas j'ai tout testé pas de checkbox coché
la seul chose que je n'ai pas testé c'est des sleep qui tue
mais sil faut un sleep long comme une autoroute pour moi c'est rédhibitoire
je n'ai pas fait l'inspection réseau pour voir si on pouvait avec une requête

[nicos148]

Bonjour,

je suis en train de regarder les liens que tu nous a fourni.
je suis pas un pro, faut le temps que çà rentre et le temps de faire tous les essais.
de toute façon je vous tiens au courant de la suite des événements, car quelque soucis
lors des essais des programmes.

merci encore et à bientôt.

[Marc-L]

Patrick,
la page Web de nicos148 est exactement la même que celle des liens auxquels pourtant tu as participé !

Donc aucun souci pour cocher la case CAC40 comme on coche la case ISIN dans ces liens
et tu n'as simplement pas tout testé : il suffit juste de réutiliser 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
Sub Demo00B()
    Const BTN = "ctl00_BodyABC_Button1", SC = 15
      Dim IE As Object, T!
           T = Timer
          On Error GoTo Fin
      Set IE = CreateObject("InternetExplorer.Application")
          IE.Visible = True
          IE.Navigate "http://www.abcbourse.com/download/historiques.aspx"
    While IE.ReadyState < 3
        If Timer - T > SC Then Error 2001
    Wend
    While Not IsObject(IE.Document.all(BTN))
        If Timer - T > SC Then Error 2002
    Wend
    With IE.Document.all
        .ctl00_BodyABC_xcac40p.Click
 
'       … WHAT ELSE ?!!
 
'        .ctl00_BodyABC_dlFormat.Value = "x"
'        .Item(BTN).Click
    End With
Fin:
'     IE.Visible = True
'     If Err.Number Then T = 0: Beep: Set IE = Nothing: Debug.Print "Erreur #"; Err.Number
     If Err.Number Then Beep: Debug.Print "Erreur #"; Err.Number
     Set IE = Nothing
End Sub

nicos148,
aucune référence à cocher dans la démonstration ci-dessus reprise des liens précédents …

Tu as juste formulé le souhait de cocher une case en omettant le reste des manipulations
nécessaires ni le résultat souhaité au final et le rapport avec Excel !

Car s'il s'agit juste de charger des données dans Excel, encore une fois piloter Internet Explorer
est totalement inutile car il suffit de reproduire la requête utilisée par la page Web
comme par exemple dans le post #65 de David dans la discussion en lien …

En dehors du tutoriel VBA et développement Web, pour une requête voir le B-A-BA :

Utilisation des outils de développement F12

Analyse du trafic réseau de votre page Web

XMLHttpRequest object (voir le code de David et le tutoriel) …

[patricktoulon]

a oui Marc la requete est possible

relevé d'inspecteur

Clé Valeur
Demande POST /download/historiques.aspx HTTP/1.1
Accept text/html, application/xhtml+xml, */*
Referer http://www.abcbourse.com/download/historiques.aspx
Accept-Language fr-FR
User-Agent Mozilla/5.0 (Windows NT 6.1; WOW64; Trident/7.0; rv:11.0) like Gecko
Content-Type application/x-www-form-urlencoded
Accept-Encoding gzip, deflate
Host www.abcbourse.com
Content-Length 3696
Connection Keep-Alive
Cache-Control no-cache
Cookie _ga=GA1.2.1009743604.1473770448; __gads=ID=912b7338e412df10:T=1473924132:S=ALNI_Mb-gpa4Gtki3zDSxtLrEf23LJrIZw; _gat=1; axd=1000311030922150000; ASP.

NET_SessionId=3spqswsvzjgnpadc4mge2rpi

corps de la reponse

BE0003470755;23/09/16;101.20;102.15;101.10;102.15;179862

CH0012214059;23/09/16;48.945;48.945;48.295;48.455;255847

FI0009000681;23/09/16;5.092;5.095;5.012;5.035;1279131

FR0000045072;23/09/16;8.912;8.939;8.812;8.877;3701205

FR0000073272;23/09/16;65.42;65.55;65.02;65.04;758428

FR0000120073;23/09/16;97.19;97.44;95.87;96.40;1416486

FR0000120172;23/09/16;23.40;23.51;23.25;23.45;2332051

FR0000120271;23/09/16;42.87;43.00;42.40;42.535;5818834

FR0000120321;23/09/16;169.00;170.00;168.55;169.00;353632

FR0000120404;23/09/16;35.415;36.10;35.415;35.995;948848

FR0000120503;23/09/16;29.49;29.645;29.205;29.62;677459

FR0000120578;23/09/16;68.55;68.91;68.12;68.45;2351803

FR0000120628;23/09/16;19.625;19.77;19.505;19.77;5749944

FR0000120644;23/09/16;66.37;66.74;65.89;66.08;1434245

FR0000120693;23/09/16;106.10;106.50;105.20;106.35;299315

FR0000121014;23/09/16;153.55;153.95;152.60;153.75;534423

FR0000121220;23/09/16;104.60;105.35;104.30;105.35;158675

FR0000121261;23/09/16;97.19;97.78;96.88;97.46;397373

FR0000121485;23/09/16;182.40;183.30;181.35;182.25;193884

FR0000121501;23/09/16;13.71;13.72;13.455;13.525;2785802

FR0000121667;23/09/16;117.95;118.95;117.70;118.40;369058

FR0000121964;23/09/16;41.12;41.36;41.03;41.125;426470

FR0000121972;23/09/16;62.91;63.09;62.62;62.96;1132289

FR0000124141;23/09/16;20.30;20.365;20.165;20.30;4697609

FR0000124711;23/09/16;244.00;244.25;242.15;243.60;280165

FR0000125007;23/09/16;39.16;39.19;38.87;39.07;1347350

FR0000125338;23/09/16;87.60;87.64;87.02;87.64;482943

FR0000125486;23/09/16;68.73;68.78;68.26;68.69;1021196

FR0000127771;23/09/16;17.94;18.005;17.885;17.98;2879206

FR0000130577;23/09/16;68.00;68.10;67.56;68.05;407290

FR0000130809;23/09/16;32.165;32.27;31.625;31.89;4203663

FR0000131104;23/09/16;46.955;47.35;46.585;46.955;3697080

FR0000131708;23/09/16;51.45;51.65;50.76;51.49;624151

FR0000131906;23/09/16;73.35;73.35;72.25;72.38;686746

FR0000133308;23/09/16;13.70;13.775;13.66;13.74;4403472

FR0010208488;23/09/16;13.875;13.90;13.745;13.855;4363561

FR0010307819;23/09/16;54.12;54.16;53.79;54.05;351933

FR0013176526;23/09/16;50.23;50.36;49.88;49.945;462421

LU0323134006;23/09/16;5.336;5.499;5.263;5.498;21772703

NL0000235190;23/09/16;53.60;54.08;53.55;53.81;1439977

　

un split par vbrlf et colonne A puis textocolumn point barre

en plus en mode "POST" c'est royal

apres pour l'exemple qui nous a pris beaucoup de temps meme si l'exercice avait été concluant il faut pas pousser mémé dans les orties
l'argument du send et carrément interminable
non sincèrement je garde IE dans ce cadre la

ctl00_BodyABC_ToolkitScriptManager1_HiddenField=&__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUIMzcyNDY5MjIPZBYCZg9kFgICBA9kFgQCCw9kFgJmDxYCHgdWaXNpYmxlZ2QCDQ9kFgICAQ8PFgIeBFRleHQFKUJhc2N1bGVyIHN1ciBsYSB2ZXJzaW9uIGNsYXNzaXF1ZSBkdSBzaXRlZGQYAQUeX19Db250cm9sc1JlcXVpcmVQb3N0QmFja0tleV9fFisFFmN0bDAwJEJvZHlBQkMkZXVyb2xpc3QFHGN0bDAwJEJvZHlBQkMkYWN0aW9uc2luZGljZXMFGmN0bDAwJEJvZHlBQkMkYWN0aW9uc2luZHVzBRVjdGwwMCRCb2R5QUJDJGNvbXBsZXQFG2N0bDAwJEJvZHlBQkMkY29tcGxldG5vd2FycgUSY3RsMDAkQm9keUFCQyRzcmRwBRhjdGwwMCRCb2R5QUJDJGluZGljZXNta3AFGWN0bDAwJEJvZHlBQkMkaW5kaWNlc3NlY3AFGGN0bDAwJEJvZHlBQkMkZXVyb2xpc3RhcAUYY3RsMDAkQm9keUFCQyRldXJvbGlzdGJwBRhjdGwwMCRCb2R5QUJDJGV1cm9saXN0Y3AFGWN0bDAwJEJvZHlBQkMkZXVyb2xpc3R6ZXAFFGN0bDAwJEJvZHlBQkMkYWx0ZXJwBRFjdGwwMCRCb2R5QUJDJG1scAUUY3RsMDAkQm9keUFCQyR0cmFja3AFEWN0bDAwJEJvZHlBQkMkYnNwBRNjdGwwMCRCb2R5QUJDJG9ibDJwBRJjdGwwMCRCb2R5QUJDJG9ibHAFFmN0bDAwJEJvZHlBQkMkd2FycmFudHMFF2N0bDAwJEJvZHlBQkMkb3Bjdm0zNjBwBRVjdGwwMCRCb2R5QUJDJHhjYWM0MHAFFmN0bDAwJEJvZHlBQkMkeHNiZjEyMHAFFWN0bDAwJEJvZHlBQkMkeGNhY2F0cAUWY3RsMDAkQm9keUFCQyR4Y2FjbjIwcAUYY3RsMDAkQm9keUFCQyR4Y2Fjc21hbGxwBRVjdGwwMCRCb2R5QUJDJHhjYWM2MHAFFmN0bDAwJEJvZHlBQkMkeGNhY2w2MHAFFWN0bDAwJEJvZHlBQkMkeGNhY21zcAUVY3RsMDAkQm9keUFCQyR4YmVsMjBnBRVjdGwwMCRCb2R5QUJDJHhhZXgyNW4FEWN0bDAwJEJvZHlBQkMkZGp1BRJjdGwwMCRCb2R5QUJDJG5hc3UFFGN0bDAwJEJvZHlBQkMkc3A1MDB1BRZjdGwwMCRCb2R5QUJDJGdlcm1hbnlmBRJjdGwwMCRCb2R5QUJDJHVzYXUFEWN0bDAwJEJvZHlBQkMkdWtlBRJjdGwwMCRCb2R5QUJDJGJlbGcFE2N0bDAwJEJvZHlBQkMkaG9sbG4FFWN0bDAwJEJvZHlBQkMkaXRhbGlhaQUVY3RsMDAkQm9keUFCQyRsaXNib2FsBRJjdGwwMCRCb2R5QUJDJGRldnAFFWN0bDAwJEJvZHlBQkMkb25lU2ljbwUTY3RsMDAkQm9keUFCQyRjYlllc0QdAEFMOzMYfTefgBBJ2ZEUaWDk&__VIEWSTATEGENERATOR=0EFFD687&__EVENTVALIDATION=%2FwEdADzeU%2B461dgjKeOy4euPx9%2BA2AGy%2BFRpYOz7XDkkbfjubp9UXI7RwI%2BukRHnd%2BAlDZ4TidDdlkpo2nU8toG3jbaiO3bQR4gYjmmwS4y4ybsn33KxLZyHhf4Mje%2Fl2WxsZO8oboymX8K%2FawfpAYdrARkboi8y0D1aKa8YRDbuZk9hCVB%2BkE3gZYtipUze3jzNDNCMEBEMWFEOc%2BNHEbSbw8FvNFYdXyAUuxt6%2B0jbZc5Nwm1GD0QooTm97LUU9GUKpnIOC%2Bu%2F2W%2BuWyGuXN02UbCiJJxmjp5mkW8DeM%2FocI5W8WmvXMDKwmYrvBKC7pnWUAtWcpMoVsSmOCOdnlXIcoXu%2F%2Baf%2FiQDbqNtvcnRfkH2oiyB7RsbMXUq2lzc8dt95PPQBi3yzHLNr8sNaxE4jXoUvkYLOMZtGPFq8wOue%2BL3aL6QIV9VrUyAORU3dPeNj8oSuxs4fVNVenj9bBwNMtd92XoZ0fgAFx0VYRpgUubx6aGZq7pW4kAu5m8fb5ci0zgmhY9T9Z7NZO7Gj9tArTr%2B8hOKHkjEHKgE6Cl%2BPlWP6CsBz2dyy933VqldEv71pnrWB5fl7SDH6%2BLCeR6Cj3hBml1ipBDbFFYwrN937W%2FpOlYevFxpTuQO4S87Jds5qM1RyrZ1RzKjY7kpf1Uy1EsRjq0lzGo3UDCLR8Qzg%2BICOaGQP60Muea7Jt2Mvrk5dP50a3x3ndE82QKf%2FstnRZsbrDvGsRZUo73a6kgCRfaABEjb6VehtduCyrNNbiEE%2Fszy7cIA2%2BGZ1fAM4FpZyQ0JQYbnRAQISh2SLDGw6kCjm8bengUhKB5UkNIenkLIxtz0C366YLNhLa4%2Bher91UkHVTURjwLX%2FQYZkMXRVY7ahhNyymD9AkgSjvLPgJHTftqgsr%2FG5iTF4NQnaPIQKG4JEjJG69LLH4QzaePL67dWk8ZNAzb5On4rHEP9HywghYG2IhWARgjMSGRv0qVhmbJ7tKAZQEwZOXR5bkA%2FrAjwH8gVCsdxCsXo10tHBh3HveAa6n1yqBv3gW0GFevOJ3B1BYZY9YGcYkXPO5BP5Glxc6DgHBR%2FbLiuAOggKUrocUhDbgaIk74hDc4yWeNpVf1illXfalS4IP%2F8sbnyzuXvAG8jxH5CKE3kDDjxbgu9dzc8bjDscnPAvX10CapGgKKLX%2FbunaysEeSBMg0k95D%2Fr74nIW2lQs5QGOEcyRrWx3np81%2BkE7Z2rpWliSuX9l6PQze7UQLbQ7Ri0FTVMSOPzduwVGJIAMkEhBJFgSlik%2FmRQFFRqx4FrCPfzOVdZTJAQMVyjQ%3D%3D
&ctl00%24txtAutoComplete=&ctl00%24BodyABC%24strDateDeb=23%2F09%2F2015&ctl00%24BodyABC%24strDateFin=23%2F09%2F2016&ctl00%24BodyABC%24oneSico=on&ctl00%24BodyABC%24txtOneSico=FR0000120222&ctl00%24BodyABC%24Button1=T%C3%A9l%C3%A9charger&ctl00%24BodyABC%24dlFormat=x&ctl00%24BodyABC%24listFormat=isin

il me semble que david et moi avions fait deux versions sur ce point
mais cela avait été du sport a mettre cela dans un module tout en ayant les date et isin dynamique
aucun intérêt vraiment

[Marc-L]

La requête a toujours un intérêt supérieur au pilotage d'un navigateur : l'efficacité & la fiabilité ‼