Discussion :

[retraite83]

Bonjour,

j'ai un phénomène curieux à l'ouverture d'un classeur Excel lors de la fermeture de l'appelant par ma macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ESclose As String
ESclose = "\REFERENTIEL\ES-Close SIG.xlsm"
 
' Ouverture du fichier "Close du SIG
Workbooks.Open ThisWorkbook.path & ESclose
 
End Sub

Le classeur s'ouvre bien mais occupe tout l'écran, plus aucune ligne de commande Excel, obligé de casser Excel via le gestionnaire de tâches

PS: Après d'autres tests complémentaires, le problème ne survient que lorsque je ferme le classeur avec la croix "X" en haut à gauche et pas lorsque je ferme par "fermer" de Excel

[MarcelG]

Bonsoir,

Sans doute, une procédure à l'ouverture du classeur.

Dans ce cas, avant l'ouverture

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = False

Regarde ensuite dans l'objet Thisworkbook la présence de cette procédure évènementielle.

Astuce:
Pour ouvrir un classeur en désactivant la procédure évènementielle, laisser la touche Shift enfoncée.

A titre d'information, pour rétablir l'environnement

A adapter.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Public Sub affichage_normal()
 
  Dim bar
  Dim wk As Worksheet
 
                For Each bar In Application.CommandBars
                          bar.Enabled = True
                Next
                 With Application
                      .ScreenUpdating = False
                      .WindowState = xlMaximized
                      .DisplayFullScreen = False
                      .DisplayFormulaBar = True
                      .DisplayStatusBar = True
                 End With
                With ThisWorkbook
                        For Each wk In .Worksheets
                                With wk
                                        .Visible = True
                                        .Activate
                                        With ActiveWindow
                                                .DisplayHeadings = True
                                                .DisplayHorizontalScrollBar = True
                                                .DisplayVerticalScrollBar = True
                                                .DisplayWorkbookTabs = True
                                        End With
                                End With
                        Next wk
                        .Worksheets("Saisie").Activate
                End With
 
                With Application
                     .DisplayFullScreen = False
                     .DisplayFormulaBar = True
               End With
 
End Sub

[retraite83]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = False

cela ne change rien

le problème ne survient que lorsque je ferme le classeur appelant avec la croix "X" en haut à droit et pas lorsque je ferme par "fermer" de Excel

Mais les utilisateurs ont tendance à fermer avec la croix...

[patricktoulon]

re
bonjour
quand ton sig close est ouvert appuie sur "esc" pour voir