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):
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
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 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
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
Partager