Discussion :

[curt]

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 :

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

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 :

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

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 :

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

    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à ???

Merci d'avance pour l'aide.
Curt

[argyronet]

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

[curt]

Bonjour Argy,

il y a des jours où je devrais m'abstenir de (me) poser des questions !!!
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

Merci

Curt