Discussion :

[casefayere]

Bonjour ou Bonsoir à tou(te)s
Après avoir lu le topic de stéphane :
http://www.developpez.net/forums/d11...lorer-via-vba/

Je l'ai testé pour atteindre un autre site que Google,
la page d'accueil se charge bien et à fond, mais je me retrouve en Bug juste après sur mon programme (déjà expliqué sur le lien ci-dessus), voici dans l'ordre avec un point d'arrêt et une fenêtre espion, le résultat :
1ere image au point d'arret avec contenu de la fenetre espion
2eme image, suite et message d'erreur + nouveau contenu de la fenetre espion
merci d'avance pour vos conseils avisés

Bonne soirée

[Qwazerty]

Salut

Visiblement le soucis vient du contenu de la variable IE, pas de IEDoc.

Je vois sur ton environnement VB que tu as pas mal de modules complémentaires chargés, dont un qui se rapporte a Internet. Peut-être que celui-ci déclare une autre version de type InternetExplorer.
Essai de forcer vb à prendre le bon en modifiant la déclaration d'IE comme suit

Code :

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

Dim IE As New SHDocVw.InternetExplorer

As-tu essayé avec d'autres sites pour voir si le contenu d'IE était correct? Il faudrait faire l'essai avec une site sécurisé (https://) et un non sécurisé (http://).


++
Qwaz

[casefayere]

Bonjour le forum, Stephane,

Je te cofirme que j'ai la dernière version IE, je vais essayer ce que tu proposes, mais à l'envers :
D'abord prendre un site non sécurisé car mon choix l'était
ensuite essayer ta propo :

Code :

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

Dim IE As New SHDocVw.InternetExplorer

Bonne journée et merci encore

[casefayere]

J'ai donc tout essayé, avec chaque déclaration

Code :

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

Dim IE As New SHDocVw.InternetExplorer

ou

Code :

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

Dim IE As New InternetExplorer

et des sites sécurisés ou non
un seul (sécurisé) ne m'a pas engendré l'erreur VBA (citée plus haut) et j'ai même pu voir l'arborescence IE au niveau de la fenêtre espion.

Tout cela n'est pas grave pour moi, j'ai tenté l'expérience afin de satisfaire ma curiosité.

Je conseille tout de même vivement à tou(te)s ceux ou celles intéressé(e)s par la manipulation d'internet dans les macros de lire le topic de Stéphane (Qwazerty)
http://qwazerty.developpez.com/tutor...-et-vba-excel/

Merci Stéphane,

Bonne journée à tou(te)s

[casefayere]

Bonjour à tou(te)s, Stéphane,

Après un autre essai sur un autre PC, sur un lieu différent, je ne rencontre plus aucun problème, donc je pense revoir la config d'nternet explorer chez moi.

Bonne continuation,

Cordialement

[patricktoulon]

bonsoir a tout les deux

je suis en train de travailler justement sur une application utilisant la librairie "IE" dont quazerty m'a beaucoup aidé

et en fait il se trouve que ie9 pose beaucoup de probleme avec la librairie
j'ai moi meme une instabilité du code malgré qu'il n'y ai aucune erreurs

d'un jour a l'autre le code fonctionne ou pas et justement au niveau de "iedoc"
et parfois je remplace waitie par la fonction "sleep" et ca marche mais bon ca n'est pas propre



[PS pour quazerty] tu n'a pas dis ce que tu en pensais sur l'alternative que j'avais trouvé en utilisant une autre librairie"Microsoft.XMLHTTP"


exemple recuperant le texte(source) de la page

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Function GetXml(sURL)
    Dim Xml
    Set Xml = CreateObject("Microsoft.XMLHTTP")
    Xml.Open "GET", sURL'(sURL etant le lien )
    Xml.send
    Do
        DoEvents
    Loop While Xml.readyState <> 4'similaire a waitie
    GetXml = Xml.responseText
 
End Function