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! 🙂