navigation IE sans extension

Le
-=lolol=-
Bonjour

Dans une macro Excel, je navigue sur IE via les commandes suivantes

Set MonIE = CreateObject("InternetExplorer.Application")
MonIE.Visible = True
MonIE.Navigate (Ladresse)
Do While MonIE.ReadyState <> 4
DoEvents
Loop

Dans Windows, si j'exécute iexplore.exe -extoff, j'ouvre bien IE sans
extensions (sans flash en fait).

Comment puis je lancer IE via VBA sans extensions ?

Merci pour vos précisions
@+Laurent
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
LSteph
Le #26402534
Le vendredi 17 juin 2016 18:47:25 UTC+2, -=lolol=- a écrit :
Bonjour
Dans une macro Excel, je navigue sur IE via les commandes suivantes
Set MonIE = CreateObject("InternetExplorer.Application")
MonIE.Visible = True
MonIE.Navigate (Ladresse)
Do While MonIE.ReadyState <> 4
DoEvents
Loop
Dans Windows, si j'exécute iexplore.exe -extoff, j'ouvre bien IE san s
extensions (sans flash en fait).
Comment puis je lancer IE via VBA sans extensions ?
Merci pour vos précisions
@+Laurent

Bonjour,
Shell "C:Program FilesInternet Exploreriexplore.exe", vbMaximizedFocus
Cordialement.
--
LSteph
HB
Le #26402569
Bonjour,
Pour exécuter iexplore.exe -extoff,
il me semble qu'il faut utiliser la méthode EXEC de l'objet WsShell
et puis ensuite surmonter les embrouilles des guillemets ...
L'objet IE ne semble pas posséder de propriété
(ou de méthode) liée aux extensions.
Cela se trouve peut être dans un "objet fils" ...
il faut fouiller dans MSDN
HB
Le 22/06/2016 à 11:54, LSteph a écrit :
Le vendredi 17 juin 2016 18:47:25 UTC+2, -=lolol=- a écrit :
Bonjour
Dans une macro Excel, je navigue sur IE via les commandes suivantes
Set MonIE = CreateObject("InternetExplorer.Application")
MonIE.Visible = True
MonIE.Navigate (Ladresse)
Do While MonIE.ReadyState <> 4
DoEvents
Loop
Dans Windows, si j'exécute iexplore.exe -extoff, j'ouvre bien IE sans
extensions (sans flash en fait).
Comment puis je lancer IE via VBA sans extensions ?
Merci pour vos précisions
@+Laurent

