Comment s'authentifier sur un site web via VBA ? et puis ateindre une rubrique présisée puis extraire Xls [Résolu]

[lakhdar16]

Bonjour,

j'ai poster dans le forum Vba Access une discussion concernant la connexion au page Web via code vba en entrant un mot de passe et nom utilisateur et atteindre une rubrique précisée ou bouton qui charge une autre form (action="xls_pdv_agree.php") dont un bouton qui me permet d'extraire des données précises "Exporter vers Excel".

<table border="0" align="center" cellpadding="0" cellspacing="0">
<form name="form1" method="post" action="xls_pdv_agree.php" target="_blank">
<tr>
<td>
<input name="wilaya_r" type="hidden" value="">
<input name="commune_r" type="hidden" value="">
<input name="num_offre_r" type="hidden" value="">
<input name="num_agrement_r" type="hidden" value="">
<input name="pdv_agree_r" type="hidden" value="">
<input type="image" src="image/excel.png" name="exporter" title="Exporter vers Excel">
</td>
<td>
<input style="width : 150px;" type="submit" name="exporter" value="Exporter tout vers excel">

dans le tutoriel de Cafeine http://excel.developpez.com/faq/?pag...thentifSiteWeb j'ai trouvé la solution pour me connecter en entrant le mot de passe et nom utilisateur et ça marche nickel
mais je sais pas comment atteindre la rubrique "xls_pdv_agree.php" et en suit le bouton "exporter" DANS LA MEME PAGE WEB.

svp puis-je avoir de l'aide? .

autrement j'ai trouver un code presque identique mais sans ajouter la référence Microsoft Internet Controls dans le liens suivant: http://grenier.self-access.com/?post...-depuis-Access. ce code je l'ai utiliser dans la requête précédente mais sans réponse de votre part.
http://www.developpez.net/forums/d11...xtraction-xls/

merci d'avance pour l'aide que vous pouvez m'apporter.

dans l'attente de votre réponse.

cordialement.

[lakhdar16]

Bonjour,

svp quelqu'un peu' m'aider? j'ai essayé de faire ca mais je recois l'erreur 91 : variable object ou variable de bloc with non définie.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub connexion()
 
    Dim ie As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.navigate ("http://xxxxxxxxxxxxx/adv/")
 
     ' attente de fin de chargement
    Do Until ie.readyState = 4
        DoEvents
    Loop
 
    Set IEdoc = ie.Document
 
    'login
     Set DOCelement = IEdoc.getElementsByName("user").Item
     DOCelement.Value = "xxxxxxxxxxxxx"
 
    'password
     Set DOCelement = IEdoc.getElementsByName("passe").Item
     DOCelement.Value = "xxxxxxxxxxxxx"
     DOCelement.Select
 
    'connexion
     Set DOCelement = IEdoc.forms(0)
     DOCelement.submit
 
     Do While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE
        DoEvents
     Loop
 
 
    IEdoc.getElementsByName("pdv_agree_adv").Item.Click
 
 
 
End Sub

quelqu'un peut m'aider là???

merci

[lakhdar16]

Bonsoir'

j'ai réussi à dépasser la deuxième étape :

1 - s'authentifier.
2 - atteindre une page précise

la troisième étape me pose un problème c'est comment atteindre le bouton "Exporter tout vers Excel". ci-dessous le code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub connexion()
 
    Dim IE As InternetExplorer
    Dim IEdoc As Object
    Dim DOCelement As Object
 
    Set IE = New InternetExplorer
    IE.Visible = True
    IE.navigate ("http://xxxxxxxxxxxxxxx/adv/")
 
     ' attente de fin de chargement
    Do Until IE.readyState = 4
        DoEvents
    Loop
 
    Set IEdoc = IE.Document
 
    'login
     Set DOCelement = IEdoc.getElementsByName("user").Item
     DOCelement.Value = "xxxxxxxxxxxxxx"
 
    'password
     Set DOCelement = IEdoc.getElementsByName("passe").Item
     DOCelement.Value = "xxxxxxxxxxxxxxx"
     DOCelement.Select
 
    'connexion
     Set DOCelement = IEdoc.forms(0)
     DOCelement.submit
 
     Do Until IE.readyState = 3
        DoEvents
    Loop
 
    IE.navigate "http://xxxxxxxxxxxxxxx/adv/pdv_agree_adv.php"
 
     Do Until IE.readyState = 4
        DoEvents
    Loop
 
 
    IE.Document.all("Exporter tout vers excel").Click
 
     'IE.navigate "http://xxxxxxxxxxxxxxx/adv/xls_pdv_agree.php"
     'IE.Visible = True
 
 
End Sub

j'ai essayé de mettre ça à la fin mais je reçois la meme erreur.

Code :

IE.Document.all("Exporter tout vers excel").Click

si quelqu'un à une idée je serais ravie de la tester.

please help .

[lakhdar16]

après quelque recherche et essais j'ai réussi à le faire.

ci-dessous le code à inséré pour atteindre un bouton dans une page web sécurisée.

il fallait ajouter ça à la fin

Code :

IE.Document.forms(1).submit

le bouton été de genre submit.

pour que d'autre peuvent l'utilisé.

merci