VBA requete web - problème: identifiant et mot de passe
Bonjour à tous,
cela fait maintenant quelques temps que ce forum m'est d'une grande aide et je vous remercie. Malheureusement, pour la première fois, je ne trouve pas de solution satisfaisante à mon problème.
Comme mon titre l'indique, je veux lancer une requête sur une page web et extraire les données d'une table à partir de mon code. Le problème c'est que lorsqu'on lance la requête pour la première fois, le site en question demande de s'identifier (id et login).
J'ai déjà essayé dans une première partie de mon code de m'identifier via internet explorer puis de lancer la procédure, mais sans succès (en ayant définit IE comme navigateur par défaut ça ne change rien):
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
|
sub nav
IE.navigate "site.fr/logout"
WaitIE IE
IE.navigate "site.fr"
IE.Visible = True
WaitIE IE
Set IEDoc = IE.document
Set InputMONID= IEDoc.all("Username")
Set InputMONmdp = IEDoc.all("Password")
InputMONID.Value = "MON_ID"
InputMONmdp .Value = "MON_MDP"
IE.document.all("Connexion").Click
'Puis je lance la requete
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://monsite.fr", Destination:=Range("$A$2") _
)
.Name = "7"
'etc
end sub |
Après des heures de recherches plus qu'infructueuses, j'ai peut être trouvé UNE solution sur cette page mais je ne la comprends pas. J'espère que l'un de vous auras le courage d'y jeter un oeil: http://frederic.sigonneau.free.fr/code/Excel/RequeteWeb
Je sais que je peux récupérer le tableau en naviguant dans IE mais j'aurais vraiment préféré utiliser les requêtes.
Merci de m'avoir lu, dans l'attente de quelques réponses miraculeuses :)
nb: en espérant n'avoir enfreint aucune rêgle du forum
