Discussion :

[SkyCorp]

Bonsoir à tous,

Je suis encore novice en VBA et je m'en sors difficilement avec tout ce que je lis sur le web. J'espère que vous pourrez m'aider.

Je souhaite récupérer des données sur une page web accessible par login + mot de passe puis par l'outil de recherche du site.

Je sais récupérer les infos si je me suis connecté au préalable. Pour cela j'utilise le code suivant :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Importer()
 
    Sheets.Add
    ActiveSheet.Name = "TMP_IMPORT"
 
    With Sheets("TMP_IMPORT").QueryTables.Add( _
         Connection:="URL;http://www.xxx.com/recherche.php?search=VVH31A3120", _
         Destination:=Sheets("TMP_IMPORT").Range("$A$1"))
        .Name = "recherche.php?search=VVH31A3120_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingAll
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
 
    compteur = 0
 
    For ligne = 1 To 1000
 
        If Left(Sheets("TMP_IMPORT").Cells(ligne, 6), 14) = "Valeur estimée" Then
            compteur = compteur + 1
            Sheets("Fours").Cells(compteur, 1) = Sheets("TMP_IMPORT").Cells(ligne + 1, 6)
 
            If compteur = 1 Then Exit For
        End If
 
    Next
 
    Application.DisplayAlerts = False
    Sheets("TMP_IMPORT").Delete
    Application.DisplayAlerts = True
 
End Sub

Mais si je veux exécuter la macro sans être connecté au préalable, je dois me connecter via une macro.
J'ai tenté ceci (j'ai juste caché le login et le mot de passe) :

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
Sub ConnexionAMonSite()
Const READYSTATE_COMPLETE = 4
Dim IE
Dim elementHtml As Object
Set IE = CreateObject("internetExplorer.Application") 'ouvre internet explorer
IE.Visible = True
With IE
.navigate "http://www.xxx.com/" 'va sur la page du site
Do Until .readyState = READYSTATE_COMPLETE 'on attend jusqu’à ce que la page soit chargée
DoEvents
Loop
End With
Set elementHtml = IE.document.getElementById("compte") 'on sélectionne une case du formulaire
elementHtml.Value = "mon login" 'on donne une valeur à cette case
 
Set elementHtml = IE.document.getElementById("password") 'on sélectionne une case du formulaire
elementHtml.Value = "mon mot de passe" 'on donne une valeur à cette case
 
Set ObjectIE = IE.document.getElementById("submit") 'on sélectionne un bouton
ObjectIE.Click 'on clique sur ce bouton
 
End Sub

J'arrive ici sur une erreur d'exécution '13' Incompatibilité de type
Quel est le problème et comment le corriger ?

Merci d'avance pour votre aide

[patricktoulon]

Bonjour ou bonne nuit comme tu veux

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
26
ub ConnexionAMonSite()
Const READYSTATE_COMPLETE = 4
Dim IE as object
Dim elementHtml
Set IE = CreateObject("internetExplorer.Application") 'ouvre internet explorer
IE.Visible = True
With IE
.navigate "http://www.gpdis.com/" 'va sur la page du site
Do Until .readyState = READYSTATE_COMPLETE 'on attend jusqu’à ce que la page soit chargée
DoEvents
Loop
End With
Set elementHtml = IE.document.getElementById("compte") 'on sélectionne une case du formulaire
elementHtml.Value = "truc" 'on donne une valeur à cette case
 
Set elementHtml = IE.document.getElementById("password") 'on sélectionne une case du formulaire
elementHtml.Value = "machin" 'on donne une valeur à cette case
 
'le bouton pour valider n'a pas de Id mais une classe
et getelementby....... recherche tout les element en fonction de l'argument (id,classname,tagname)donc il faut bien verifier si tu en a pas plusieur au quelcas il faut le preciser avec l'argument suplementaireapres son ici en l'occurence on veut le   er  sce sera donc (0)
'**********************************************************
'soit comme ceci 
Set ObjectIE = IE.document.getElementsbyclassname("btn btn-darkblue mt10")(0) 'on sélectionne un bouton
ObjectIE.Click 'on clique sur ce bouton
 End Sub

