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
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
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 ?
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
--- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
isabelle
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
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 ?
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
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
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
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
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
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
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
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
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.
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
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
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
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
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
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
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 :
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