Discussion :

[pegase33]

Bonjour,
En utilisant vba, je pilote une page web de contacts sur un webmail.
J'aimerais arriver à cocher les cases de cette page (ce sont des contacts avec un checkbox) et par une boucle arriver à cocher tous les contacts !!!
Je me suis référé à ce lien pour effectuer ma macro :
http://qwazerty.developpez.com/tutor...a-excel/#LIV-L :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim IEDoc As HTMLDocument
Dim CaseDirect As HTMLInputElement
Dim Generic As HTMLGenericElement
Dim iCollection As IHTMLElementCollection
  '' test case à cocher  
 Set IEDoc = IE.document
'On pointe la case à cocher
   Set CaseDirect = IEDoc.all("xxx@xxx.fr")
   'On simule un clic sur la case à cocher 
CaseDirect.setAttribute "checked", True

Mais j'ai ce messsage d'erreur :

Erreur d'exécution '91':
Variable objet ou variable de bloc With non définie

J'ai le message d'erreur sur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CaseDirect.setAttribute "checked", True

Même message d'erreur si j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CaseDirect.Click

Merci pour votre aide! (voir fichier joint en txt avec notepad++, ligne 33)

[patricktoulon]

bonsoir

il manque l'instanciation de l'object ie
la fonction toute faite de qwazerty "WaitIE"'pour attendre que la page soit chargée (readystate complete)

reli un peu le tutoriel de qwazerty que je salu au pasage


au plaisir

[pegase33]

Non l'instanciation de l'IE est bien réalisée...la page web est bien chargée...et j'ai testé la macro en pas à pas détaillé et en point d'arrêt!
Il semblerait que cela soit un problème de frame.
Avec une boucle sur les différents frames de la page web :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 Set frm = IE.document.frames 
For i = 0 To frm.Length - 1
    'MsgBox frm(i).Location
   Range("A" & (i + 1)).Value = frm(i).Location
Next i

Sur un frame de la boucle...j'ai "accès refusé"...
Merci pour votre aide

[patricktoulon]

bonsoir
j'ai regarder ton fichier text que j'ai remis en html et passer a F12

capture d'ecran ca donne ca :

en fait tes checkbox ne sont pas identifié par le nom du destinataire

il semblerais que ces elements portent tous le memenom(meme class)

donc essaie de faire un getclassename tu a ca dans le tuto de qwazerty

et liste les elements tu va comprendre

en rouge la classe en bleu les elemnts


au plaisir

[pegase33]

Bon... patricktoulon je vous remercie d'avoir regardé le fichier
Ca va déjà bien m'aiguiller!
Je vais suivre le tuto de qwazerty.

Merci pour votre aide!

Pour plus de précisions :
J'ai coché un contact.
J'ai class="CL_Row CursorPointer CL_Sel_Prsn t_hdbg" qui apparait lorsque je coche 1 contact

Je joins 2 fichiers (Webmail_Contact_NonCoché.txt et Webmail_Contact_Coché.txt compressé en rar) en txt à lire avec notepad++

[pegase33]

Bonjour,

En fait j'ai réussi à cocher les cases avec ce type de boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'pause dans 
Sheets("Feuil1").Select
Dim helem As IHTMLElementCollection
Dim maPageHtml As IHTMLDocument
Set maPageHtml = ie.document
Set helem = maPageHtml.getElementsByTagName("input")
For j = 0 To helem.Length - 1
Range("A" & (j + 1)).Value = helem(j).getAttribute("title") 
Call Sleep(10)
If Range("A" & (j + 1)).Value Like "*@*" Then helem(j).Click
 Call Sleep(25)
Next j

Je ne suis pas arrivé à utiliser l'objet Classname (CL_Checkbox) avec la Function getElementsByClassName qui permet de retrouver un élément de la page grâce à sa classe... proposé dans le tuto de qwazerty!!!
.
J'ai un message d'erreur "variable objet ou variable bloc non définie..." au niveau de la Function getElementsByClassName :
Set SourceElem = IEParentElement.Children...
J'ai réalisé une première macro qui permet de cocher la plupart des contacts sur Hotmails...j'ai encore qques soucis pour que cela soit complet
Si ça intéresse certaines personnes..et lui apporter des modifs...vous pouvez me contacter en privé!
Cordialement,

Fred

[Qwazerty]