Bonjour,
Shell "C:Program FilesInternet Exploreriexplore.exe", vbMaximizedFocus
Cordialement.
--
LSteph


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
isabelle
Le #26402579
bonjour,
'il faut ajouter une référence à :
'Windows Script Host Object Model (wshom.ocx)
Sub test1()
Dim Wsh As WshShell
Set Wsh = New WshShell
MsgBox Wsh.SpecialFolders("Desktop")
End Sub
isabelle
Le 2016-06-17 à 12:47, -=lolol=- a écrit :
Bonjour
Dans une macro Excel, je navigue sur IE via les commandes suivantes
Set MonIE = CreateObject("InternetExplorer.Application")
MonIE.Visible = True
MonIE.Navigate (Ladresse)
Do While MonIE.ReadyState <> 4
DoEvents
Loop
Dans Windows, si j'exécute iexplore.exe -extoff, j'ouvre bien IE sans extensions
(sans flash en fait).
Comment puis je lancer IE via VBA sans extensions ?
Merci pour vos précisions
@+Laurent
isabelle
Le #26402578
https://msdn.microsoft.com/en-us/library/d5fk67ky(v=vs.84).aspx
isabelle
Le 2016-06-22 à 13:27, isabelle a écrit :
bonjour,
'il faut ajouter une référence à :
'Windows Script Host Object Model (wshom.ocx)
Sub test1()
Dim Wsh As WshShell
Set Wsh = New WshShell
MsgBox Wsh.SpecialFolders("Desktop")
End Sub
isabelle
Le 2016-06-17 à 12:47, -=lolol=- a écrit :
Bonjour
Dans une macro Excel, je navigue sur IE via les commandes suivantes
Set MonIE = CreateObject("InternetExplorer.Application")
MonIE.Visible = True
MonIE.Navigate (Ladresse)
Do While MonIE.ReadyState <> 4
DoEvents
Loop
Dans Windows, si j'exécute iexplore.exe -extoff, j'ouvre bien IE sans extensions
(sans flash en fait).
Comment puis je lancer IE via VBA sans extensions ?
Merci pour vos précisions
@+Laurent
HB
Le #26402588
Bonjour,
Ah oui, bien sûr, j'avais oublié ... les références...
J'ajoute un jour et ensuite j'oublie ...
Merci Isabelle pour ce rappel à la réalité !
voici donc, en résumé, ce qui devrait répondre
à la question initiale
qui était
"Comment puis je lancer IE via VBA sans extensions ?"
1) Dans le menu outils de l'éditeur VBA
avec l'item Références ..
cherchez et cochez
"Windows Script Host Object Model"
2) qqpart collez le code suivant
Sub Navig(MonUrl As String)
Dim WSH As WshShell
Dim CM as String
Set WSH = New WshShell
CM = "cmd /c " & Chr(34)
CM = CM & "C:Program FilesInternet Exploreriexplore.exe"
CM = CM & Chr(34) & " " & MonUrl & " -extoff"
WSH.Exec CM
End Sub
Sub Test()
Navig "excelabo.net"
End Sub
remarque :
Une URL bien née ne doit pas contenir d'espace
il n'est donc pas utile d'encadrer cet argument avec chr(34)
dans la ligne de commande CM
Cordialement,
HB
Le 22/06/2016 à 19:30, isabelle a écrit :
https://msdn.microsoft.com/en-us/library/d5fk67ky(v=vs.84).aspx
isabelle
Le 2016-06-22 à 13:27, isabelle a écrit :
bonjour,
'il faut ajouter une référence à :
'Windows Script Host Object Model (wshom.ocx)
Sub test1()
Dim Wsh As WshShell
Set Wsh = New WshShell
MsgBox Wsh.SpecialFolders("Desktop")
End Sub
isabelle
Comment puis je lancer IE via VBA sans extensions ?
Merci pour vos précisions
@+Laurent




---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
LSteph
Le #26402655
..à ce détail près
Shell "C:Program FilesInternet Exploreriexplore.exe -extoff", vbMaximize dFocus
Le mercredi 22 juin 2016 11:54:22 UTC+2, LSteph a écrit :
Le vendredi 17 juin 2016 18:47:25 UTC+2, -=lolol=- a écrit  :
Bonjour
Dans une macro Excel, je navigue sur IE via les commandes suivantes
Set MonIE = CreateObject("InternetExplorer.Application")
MonIE.Visible = True
MonIE.Navigate (Ladresse)
Do While MonIE.ReadyState <> 4
DoEvents
Loop
Dans Windows, si j'exécute iexplore.exe -extoff, j'ouvre bien IE s ans
extensions (sans flash en fait).
Comment puis je lancer IE via VBA sans extensions ?
Merci pour vos précisions
@+Laurent

