clic sur lien page web
#1
Débutant XLPages

Inscription: 24/01/2010

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 24-01-2010 14h15
Avant tout, Bonjour à tous!
Nouveau sur le forum.
Je cherche à cliquer sur le lien : (80,00)
<p style="margin: 0cm 0cm 10pt" class="MsoNormal"><b><span style="line-height: 115%; font-family: " lang="EN-US" courier="">
<
td></td>
</
span></b><span style="line-height: 115%; font-family: " lang="EN-US" courier="">Compte de d</span><span style="line-height: 115%; font-family: " courier="">&#1081;</span><span style="line-height: 115%; font-family: " lang="EN-US" courier="">p</span><span style="line-height: 115%; font-family: " courier="">&#1092;</span><span style="line-height: 115%; font-family: " lang="EN-US" courier="">ts <br />
<b>width=<b>"16%"</balign=right<b>><</b></b></span><b><span style="line-height: 115%; font-family: " lang="EN-US" courier="">A</span></b><span style="line-height: 115%; font-family: " lang="EN-US" courier=""onmouseover=<b>"</b></span><b><span style="line-height115%; font-family" lang="EN-US" courier="">return</span></b><span style="line-height115%; font-family" lang="EN-US" courier=""> <b>z</b></span><span style="line-height115%; font-family" lang="EN-US" courier="">()</span><b><span style="line-height115%; font-family" lang="EN-US" courier="">"</span></b><span style="line-height: 115%; font-family: " lang="EN-US" courier=""> <br />
href=<b>"/outil/UWLM/ListeMouvementsPar/accesListeMouvementsPar?agence=00000</b><i>&amp;</i><b>compte=0000000</b><i>&amp;</i><strong>nature=06"></strong>80,00<br />
+ </
span><b><span style="line-height: 115%; font-family: " lang="EN-US" courier="">A</span></b><b><span style="line-height: 115%; font-family: " lang="EN-US" courier="">></span></b><span style="line-height: 115%; font-family: " lang="EN-US" courier=""><br />
<
b>width=<b>"16%"</balign=right<b>><</b></b></span><b><span style="line-height: 115%; font-family: " lang="EN-US" courier="">A</span></b><span style="line-height: 115%; font-family: " lang="EN-US" courier=""onmouseover=<b>"</b></span><b><span style="line-height115%; font-family" lang="EN-US" courier="">return</span></b><span style="line-height115%; font-family" lang="EN-US" courier=""> <b>z</b></span><span style="line-height115%; font-family" lang="EN-US" courier="">()</span><b><span style="line-height115%; font-family" lang="EN-US" courier="">"</span></b><span style="mso-ansi-language: EN-US" lang="EN-US"><o:p></o:p></span></p>
J'ai contourné le problème, mais je voudrais bien y arriver directement.
Après de longues recherches infructueuses...Quelqu'un aurait-il une idée?
D'avance merci
Hors Ligne
Rapport   Haut 

Re: clic sur lien page web
#2
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 24-01-2010 18h29
Bonjour centaure, bienvenue sur XLpages.com 
Bonjour le Forum,

Pour ma part, je n'ai pas compris ta question et, exposée comme ça, je ne vois pas le rapport avec Excel.

A minima, joindre un exemple et faire un effort d'explication si tu souhaites de l'aide...

Par ailleurs, merci de ne pas user de copier/coller de page Web (ou code Html) directement dans tes posts. J'ai imposé l'ensemble dans une balise de Code pour maintenir un affichage cohérent de ton message qui était, sans balise Code, encore moins compréhensible...

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: clic sur lien page web
#3
Débutant XLPages

