Discussion :

[gazou20]

Bonjour,
Je cherche éperdument à tester la présence d'un élément sur une page web mais sans succès.
Je vous joint le bout du code que je torture depuis 2 jours :

Code :

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

1
2
3
4
5
6
7
8
If IEDoc.all("bloc-info-generale") = Null Then
 
GoTo FIN:
Else
   Set InputZoneTexte = IEDoc.all("bloc-info-generale")
   InputZoneTexte.Click
 
End If

Mais se sont des erreurs qui en ressortent.
Si quelqu'un connait la formule magique pour faire fonction se test je suis preneur et le remercie d'avance.
Bonne journée

[mercatog]

Code :

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

1
2
3
4
5
6
7
'Set InputZoneTexte = IEDoc.All("bloc-info-generale")
Set InputZoneTexte = IEDoc.getelementbyid("bloc-info-generale")
If Not InputZoneTexte Is Nothing Then
    InputZoneTexte.Click
    'suite
    '....
End If

[gazou20]

Un grand grand merci à toi pour cette réponse efficace et rapide . J'ai réussi à l'intégrer dans mon code. D'après mes quelques test ca a l'aire de bien fonctionner normalement. Je testerai demain matin à plus grande échelle avec des collègues voir si tout se déroule comme prévu et reviendrai clôturer le sujet en même temps.

EDIT : Tout fonctionne encore merci