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