Salut

Encore un soucis avec des Frames en effet...

Voila une solution

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
Sub Hotmail()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim Doc As HTMLDocument
Dim UrlPageContact As String
Dim ElemCheck As HTMLElementCollection
Dim ElemCheckbox As IHTMLElementCollection
 
 
IE.Visible = True
IE.navigate ("https://login.live.com")
 
WaitIE IE
 
'Arrête le code pour te permettre de te logger (je ne reprend pas le code de log)
Stop 'une fois loggé, il suffit de revenir ici et de relancer l'exécution de la macro (F5)
 
IE.navigate "https://outlook.com/"
 
Stop 'aller sur contact
 
WaitIE IE
Set Doc = IE.document
 
'Ensuite ca se complique...
'Les données sont contenu dans une frame, dont le contenu n'est pas accessible
'Voila ce que j'ai trouvé pour contourer le problème
'On charge l'URL de la frame (alors je l'ai trouvé avec l'inspecteur d'objet de chrome, pas vu avec IE)
'Il faut modifier l'url de départ pour en supprimer un bout (/default.aspx?id=64855&owa=1&owasuffix=owa%2f#!)
'On crée la racine
UrlPageContact = "https://snt002.mail.live.com/mail/contacts.mvc?n="
'Et on prend la clé
UrlPageContact = UrlPageContact & Right(Doc.URL, Len(Doc.URL) - InStr(1, Doc.URL, "?n=") - 2)
 
'On charge la page
IE.navigate UrlPageContact
 
WaitIE IE
 
'Un essai
Set ElemCheckbox = Doc.getElementsByClassName("CL_Checkbox_Div")

Je me suis concentré sur le pointage des Checkbox pas sur les moyen d'arriver jusqu’à leur affichage, d'où la présence des Stop qui recquièrent une action manuelle sur la page.

Par contre un problème subsiste, l'affichage des box semble géré dynamiquement, un peu comme des listbox reliées à une base de donnée, seules les lignes visibles sont chargées dans le code de la page...

Il faudra surement jouer avec le contrôle contenant l’ascenseur pour connaitre le nombre total de contact et ainsi bouger l’ascenseur en fonction... rien de bien simple... ce qui m'amène à la question ultime, quel est le but de tout cela? que cherches tu à faire exactement?

++
Qwaz

[pegase33]

D'abord merci bcp Qwazerty pour ton aide précieuse.
J'ai joint la macro (qui s'ouvre en feuil9 avec un compte hotmail de test incluant le pass et le nombre de contacts...le lanceur qui permet d'ouvrir l'userform et on remplit ainsi les champs...)
En fait le but de cette macro est de pouvoir cocher tous les contacts dans le compte Hotmail...car cette fonction existe uniquement si je coche un par un tous les contacts!
Le chargement de la page IE n'est pas complète malgré wait IE. Y'a t-il une solution??
En attendant je fais une pause avec un Call Sleep!
Je travaille sur les différentes feuilles (je regarde l'écriture des données pour voir ainsi si la boucle fonctionne correctement...).
Qwazerty dit :
" l'affichage des box semble géré dynamiquement, un peu comme des listbox reliées à une base de donnée, seules les lignes visibles sont chargées dans le code de la page..."
Effectivement je dois faire une boucle pour lancer de A à Z la navigation des contacts...et ensuite je lance une boucle pour cocher ces contacts!
Je n'arrive pas à cocher tous les contatcs...mais je ne suis pas loin tout de même!!!
Merci pour votre aide et vos idées pour avancer


fred

[Qwazerty]

Salut

Le chargement de la page IE n'est pas complète malgré wait IE

A quelle étape exactement?
Si c'est au moment du chargement de la page contenant la liste des contacts, il serait peut-être intéressant de pointer la iform qui contient les checkbox et de contrôler sa propriété readystate dans une petite boucle While similaire à celle présente dans WaitIE.
++
Qwaz

[pegase33]

Le chargement de la page IE n'est pas complète malgré wait IE

A quelle étape exactement?

A chaque navigation dans IE...Si j'enlève les pauses avec un Call Sleep...très souvent les boucles ne se remplissent pas!!!
Essayez de supprimer les pauses dans la macro ...et vérifiez dès le départ si les signin ou c_signout sont pris en compte.
j'ai bcp d'échec sans les pauses!

Fred