Inscription: 24/01/2010

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 24-01-2010 19h56
Bon décidement ça ne va pas comme je le voudrais.
Je charge une page web, sur celle-ci je voudrais cliquer sur le liens :(80,00),
(mais je n'y arrive pas), pour plus de rapidité, au lieu de copier la page dans une feuille excel, et de travailler dedans.

merci de prendre du temps pour me répondre.

<span style="font-size: small">
<
td></td>
Compte de d&eacute;p&ocirc;ts <br />
<
td align="right" width="16%"></td>
href="/outil/UWLM/ListeMouvementsPar/accesListeMouvementsPar?agence=01018&amp;compte=006146B&amp;nature=06" _fcksavedurl="/outil/UWLM/ListeMouvementsPar/accesListeMouvementsPar?agence=01018&amp;compte=006146B&amp;nature=06">80,00<br />
+ <
br />
<
td align="right" width="16%"></td>
</
span><br />
Hors Ligne
Rapport   Haut 

Re: clic sur lien page web
#4
Débutant XLPages

Inscription: 24/01/2010

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 24-01-2010 19h59
<TD>Compte de dépôts </TD>
<TD width="16%" align=right><A onmouseover="return z()"
href="/outil/UWLM/ListeMouvementsPar/accesListeMouvementsPar?agence=01018&amp;compte=006146B&amp;nature=06">80,00
+ </A></TD>
<TD width="16%" align=right><A onmouseover="return z()"
 
Bon une autre tentative
.
Je charge une page web, sur celle-ci je voudrais cliquer sur le liens :(80,00),
(mais je n'y arrive pas), pour plus de rapidité, au lieu de copier la page dans une feuille excel, et de travailler dedans.

merci de prendre du temps pour me répondre.

Hors Ligne
Rapport   Haut 

Re: clic sur lien page web
#5
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 24-01-2010 21h49
Re centaure,

Peut-être que je me trompe centaure, mais avec si peu d'info, il ne faut pas te demander pourquoi tes demandes ICI et LA n'ont pas eu de succès...
Bon, tes 2 nouveaux posts ne nous en apprennent pas davantage... , et comme je ne suis pas fan des devinettes, je vais donc te faire une unique suggestion à l'aveugle en espérant que ça puisse te venir en aide.

Comme tu as déjà chargé la page Web contenant le lien (j'imagine dans une instance d'objet IE), le meilleur moyen de suivre ce lien ce n'est pas de simuler un clic dessus comme tu sembles vouloir le faire, mais c'est tout simplement de faire appel à la méthode Navigate de l'objet IE en question. Ca donnera donc quelque chose comme ça :
Dim IE As InternetExplorer
Dim LaChaineURL As String
   
    Set IE = New InternetExplorer
       
    LaChaineURL = "http://www.LeSiteMystere.com" & _
        "/outil/UWLM/ListeMouvementsPar/accesListeMouvementsPar?agence=01018&compte=006146B&nature=06"
   
    IE.Navigate LaChaineURL
 

Cordialement,


Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: clic sur lien page web
#6
Débutant XLPages

Inscription: 24/01/2010

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 24-01-2010 23h20
Je ne peut pas dire comment j'arrive sur cette page il est question de comptes bancaires. J'ai essayé entre autres:

   For Num = 0 To IE.Document.getElementsByTagName("href").Length '- 1
Debug.Print dct.getElementsByTagName("href").Item(Num).Name
        If dct.getElementsByTagName("href").Item(Num).Name = "/outil/UWLM/ListeMouvementsPar/accesListeMouvementsPar?agence=01018&compte=006146B&nature=06" Then
            dct.getElementsByTagName("href").Item(Num).Click
        End If
    Next
ça ne fonctionne pas.
Hors Ligne
Rapport   Haut 

Re: clic sur lien page web
#7
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 24-01-2010 23h42
Re,

Nous dire quelle page et comment on fait pour arriver à cette page, non. Par contre, ça ne t'empêche pas de nous confirmer qu'il s'agit bien d'un affichage via une instance d'IE (et non de l'utilisation d'un WebBrowser par exemple), ça tu peux le dire tout en expliquant dès le départ le caractère confidentiel du sujet...

Cela dit, ma suggestion précédente reste valable. A toi de voir.

Par ailleurs, s'agissant d'un site bancaire et donc vraisemblablement sécurisé, la question est aussi de savoir si une tentative de pilotage par macro VBA est réellement une bonne idée...

Bonne continuation,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 

Re: clic sur lien page web
#8
Débutant XLPages

Inscription: 24/01/2010

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 25-01-2010 01h43
Public Sub AZE()
'Fermeture    'Ferme internet explorer


Application.WindowState = xlNormal

Application.DisplayAlerts = False
On Error Resume Next

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1

IE.Navigate "https://xxxxxxxxxxxxxxxxxxxx.html"

Do While IE.ReadyState <> 4
    Application.Wait (Now + 0.1 / 3600 / 24)
Loop

'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>Envoi des codes

'*********************click
IE.Document.parentWindow.execScript "document.forms[0].submit();"    ', "Javascript"


'******************Attente cgt page(j'aurais pu boucler sur info pour ça, ce que je vais faire

Sleep 2000

'*************et arriver là
     For Num = 0 To IE.Document.getElementsByTagName("href").Length '- 1
Debug.Print dct.getElementsByTagName("href").Item(Num).Name
        If dct.getElementsByTagName("href").Item(Num).Name = "/outil/UWLM/ListeMouvementsPar/accesListeMouvementsPar?agence=000000&compte=000000&nature=06" Then
            dct.getElementsByTagName("href").Item(Num).Click
        End If
    Next

' comme je n'y arrive pas, je copie la page sur une feuille Excel, et...
cellule.Offset(3, 0).Hyperlinks(1).Follow NewWindow:=True  ' cellule contenant le lien (80,00)

' et je recommence pour toutes les autres opérations
 
Re
Voilà un bout de code.
J'ai déja essayé la solution que tu m'a proposée, mais le site me jette
Merci encore 

Hors Ligne
Rapport   Haut 

Re: clic sur lien page web
#9
Débutant XLPages

Inscription: 24/01/2010

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2007
Posté le : 25-01-2010 08h13
Re
en fait je viens de voir que c'est la détection des attributs href qui n'est pas bonne/
 For Num = 0 To IE.Document.getElementsByTagName("href").Length '- 1
Hors Ligne
Rapport   Haut 

Re: clic sur lien page web
#10
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 25-01-2010 22h31
Bonjour centaure,

Dans ce cas, une suggestion supplémentaire :
   Dim IE As Object
    Dim L As Long
   
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "https://xxxxxxxxxxxxxxxxxxxx.html"     'A ADAPTER

    Do While IE.ReadyState <> 4
        DoEvents
    Loop

    With IE.Document
        For L = 0 To .Links.Length - 1
            If .Links(L) = "/outil/UWLM/ListeMouvementsPar/accesListeMouvementsPar?agence=000000&compte=000000&nature=06" Then
                .Links(L).Click
            End If
        Next L
    End With
C'est une autre façon de parcourir les liens d'une page Web.

En espérant que ça te dépannera.

Cordialement,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes