Lancer lien intranet

jeanphi · 26 Février 2010

Bonjour

J'essaye d'ouvrir un intranet avec ce code mais ca plante alors qu'il marche avec n'importe quel site WEB

Pouvez vous m'aider?
Merci

ub LanceCarto()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://vpnti/sipf/pf_dsi_cartographie_applicative/pf_cartographie_applicative_accueil.htm/"
IE.AddressBar = True
IE.MenuBar = True
IE.Toolbar = True
IE.Width = 1280
IE.Height = 800
IE.Resizable = True
IE.Visible = True
Set IE = Nothing
End Sub

jeanphi · 1 Mars 2010

Re : Lancer lien intranet

bonjour le forum

personne ne peut m'aider à comprendre ce qui se passe?

Staple1600 · 1 Mars 2010

Re : Lancer lien intranet

Bonsoir

En essayant avec ces modifications, cela donne quoi ?

Code:

Sub LanceCarto2()
Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate  "http://vpnti/sipf/pf_dsi_cartographie_applicative/pf_cartographie_applicative_accueil.htm"
IE.AddressBar = True
IE.MenuBar = True
IE.Toolbar = True
IE.Width = 1280
IE.Height = 800
IE.Resizable = True
IE.Visible = True
Set IE = Nothing
End Sub

jeanphi · 3 Mars 2010

Re : Lancer lien intranet

bonjour staple

cà marche parfaitement!
merci pour ton aide!

Lancer lien intranet

jeanphi

XLDnaute Occasionnel

jeanphi

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

jeanphi

XLDnaute Occasionnel

Discussions similaires