Lancer lien intranet

[jeanphi]

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]

Re : Lancer lien intranet

bonjour le forum


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

 

[Staple1600]

Re : Lancer lien intranet

Bonsoir

En essayant avec ces modifications, cela donne quoi ?

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]

Re : Lancer lien intranet

bonjour staple

cà marche parfaitement!
merci pour ton aide!