recherche et click lien IE Résolu/Fermé

Question

Bonjour,

j'ai un code comme ceci qui m'active une fenêtre déjà ouverte d'internet explorer:

Set IE = CreateObject("InternetExplorer.Application")
Dim hwnd&, Style&, Title$, i&
hwnd = GetWindow(GetDesktopWindow(), 5)
Do While hwnd
Title = GetCaption(hwnd)
If Len(Title) Then
' Enum visible windows only
If GetWindowLong(hwnd, -16) And &H10000000 Then
If InStr(1, Title, "@rchi", 1) Then
AppActivate Title
End If
hwnd = GetWindow(hwnd, 2)
Loop
MsgBox "Aucune fenêtre ie trouvée !", 64


mais le problème c'est que je ne sais pas comment faire pour trouver et cliquer sur un lien précis sur cette fenêtre.
je précise que ce lien n'est pas un lien HTML mais un lien javascript donc il me faudrait si c'est possible qu'il me recherche le texte du lien puis une fois trouvé il me clique dessus.
je suis débutant en VBA je risque de vous demander de l'aide si je comprends pas

EDIT: Ajout de la coloration syntaxique.

pijaku · Answer

Bonjour, Sans avoir accès au code-source du site en question il va nous être très difficile de te répondre. Néanmoins, la fonction javascript que tu lances habituellement par le clic peut être lancée par VBA. Un exemple : - dans le code source, le lien javascript sur lequel cliquer : Badger une entrée / sortie - le code VBA serait : IEDoc.parentWindow.execScript "fcDoAction('BADGER_ES');", "javascript" Comme tu peut le voir, on exécute (execScript) la fonction javascript fcDoAction en lui passant le paramètre : ('BADGER_ES')...

sormick · Answer

Bonjour!!

Quelque chose de nouveau pour la question ci-dessus?

cordialement,
sormick

pijaku · Answer

Bonjour,

Je reprend tes questions une par une :

Voici le code javascript que j'ai trouvé:

javascript:fcDetailC('8232719310','11/12/14','12/12/14');

je n'ai pas tous les détails du code source.
Est ce qu'avec ce code on peut exploiter quelque chose?
et ce code que vous m'avez fourni:
IEDoc.parentWindow.execScript "fcDoAction('BADGER_ES');", "javascript"
peut être que je peux le trouver mais je ne sais même pas par ou commencer.
Le code que je t'ai donné : IEDoc.parentWindow.execScript "fcDoAction('BADGER_ES');", "javascript" est fonction du Code source de la page qui m'intéressait. Tu dois pouvoir adapter ce code avec le code source de ta page à toi.

à essayer :
IEDoc.parentWindow.execScript "fcDetailC('8232719310','11/12/14','12/12/14');", "javascript"

j'ai quand même accès au code source de la page ouverte une fois le lien clické
fonctionnerait t'il le click avec celui la?
Euh... Logiquement non. Le code source de la page, une fois ton bouton javascript cliqué est différent du code source de la page avant le clic. Il te faut celui de la page avant le clic...

et quel serait la variable vba la mieux adaptée pour IEDOC?
j'ai essayé dim IEDOC as htmldcoument mais ça ne marche pas.
Dim IEDoc As HTMLDocument est le type le mieux adapté. Après, tu dis "ça ne marche pas", ça ne m'aide pas à savoir ce qui se passe...
As tu un message d'erreur? que se passe t'il concrètement?
Si cela ne fonctionne pas, peut être que ta page IE n'est pas chargée complètement. Pour cela, il te faut en attendre le chargement complet, grâce à une boucle.
Exemple :
Sub testAvecAttente()
'cocher les références :
    'Microsoft HTML Object Library
    'et
    'Microsoft Internet Controls
    
Dim maPage As New InternetExplorer
Dim maPage_Doc As HTMLDocument

maPage.navigate "http://www.commentcamarche.net/"
maPage.Visible = True
'***Boucle d'attente***
Do Until maPage.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
'A partir d'ici ta page est chargée
Set maPage_Doc = maPage.document

Dim Ident As HTMLInputElement
Dim Pass_word As HTMLInputElement
Dim Soumettre As HTMLInputElement

Set Ident = maPage_Doc.all("login")
Set Pass_word = maPage_Doc.all("pass")

'évite une erreur si déjà connecté
On Error Resume Next
Ident.Value = "toto"
Pass_word.Value = "motdepassedetoto"
Set Soumettre = maPage_Doc.all("log_in")
Soumettre.Click
On Error GoTo 0
End Sub

Tu devrais obtenir une page IE pointant sur CCM avec ce message :
Erreur

L'authentification a échoué !
Pour recevoir par courrier électronique vos données d'identification, cliquez ici!
Pour devenir membre cliquez ici!
Normal puisque le membre toto n'a pas motdepassedetoto comme mot de passe...

Par contre, sans la boucle d'attente, tu te retrouves avec une erreur VBA d'automation blabla...

Sub testSansAttente()
'cocher les références :
    'Microsoft HTML Object Library
    'et
    'Microsoft Internet Controls
    
Dim maPage As New InternetExplorer
Dim maPage_Doc As HTMLDocument

maPage.navigate "http://www.commentcamarche.net/"
maPage.Visible = True
'Do Until maPage.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Set maPage_Doc = maPage.document

Dim Ident As HTMLInputElement
Dim Pass_word As HTMLInputElement
Dim Soumettre As HTMLInputElement

Set Ident = maPage_Doc.all("login")
Set Pass_word = maPage_Doc.all("pass")

'évite une erreur si déjà connecté
On Error Resume Next
Ident.Value = "toto"
Pass_word.Value = "motdepassedetoto"
Set Soumettre = maPage_Doc.all("log_in")
Soumettre.Click
On Error GoTo 0
End Sub
 
&#127932; Cordialement,
Franck &#127926;

Recherche et click lien IE

3 réponses

Discussions similaires