Utilisation fonction paramètre sortie objet Internet Explorer et reutilisation

[elgringo123456]

Bonjour Maitres EXCEL !!!!,

Je vous sollicite sur la problématique suivante : utilisation en paramètre de sortie d'un objet "Internet Exporer" et réutilisation de ce paramètre en entrée.

Je sais, je ne suis pas vraiment claire ...

Je fait appel à un objet "Internet Explorer" dans une fonction et l'objectif est de récupérer cet objet et de le re utiliser.

Dans l'exemple joint, la fonction Launch1 utilise un objet "Internet Explorer" et la procédure "Général" doit le recuperer.

J'ai une erreur de type "Utilisation incorrecte".

Quelle est l'erreur commise afin de pouvoir transferer cet objet ?

Merci d'avance de votre aide ou eclaircissement sur ce sujet,
Cordialement.
El Gringo 123456

 

[Compte Supprimé 979]

Re : Utilisation fonction paramètre sortie objet Internet Explorer et reutilisation

Salut elgringo

Je n'ai pas tout compris, mais c'est comme ça que ça marche

Sub General()
  Dim Rep
  Rep = Launch1("[url=http://www.google.fr/]Google[/url]")
End Sub
Function Launch1(URLName As String)
' PRE REQUIS (1) + Ajout des références Microsoft HTML Object Library / Microsoft Internet Controls
  Dim IE As New InternetExplorer          ' Application Intenet Explorer
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = True  ' Affichage de Internet Explorer
  IE.navigate URLName
  ' Attente du téléchargement complet de la page HTML (avant de lancer la récupération)
  Do Until IE.readyState = READYSTATE_COMPLETE
    DoEvents
  Loop
  Launch1 = IE.Busy
End Function

A+

 

[elgringo123456]

Re : Utilisation fonction paramètre sortie objet Internet Explorer et reutilisation

Bonjour BrunoM45,

Merci beaucoup de tes explications pour faire fonctionner ma macro. Effectivement je n'étais pas claire du TOUT !!!

En fait, j'avais plusieurs erreurs dans mes lignes :
+ Dans la fonction Launch1 je devais réaliser un Set Launch1 = IE à la fin de ma fonction
+ Dans la procédure General, je ne devais pas implementer mon objet par un New

Ci-joint mon fichier final.

Dans tous les cas merci Merci bcp BrunoM45 cela m'a fait refelchir dans le bon sens.
Cordialement.
El gringo 123456