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 :

Click sur WEBBROWSER dans un userform excel [XL-365]


Sujet :

Macros et VBA Excel

  1. #1
    Membre à l'essai
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Décembre 2019
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2019
    Messages : 18
    Points : 16
    Points
    16
    Par défaut Click sur WEBBROWSER dans un userform excel
    bonjour,

    j'ai un petit userform dans lequel j'ai mis un webbrowser uniquement pour afficher un gif animé.

    j'aimerai que quand je click dessus , il m'ouvre un autre userform

    j'ai déjà essayé de mettre un Label transparent en avant plan pour pouvoir le faire mais celui ci se met directement derrière le webbrowser a l'ouverture .

    et je n'ai rien trouvé niveau action onmousedown, click sur le webbrowser, ou autre pour pouvoir le faire

    merci

  2. #2
    Membre averti
    Profil pro
    au repos
    Inscrit en
    Février 2013
    Messages
    160
    Détails du profil
    Informations personnelles :
    Localisation : Saint-Pierre-Et-Miq.

    Informations professionnelles :
    Activité : au repos

    Informations forums :
    Inscription : Février 2013
    Messages : 160
    Points : 336
    Points
    336
    Par défaut
    Salut,
    Si la fonction recherchée est de déclencher un événement lorsque l'on clique dans le WebBrowser, on peut le faire en passant par l'objet document de type HTMLDocument du WebBrowser.
    Voici comment faire par exemple :
    1 - Cocher dans les références Microsoft HTML Object Library
    2- Ajouter le code suivant :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Private WithEvents doc As HTMLDocument
     
    Private Function doc_onclick() As Boolean
     MsgBox "Clic sur le WebBrowser"
    End Function
     
    Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    WebBrowser1.Document.body.Scroll = "no"
    Set doc = WebBrowser1.Document
    End Sub
    Nullosse, le plus nul des apprentis programmeur

  3. #3
    Membre à l'essai
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Décembre 2019
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : Belgique

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2019
    Messages : 18
    Points : 16
    Points
    16
    Par défaut
    Impeccable tout fonctionne comme je le souhaitais , un grand merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2007] Problème de click sur lien dans un webbrowser !
    Par Atomix85 dans le forum Macros et VBA Excel
    Réponses: 13
    Dernier message: 06/12/2016, 19h47
  2. Interception click sur objets dans UserForm
    Par oliv134 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 10/10/2012, 01h54
  3. Test sur valeurs dans un classeur excel
    Par driver dans le forum VB.NET
    Réponses: 6
    Dernier message: 02/02/2009, 18h19
  4. [POO] Simuler envoi de click sur élément dans une page HTML
    Par opsi dans le forum Général JavaScript
    Réponses: 6
    Dernier message: 09/09/2008, 14h24
  5. [ASPX C#] pb click sur boutton dans usercontrol
    Par Netah dans le forum ASP.NET
    Réponses: 7
    Dernier message: 03/04/2008, 10h08

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