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 :

Focus Classeur


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    juillet 2002
    Messages
    61
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2002
    Messages : 61
    Points : 63
    Points
    63
    Par défaut Focus Classeur
    Bonjour à tous les membres du forum,

    Voila j'ai un Pb de focus d'un classeur
    Ci joint le code de mon Appli simplifié volontairement

    Code ClasseurTestXLA.xls
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Private Sub Workbook_Open()
       EntryProc
    End Sub
    Classeur Macro complémentaire TestXLA.xla
    Module InitProc
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Option Explicit
     
    Public LoadA As LoadAddInClass
     
    Public Sub EntryProc()
       If (LoadA Is Nothing) Then Set LoadA = New LoadAddInClass
    End Sub
     
    Public Sub ExitProc()
       Set LoadA = Nothing
      End Sub
    Module de classe: LoadAddInClass
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
     
    Option Explicit
     
    Private WithEvents App As Application
     
    Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
     ' App.EnableEvents = False
      ActiveWorkbook.Close SaveChanges:=True
    '  App.EnableEvents = True
      ExitProc
    End Sub
     
    Private Sub Class_Initialize()
       Set App = Application
    End Sub
     
    Private Sub Class_Terminate()
       Set App = Nothing
    End Sub
    Tous semble fonctionner mais lorsque j'ouvre un nouveau classeur" et ensuite que je ferme ClasseurTestXLA, je n'ai plus le focus sur classeur1
    Si je clique sur un Onglet du classeur Excel Plante...
    Par contre si je clique sur Excuter Macro et je fais Annuler J'ai à nouveau accès au classeur1 normalement !

    Quelqu'un à t'il une idée pour résoudre ce Pb ?

    Merci pour vos réponses

    Cordialement Laurent
    C++ BUILDER & DELPHI

  2. #2
    Membre du Club
    Profil pro
    Inscrit en
    juillet 2002
    Messages
    61
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : juillet 2002
    Messages : 61
    Points : 63
    Points
    63
    Par défaut
    Re,

    A priori, en ajoutant ceci cela fonctionne bien

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
     
    Option Explicit
     
    Public LoadA As LoadAddInClass
     
    Public Sub EntryProc()
       If (LoadA Is Nothing) Then Set LoadA = New LoadAddInClass
    End Sub
     
    Public Sub ExitProc()
       Set LoadA = Nothing
     '----------------------------------------------
       Application.SendKeys "{F8}", True
       Application.SendKeys "{F8}", True
    ' ----------------------------------------------
      End Sub
    mais ca ne m'explique pas pourquoi j'ai ce Pb
    C++ BUILDER & DELPHI

Discussions similaires

  1. [XL-2007] Focus sur 2e classeur Excel en VBA
    Par Fanfan2A dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 08/06/2015, 19h35
  2. garder le focus par un classeur en permanence
    Par abj8077 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 02/03/2011, 14h50
  3. [VBA-E]Conserver un classeur visible lorsqu'il perd son focus
    Par ClaudeGil dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 19/11/2006, 13h06
  4. Créer une fenêtre flottante qui ne peut avoir le focus
    Par BestofMac dans le forum Composants VCL
    Réponses: 4
    Dernier message: 17/07/2002, 11h46
  5. focus en C
    Par killpilot dans le forum C
    Réponses: 8
    Dernier message: 19/04/2002, 20h19

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