soit comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set ObjectIE = IE.document.getElementsbyclassname("btn btn-darkblue mt10") 'on sélectionne un bouton
ObjectIE(0).Click 'on clique sur ce bouton

regarde l'arboresence du code sur la capture d'ecran
bonne fin de nuit

[Invité]

pour ce qui me concerne, je n'utilise pas d'objet vb quand il s'agit de renseigner des valeurs dans une page web, mais j'injecte du JAVASCRIPT dans la page IE.

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
Sub ConnexionAMonSite()
 On Error Resume Next
 'Déclaration des variables
Dim IE As Object ' InternetExplorer
'CHARGEMENT GENERAL
Set IE = CreateObject("InternetExplorer.application")
   'Chargement d'une page Web
   IE.Visible = True
IE.navigate "http://www.gpdis.com/"
WaitIE IE
 IE.Document.parentWindow.execScript "javascript:document.leform.compte.value='Login';"
IE.Document.parentWindow.execScript "javascript:document.leform.TxtPasse.value='TxtPasse';"
IE.Document.parentWindow.execScript "javascript:document.leform.submit();"
End Sub
 
'Procèdure placée dans un module standard pour vérifier le chargement total de la page.
Sub WaitIE(IE)
   'On boucle tant que la page n'est p'AS totalement chargée
   Do Until IE.readyState = 4
      DoEvents
   Loop
End Sub

[patricktoulon]

bonjour durupt

pas mal mais c'est pas toujours possible tu te doute bien pourquoi

a quoi sert le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

on error resum next

en haut de sub ,ne serait ce pas pour cette même raison

[Invité]

bonjour Patrick ça vient d'une source de qq1 du forum même pb que j'ai adapté pour le gérer en javascript j'ai pas fait gaff

en ce qui concerne l'infaisabilité dans certain cas tu as raison mais de toute façon tout passe par l'analyse de la source de la page déjà pour identifier le nom des objets <Form name=><input type name>

[Marc-L]

Bonjour,

j'aime aussi l'idée d'injecter du Java script …

Sinon de manière classique, en analysant la source, les trois zones étant du même groupe,
tout en se passant d'inutiles variables objets, pour le bouton sans ID, il suffit d'indiquer son index :

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
Sub Demo()
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://www.gpdis.com"
        Do Until .readyState = 4 And .busy = False:  DoEvents:  Loop
 
        With .document
            With .getElementsByTagName("input")
                  .Item("compte").Value = "login"
                .Item("password").Value = "mot de passe"
                .Item(3).Click
            End With
 
            Do: Loop Until .readyState = "complete"
' suite du traitement
        End With
 
        .Quit
    End With
    End
End Sub

_______________ _____________________________________ _____________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[patricktoulon]

salue marc

même pas MAL

je suis en train de travailler avec tes abeilles et je prend des raccourcis tu va m'en vouloir

[Marc-L]

Patrick, point visé tu n'étais !

Aucun souci pour Let it Bee mais il y a bien un seul fichier .vbs créé, lire ma réponse dans le post concerné …

Je n'ai pas répondu hier soir - heure tardive - car je voulais amener le demandeur à réfléchir
du pourquoi du comment etc … bref en visualisant l'élément dans le code de la page
car je ne pense pas qu'apporter directement une solution toute faite soit formateur …

En tout cas cette discussion pourra servir de référence pour d'autres !


__________________________________________________________________________________________
Définition Sudoku : qui a le nord en face …

[SkyCorp]

Merci à tous pour votre aide

Je vais lire vos codes avec beaucoup d'attention.
C'est vrai que je n'avais pas pensé au javascript. Je ne suis pas un expert, mais il me semble qu'accepter du javascript dans des formulaires représente une faille de sécurité.
Bon, après, c'est de la responsabilité du site d'empêcher cela ou non.

