Discussion :

[SkyRhum]

Bonjour à tous,

Malgré une longue recherche sur la toile, je n'ai pas réussi à me sortir d'un problème.

Dans mon programme j'ouvre une page internet (sur mozilla), je me connecte à un compte. (jusque là tout marche)
Je fais ces manipulations grâce à la commande sendkeys, je sais que c'est n'est pas ce qu'il y a de "plus propre" mais bon, ça fait mon affaire.

Il faut ensuite que j'automatise des cliques sur des liens.
Pour cela la première solution que j'ai faite c'est de me déplacer avec la touche TAB (toujours en sendkeys) puis lorsque je suis sur le lien voulu, je fait ENTER.

Cependant cette méthode est longue mais surtout pas très fiable (la page internet pouvant changer d'une fois sur l'autre).

Je voudrais pouvoir faire la chose suivante.
Je fais une recherche sur la page internet (ctrl + F) puis je tape le nom voulu, ça me sélectionne donc les caractère mais je voudrais sélectionner le bouton (former par ces caractères) pour pouvoir faire un ENTER.

Par exemple sur ce forum, je fais CTRL + F, je tape "Accueil", la recherche me trouve les caractère en haut à gauche de la page, mais je voudrais pouvoir cliquer dessus.


J'espère que j'ai été clair, si non je peux vous apporter d'autres informations.

Merci de votre lecture et de votre aide.

[fring]

Bonjour,

Pour essayer de t'aider, ci-dessous un bout de code (adapté de la FAQ : Les pages html et Internet) qui va ouvrir Google dans ton Explorateur Internet, parcours les liens de la page et ouvre le lien "Traduction"

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
Sub DeclencherLienPageWeb()
    'nécessite d'activer les références
        'Microsoft HTML Objects Library
        'et
        'Microsoft Internet Controls
 
    Dim IE As InternetExplorer
    Dim Cible As HTMLAnchorElement
    Dim Doc As HTMLDocument
    Dim i As Integer, Verif As Boolean
 
    Set IE = New InternetExplorer
    IE.Navigate "http://www.google.be/" '<-- page web à ouvrir
    IE.Visible = True
 
    Do Until IE.readyState = READYSTATE_COMPLETE
    DoEvents
    Loop
 
    Set Doc = IE.Document
 
    For i = 1 To 100
        On Error GoTo pastrouve
        Verif = Doc.links(i) Like "*translate*" '<-- lien à trouver !! sensible à la casse !!
        If Verif = True Then
            Set Cible = Doc.links(i)
            Cible.Click
            Set IE = Nothing
            Set Doc = Nothing
            Set Cible = Nothing
            Exit Sub
        End If
    Next
pastrouve:
    Set IE = Nothing
    Set Doc = Nothing
    MsgBox "Le lien n'a pas été trouvé"
End Sub