IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Comment associer un objet VBA à une fenetre POP UP en .jsp ouvert avec IE


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Homme Profil pro
    Ingénieur sécurité
    Inscrit en
    Octobre 2015
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Loire (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur sécurité

    Informations forums :
    Inscription : Octobre 2015
    Messages : 5
    Par défaut Comment associer un objet VBA à une fenetre POP UP en .jsp ouvert avec IE
    Bonjour,
    Je suis sur une petit projet qui consiste à automatiser de la saisi sur un site web.
    Grace au tutoriel de Qwazerty, J'arrive a interagir avec la page web ( Merci super travail )

    Une des actions m'ouvre une nouvelle page en .jsp
    une sorte de pop up IE sans barre d'adresse. ( ==> barre d'adresse visible quand je réalise l'opération en manuelle avec CHROME, c'est là que j'ai récupéré l'URL)
    Je souhaite accéder a cette page mais je n'y arrive pas :

    J'utilise la fonction suivante avec l'URL de la page en question. mais aucun résultat. En cherchant un peu j'ai remarque que cette page n'apparaissait pas dans "objShell.Windows"

    Ci dessous la fonction utiliser et une capture d'ecran de la page en question.

    Merci d'avance a ceux qui prendront le temps de se pencher sur ce problème.


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Function GetobIEOBject(URL As String) As Object
        Dim objShell As Object
        Dim obj As Object
        Set objShell = CreateObject("shell.application")
        For Each obj In objShell.Windows
            If TypeName(obj.document) = "HTMLDocument" Then
                If obj.LocationURL = URL Then Set GetobIEOBject = obj
            End If
        Next obj
    End Function
    Images attachées Images attachées  

Discussions similaires

  1. Réponses: 3
    Dernier message: 19/06/2019, 21h23
  2. comment rendre impossible de resizer une fenetre?
    Par HiT dans le forum AWT/Swing
    Réponses: 2
    Dernier message: 02/04/2006, 17h08
  3. Réponses: 13
    Dernier message: 09/03/2006, 18h17
  4. comment modifier les widgets dans une fenètre??
    Par afrikha dans le forum GTK+ avec C & C++
    Réponses: 6
    Dernier message: 14/10/2005, 14h48

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo