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)