Bonjour,
Mon navigateur est en version 11 et je chercher à lancer une instance IE11 en mode compatible IE7.
Je n'y arrive pas...
Si vous avez une idée ?
Merci beaucoup d'avance.
Voici mon code VBS :
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 Dim metatags, meta, metaDoc 'IE compatible metaDoc="IE=EmulateIE7" 'Création de l'objet IE Set ie = CreateObject("InternetExplorer.Application") ie.Navigate ("http://www.mon-url.com") ie.MenuBar=false ie.ToolBar=false ie.Visible=true 'Création du document URL Set IEDoc = IE.document 'Attendre la fin du chargement de l'URL Do While Not IEDoc.readyState = "complete" DoEvents Loop 'Forcer le meta document par la variable metaDoc Set metatags = IEDoc.getElementsByTagName("meta") For Each meta In metatags If UCase(meta.getAttribute("httpEquiv")) <> "" Then 'Changer le mode document meta.setAttribute "content", metaDoc Exit For End If Next Set ie = Nothing Set IEDoc = Nothing Set metatags = Nothing Set meta = Nothing
Partager