Discussion :

[gecko404]

Bonjour,

J'essaye d'ouvrir une page avec internet mais je suis confronté à une erreur:

"Erreur d'exécution '-2147023170 (800706be)':
Erreur d'automation
Echec de l'appel de procédure distante."

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub PremierIE()
 
Dim IE As New InternetExplorer 
 
   IE.Navigate "www.google.fr"
 
   IE.Visible = True
 
   Set IE = Nothing
 
End Sub

Code venant d'ici.

j'ai également essayé comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim IE As InternetExplorer 
 
   Set IE = CreateObject("InternetExplorer.Application")
 
   IE.Navigate "www.google.fr"
 
   IE.Visible = True
 
   Set IE = Nothing
 
End Sub

J'ai bien pensé à activer les références.

Merci pour votre aide!

[Quentin77170]

Bonjour,

J'espère ne pas être hors sujet, mais si tu veux ouvrir simplement une page web, pourquoi ne pas passer par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.FollowHyperlink "http://www.google.com"

Pour information, j'ai essayé exactement ton premier code en activant la référence "Microsoft Internet Controls" et tout fonctionne... Comme je n'y connais rien dans le contrôle d'internet explorer par vba, je veux pas te dire de bêtises

Quentin

[gecko404]

Effectivement j'ai testé le code sur un autre pc (windows 7) et ça marche... Peut être le fait que je sois sous windows 8.

Ton code m'est suffisant, je souhaitais juste accéder à un site lorsque je clique sur un bouton dans un userform. Merci!