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 :

Fermer totalement les Classeur xls qui ont été ouverts dans un WebBrowser [XL-2003]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Décembre 2009
    Messages
    58
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2009
    Messages : 58
    Par défaut Fermer totalement les Classeur xls qui ont été ouverts dans un WebBrowser
    Bonjour à ceux qui passeront par ici,

    Je visualise dans un WebBrowser des Classeurs ".xls".

    Mon souci est que malgré la fermeture de l'USF avec la tentative préalable de fermer ceux-ci (Au cas où ils soient ouverts bien que non visibles dans la barre d'Outils)

    Ils restent toujours présents dans les "VBAProjects" ... Etonnant! Non?

    Je pourrais n'en avoir rien à fiche, mais ils me plantent dans les autres procédures.

    Si quelqu'un peut m'aider, cela m'enlèvera une grosse épine du pied.

    Merci d'avance.

    Yann

  2. #2
    Membre averti
    Profil pro
    Inscrit en
    Décembre 2009
    Messages
    58
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2009
    Messages : 58
    Par défaut
    Bonjour à ceux qui pourraient être intéressés

    Une même action sur un contrôle ne semble pas accepter le vidage du WebBrowser
    et un autre évènement (Peut-être aussi une affaire de temporisation?)

    Sur mon image provoquant la fermeture de l'USF, j'ai donc ajouté:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub Image100_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    WebBrowser1.Navigate2 "about:blank"
    End Sub
     
    Private Sub Image100_Click()
    Call SUP_WEB ' Module de Fermeture des autres Classeurs
    Unload Me
    End Sub
    Tout est ainsi enfin propre entre " ActiveWorkbook" et " ThisWorkbook"
    et je n'ai plus de désordre ni de confusions par la suite.

    Amicalement, et au cas où cela puisse servir à quelqu'un.

    Yann

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

Discussions similaires

  1. Les 10 événements qui ont changé Internet selon les Webby Awards
    Par Katleen Erna dans le forum Actualités
    Réponses: 16
    Dernier message: 28/02/2021, 00h35
  2. Réponses: 2
    Dernier message: 22/10/2014, 15h18
  3. Copier des items selectionner qui ont été rechercher dans une checkedlistbox
    Par mlescaudron21 dans le forum Discussions diverses
    Réponses: 0
    Dernier message: 03/01/2012, 15h40
  4. Fermer un pdf ouvert dans un webbrowser!
    Par NejNej dans le forum Windows Forms
    Réponses: 1
    Dernier message: 09/10/2008, 15h52
  5. Réponses: 6
    Dernier message: 22/05/2007, 09h55

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