A moi de travailler à présent

[Invité]

sur le principe tu as raison mais le javascript est la seule façon de valide le contenu d'un formulaire coté client et les créateur de page web ne veulent pas ce priver de cette possibilité car ça représente un gain de temps par rapport à un traitement coté serveur puis ré-afficher la page pour délivrer le message d'erreur!

[SkyCorp]

Premier test, avec la solution de Marc-L : ça marche parfaitement !
Et le code est allégé. Merci beaucoup Marc-L

En tout cas, je comprends bien d'où vient l'erreur. Merci à toi aussi patricktoulon

L'ouverture de la page reste assez longue je trouve, mais le plus important est que ça fonctionne.

Au tour de javascript. Je vais tenter, mais vu le peu de javascript que j'ai programmé dans ma vie, je ne promets rien.
Allez, je tente

[Marc-L]

Classiquement, l'erreur 13 correspond aux serviettes mélangées aux torchons :
le type d'une variable ne correspond pas à la donnée …

Mais dans le cas d'une variable objet liée à IE comme ta ligne n°19, l'objet appelé n'existe pas !
Comme pourtant déjà expliqué, ta ligne appelle l'ID d'un objet qui n'en a pas ‼ D'où l'erreur …

Comme quoi donner une solution toute faite n'est vraiment pas formateur !


__________________________________________________________________________________________
Cravate : accessoire servant à indiquer la direction du cerveau de l'homme.

[SkyCorp]

Je pensais bien à ça justement, mais impossible de trouver simplement sur VBA le bon code pour remplacer getElementById.
Je trouve l'aide de VBA assez difficile à utiliser. Dès que je clique sur Répertorier les propriétés/méthodes, Info paramètres, et toutes les autres menus accessibles par clic droit, je n'ai le droit qu'à un bip de l'ordinateur. Et l'explorateur d'objet n'aboutit à pas grand chose. Difficile de s'y retrouver dans tout ça.

Pour la solution javascript, elle fonctionne sans problème. Je vais partir sur cette solution.

Reste plus qu'à exécuter mes 2 scripts ensemble pour récupérer les données.
A tout de suite

[SkyCorp]

Marc-L, à quoi sert la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do: Loop Until .readyState = "complete"

que tu as mis à la fin de ton code ?

Sinon, j'ai tenté de fusionner ce code avec le premier code que j'ai mis sur mon premier post, pour récupérer les infos.
Ca donnerai ça :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Sub ConnexionImport() ' connexion par la méthode javascript
 
CONNEXION
    With CreateObject("internetExplorer.Application") 'ouverture d'internet explorer
        .Visible = True
        .navigate "http://www.xxx.com/" ' va sur la page du site
 
        Do Until .readyState = 4 And .busy = False
            DoEvents
        Loop ' on attend que la page soit totalement chargée
 
        .Document.parentWindow.execScript "javascript:document.leform.compte.value='login';"
        .Document.parentWindow.execScript "javascript:document.leform.TxtPasse.value='mot de passe';"
        .Document.parentWindow.execScript "javascript:document.leform.submit();"
 
        Do Until .readyState = 4 And .busy = False
            DoEvents
        Loop ' on attend que la page soit totalement chargée
 
        Sheets.Add
        ActiveSheet.Name = "TMP_IMPORT"
 
        With Sheets("TMP_IMPORT").QueryTables.Add( _
          Connection:="URL;http://www.xxx.com/recherche.php?search=VVH31A3120", _
          Destination:=Sheets("TMP_IMPORT").Range("$A$1"))
            .Name = "recherche.php?search=VVH31A3120_1"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = False
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .WebSelectionType = xlEntirePage
            .WebFormatting = xlWebFormattingAll
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        End With
 
        compteur = 0
 
        For ligne = 1 To 1000
 
            If Left(Sheets("TMP_IMPORT").Cells(ligne, 6), 14) = "Valeur estimée" Then
                compteur = compteur + 1
                Sheets("Fours").Cells(compteur, 1) = Sheets("TMP_IMPORT").Cells(ligne + 1, 6)
 
                If compteur = 1 Then Exit For
            End If
 
        Next
 
