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:

---

1 2 3 4

Private Sub Workbook_Open() EntryProc End Sub

---

Classeur Macro complémentaire TestXLA.xla
Module InitProc

Code:

---

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:

---

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:oops:
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

Re,

A priori, en ajoutant ceci cela fonctionne bien

Code:

---

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 :D