Discussion :

[timoth]

Bonjour,

J'utilise Internet Explorer 7 et je n'arrive plus a faire tourner un petit code qui me permettait de lire le code HTML d'une page, ceci sur IE 5:

Code :

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

1
2
3
4
5
6
7
8
dim str as string
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "www.mapage.com"
Do Until IE.readyState = READYSTATE_COMPLETE
DoEvents
Loop 'attendre la fin du chargement
 
str = IE.Document.body.innerHTML

Il me renvoie l'erreur 91 sur la ligne str=IE.Document.body.innerHTML:

Variable objet ou variable de bloc With non définie

Si qq1 a une idée...

[timoth]

Je n'ai toujours pas de solution à mon problème. J'ai essayé d'installer une version anterieure d'Internet Explorer mais je me casse aussi les dents dessus.
lorsque j'installe la version 6 par exemple, il me dit qu'il détecte une version superieure installée et annule l'installation. Je sais pas trop comment virer IE7...
Merci de votre aide !!!

[vodiem]

salut timoth,

cela m'interesse aussi, j'ai donc fait à partir de ton code , ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim IE As InternetExplorer
Dim str As String
 
Set IE = New InternetExplorer
IE.Navigate "www.mapage.com"
Do
Loop Until (IE.ReadyState = READYSTATE_COMPLETE) And Not (IE.Busy)
 
str = IE.Document.body.innerHTML
 
MsgBox str
 
Set IE = Nothing

qui fonctionne avec mon IE 6.0.2900.2180.xpsp_sp2_rtm...

[timoth]

Merci de ton aide!!

Donc, ça marche avec IE6. Mon pb est que je travaille avec IE 7 et que ça ne marche plus (peut etre à cause des onglets?)

Je n'arrive pas à revenir à IE6. Lorsque je veux l'installer, il me dit que j'ai une version plus récente et il stoppe l'installation. Comment puis-je me débarrasser de ma version????

[vodiem]

tu as essayé à la barbare?
effacement du dossier en mode sans echec puis un nettoyeur de base de registre?
enfin ce serait mieux de pouvoir trouver une solus avec IE7.
j'essaierais bien mais si tu dis que ca marche pas, ca me dis pas trop de l'installer, et de plus pouvoir le retirer...

[LedZeppII]

Bonsoir,

Si c'est juste pour récupérer le texte d'une page web, voir méthode de la bibliothèque XML

A+