Bonjour,
Shell "C:Program FilesInternet Exploreriexplore.exe", vbMaximizedFocus
Cordialement.
--
LSteph
-=lolol=-
Le #26402667
Bonjour à tous
Je vous remercie pour les solutions que vous m'avez proposé.
Mais ... En fait dans mon code, je crée mon objet MonIE
Set MonIE = CreateObject("InternetExplorer.Application")
MonIE.Visible = True
MonIE.Navigate (Ladresse)
Do While MonIE.ReadyState <> 4
DoEvents
Loop
Puis plus loin je coche des cases et remplis différents champs de la
page avec des lignes du genre
MonIE.document.getElementById("ctl00_BodyABC_dlFormat").Value = "w"
MonIE.document.getElementById("ctl00_BodyABC_listFormat").Value =
"isin"
MonIE.document.getElementById("ctl00_BodyABC_Button1").Click
Donc si je passe avec les solutions suggérées par LSteph ou Isabelle,
j'ai dans l'idée que vu que je ne crée pas d'objet je vais avoir du mal
à remplir les champs voulus :-(
Me trompe ?
Bon, globalement, mon code fonctionne plutôt bien comme il est. Il
plante parfois parce que la page IE ne se charge pas complètement et je
suppose (sans être certain) que ce sont les bannières de pub en flash
qui merdouillent ... d'ou lidée de lancer IE sans complément.
Je vais tenter de gérer le problème autrement en comptant le temps
d'attente que j'ai lors du
Do While MonIE.ReadyState <> 4
Si la page mets trop de temps à ce charger, je ferme MonIE et relance
le chargement d'une nouvelle page.
Merci pour votre aide
@+Laurent
HB
Le #26402710
Ah oui,
bien sûr ...
Comme je l'ai signalé, en fouillant MSDN,
je n'ai rien vu concernant la gestion des extensions
pour l'objet IE instancié via Windows Script Host
En ajoutant la référence
"microsoft internet controls"
on dispose d'un objet au moins similaire ;o)
Dim MonIE As InternetExplorer
Set MonIE = New InternetExplorer
MonIE.Resizable = False
MonIE.StatusBar = False
MonIE.Visible = True
MonIE.Navigate "www.google.fr"
Je n'ai rien repéré concernant les extensions ...
mais cela ne veut pas dire qu'il n'y a rien ;o)
Tu peux fouiller en détail l'explorateur d'objets
pour voir ...
HB

Le 23/06/2016 à 16:38, -=lolol=- a écrit :
Bonjour à tous
Je vous remercie pour les solutions que vous m'avez proposé.
Mais ... En fait dans mon code, je crée mon objet MonIE
Set MonIE = CreateObject("InternetExplorer.Application")
MonIE.Visible = True
MonIE.Navigate (Ladresse)
Do While MonIE.ReadyState <> 4
DoEvents
Loop
Puis plus loin je coche des cases et remplis différents champs de la
page avec des lignes du genre
MonIE.document.getElementById("ctl00_BodyABC_dlFormat").Value = "w"
MonIE.document.getElementById("ctl00_BodyABC_listFormat").Value = "isin"
MonIE.document.getElementById("ctl00_BodyABC_Button1").Click
Donc si je passe avec les solutions suggérées par LSteph ou Isabelle,
j'ai dans l'idée que vu que je ne crée pas d'objet je vais avoir du mal
à remplir les champs voulus :-(
Me trompe ?
Bon, globalement, mon code fonctionne plutôt bien comme il est. Il
plante parfois parce que la page IE ne se charge pas complètement et je
suppose (sans être certain) que ce sont les bannières de pub en flash
qui merdouillent ... d'ou lidée de lancer IE sans complément.
Je vais tenter de gérer le problème autrement en comptant le temps
d'attente que j'ai lors du
Do While MonIE.ReadyState <> 4
Si la page mets trop de temps à ce charger, je ferme MonIE et relance le
chargement d'une nouvelle page.
Merci pour votre aide
@+Laurent


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
MichD
Le #26402759
Bonjour,
As-tu essayé comme ceci :
Quand tu ouvres internet explorer, si tu tapes dans la
barre d'adresse ceci : "about:NoAdd-ons" (sans les guillemets)
tu obtiens exactement la même chose que la ligne de commande suivante :
Chemin = "C:Program Files (x86)Internet ExplorerIEXPLORE.EXE"
Shell Chemin & " -extoff", vbNormalFocus
'------------------------------------------------
Sub tests()
Dim MonIE As Object
Dim Adresse As String, T As Double
Adresse = "http://www.cjoint.com/" 'L'adresse à afficher
Set MonIE = CreateObject("InternetExplorer.Application")
MonIE.Navigate "about:NoAdd-ons" '<<<<=====
Do While MonIE.ReadyState <> 4
DoEvents
Loop
T = Timer + 1
MonIE.Navigate Adresse
Do While Timer < T
DoEvents
Loop
MonIE.Visible = True
End Sub
'------------------------------------------------
MichD
Publicité
Poster une réponse
Anonyme