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