While in Excel, I use the code below to log in a website.

I would like the Internet Explorer (IE) window to be minimized (but not
invisible) the moment it pops up.

What can I add to the code for the IE window to be minimized?

-----------
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
With ie
.Visible = True
.navigate "https://www.xxx.com"
Do While .ReadyState < 4: Loop
With .Document.all
.lid.Value = "username"
.pwd.Value = "password"
.submit.Click
Do While ie.ReadyState < 4: Loop
End With
End With
Set ie = Nothing

Here is some similar code. We activate the system menu with ALT+SPACE and
move down and minimize from the

Sub Launch_IE()

Set ie = CreateObject("InternetExplorer.Application")
ie.AddressBar = False
ie.MenuBar = False
ie.Toolbar = False
ie.Width = 610
ie.Height = 700
ie.Left = 0
ie.Top = 0
ie.navigate "http://www.cnn.com"

ie.resizable = True
ie.Visible = True
ActiveSheet.Activate
AppActivate ie
SendKeys ("% ")
SendKeys ("{DOWN}")
SendKeys ("{DOWN}")
SendKeys ("{DOWN}")
SendKeys ("{ENTER}")
DoEvents
End Sub

You can ignore the "window dressing" at the top of the macro.
--
Gary''s Student - gsnu200812


"AP" wrote:

While in Excel, I use the code below to log in a website.

I would like the Internet Explorer (IE) window to be minimized (but not
invisible) the moment it pops up.

What can I add to the code for the IE window to be minimized?

-----------
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
With ie
.Visible = True
.navigate "https://www.xxx.com"
Do While .ReadyState < 4: Loop
With .Document.all
.lid.Value = "username"
.pwd.Value = "password"
.submit.Click
Do While ie.ReadyState < 4: Loop
End With
End With
Set ie = Nothing

I would like the Internet Explorer window to be
minimized the moment it pops up.

.navigate "https://www.xxx.com"


LOL :-)))

Well, visiting THAT particular web-site, would probably also want me to
minimize it straight away, if opening it on my work computer :-)))


CE