'       Application.DisplayAlerts = False
'       Sheets("TMP_IMPORT").Delete
'       Application.DisplayAlerts = True
 
'        .Quit 'fermeture d'internet explorer
 
    End With
 
End Sub

Le problème est que VBA n'attend pas la fin de ma 2ème boucle, qui est sensée attendre que la connexion se termine avant de lancer la requête de recherche (l'url http://www.xxx.com/recherche.php?search=VVH31A3120).
Et donc l'export des informations se fait sur la page d'accueil et non sur la page cherchée.

Quelle erreur ai-je commise ?

[Marc-L]

L'aide n'est pas dans le VBA car ces instructions n'en sont pas !
Des fonctions Internet donc aide sur MSDN ou encore dans les excellents tutoriels de ce forum …

La ligne sert à attendre la fin du chargement de la nouvelle page.

Quant à ton erreur, le VBA ne se trompant jamais, quelle est la logique la ligne n°56 à part justement de sortir de la boucle ?!

[SkyCorp]

L'aide n'est pas dans le VBA car ces instructions n'en sont pas !
Des fonctions Internet donc aide sur MSDN ou encore dans les excellents tutoriels de ce forum …

OK, je comprends mieux maintenant. Je le saurai pour la prochaine fois.

La ligne sert à attendre la fin du chargement de la nouvelle page.

C'est bien ce que j'avais compris, mais je ne comprends pas trop son utilité dans ton code. N'est-elle pas redondante avec le précédent readyState ?

Quant à ton erreur, le VBA ne se trompant jamais, quelle est la logique la ligne n°56 à part justement de sortir de la boucle ?!

Sur cette ligne, je sors de ma boucle For, qui consiste à analyser et récupérer les infos qui ont été écrites sur ma page TMP_IMPORT avec le 2ème WITH.
Hors les infos récupérées proviennent en fait de la page d'accueil et non pas de la page recherchée comme souhaitée.

[Marc-L]

N'est-elle pas redondante avec le précédent readyState ?

Ben non vu la nouvelle page entre …

Pour récupérer une table, voir par exemple dans cette discussion …


__________________________________________________________________________________________
Titeuf : ce qui sort de la TitePoule …

[NVCfrm]

Bonjour, Marc
SkyCorp a de l'avenir en programmation.
Mettre la ligne gênante dans une Sub indépendante.

[SkyCorp]

Récupérer les informations n'est pas le problème puisque j'y arrivais avant la fusion de mes 2 codes.
Le problème est que les infos récupérées ne proviennent pas de la dernière page, une fois la recherche effectuée, mais de la page précédente.

Pour être plus précis, je commence sur une première page : http://www.xxx.com/index.php
Je me connecte, puis je tombe sur la page http://www.xxx.com/accueil.php
Je lance ensuite la recherche, par exemple http://www.xxx.com/recherche.php?search=VVH31A3120
Et là je récupère toutes les infos de la page.

Si j'utilise ma toute première macro, que l'on voit sur mon premier post, je pars de la page http://www.xxx.com/accueil.php et la macro me récupère bien les infos souhaitées.

Par contre si je démarre de la page de connexion, donc sans m'être connecté au préalable, j'arrive bien à la page suivante, mais ce sont les infos de cette page qui sont récupérées et non pas la page cherchée.

Je vais essayer NVCfrm

[patricktoulon]

RE
je veux pas paraitre insistant mais
essayez les 2 façon (IE/JAVASCRIPT) en cas d'erreur sur chargement ou indisponibilité avec java ca n'est pas révélée j'ai fait le test 10 fois avec donnée bidon

et a chaque fois java ne fait rien
ca veux bien dire que quelque chose ne se fait pas