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
Classeur Macro complémentaire TestXLA.xlaCode:
1
2
3
4 Private Sub Workbook_Open() EntryProc End Sub
Module InitProc
Module de classe: LoadAddInClassCode:
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
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: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
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