Accéder à un objet créé dans un autre module

Bonjour à tous,

le titre n'est peut-être pas très juste, mais voilà le soucis :

Depuis Access, j'ouvre Internet Explorer avec le module suivant :

Code:

---

1 2 3 4 5 6 7 8

Sub OuvertureIe()   Dim ie As Object   Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True   End Sub

---

Dans un autre module (obligatoirement un autre module !!), je voudrais pouvoir pilote le même Object, et j'utilise :

Code:

---

1 2 3 4 5 6 7 8 9

Dim ie As Object Dim Url(2) As Variant 'Page Web à parcourir Dim i As Integer   Set ie = GetObject(, "InternetExplorer.Application") 'ie.Visible = True   Url(0) = "L'adresse à atteindre.html" ....

---

Mais j'obtiens une erreur sur

Code:

---

Set ie = GetObject(, "InternetExplorer.Application")

---

avec le message : Erreur d'excécution '429' - Un composant ActiveX ne peut pas crééer d'objet".

Qu'elle est la syntaxe correcte pour réaliser celà ??? :cry:

Merci d'avance pour l'aide.
Curt

Bonjour,

Ta variable ie est locale et donc privée donc tu ne peux la partager.
Dans ton cas, le mieux est d'employer une classe ou une fonction publique.
Le GetObject est risqué (et à bannir) dans le sens où tu ne peux pas être certain de récupérer la bonne instance (HWnd).
Quel est l'intérêt de ta demande ?

Argy

Bonjour Argy,

il y a des jours où je devrais m'abstenir de (me) poser des questions !!! :oops:
Ta remarque est des plus pertinente. D'autant qu'en plaçant tout dans une fonction, ça tourne sans problème...

Comme quoi, le problème se situait entre le fauteuil et le clavier :roll:

Merci :ccool:

Curt