Bonjour à tous.
J'ai créé une application sous Excel qui fonctionne. Par contre, le fichier (qui pèse 1534Ko) met presque 3 minutes à se charger et il me faut autant de temps quand je quitte Excel. Pourquoi ?
Code VBA pour l'ouverture :
Code VBA pour la fermeture :
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 Sub Auto_Open() With Application .ScreenUpdating = False .DisplayFormulaBar = False .DisplayStatusBar = False .CommandBars("Formatting").Visible = False .CommandBars("Standard").Visible = False .CommandBars("PivotTable").Visible = False .CommandBars("WordArt").Visible = False .CommandBars("Reviewing").Visible = False .CommandBars("Picture").Visible = False .CommandBars("Chart").Visible = False .CommandBars("Web").Visible = False .CommandBars("Forms").Visible = False .CommandBars("External Data").Visible = False .CommandBars("Drawing").Visible = False .CommandBars("Visual Basic").Visible = False End With End Sub
Rien d'extraordinaire il me semble. Pourtant, lorsque je mets un point d'arrêt pour la fermeture, je constate que la sauvegarde se fait instantanément et que plus rien ne se passe, pendant presque 3 minutes lorsque l'appli quitte la ligne End Sub. J'ai parfois l'impression qu'il exécute une sous-routine ou quelque chose comme ça.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Sheets("SUIVI").Select Range("A1").Select ThisWorkbook.Saved = True With Application .DisplayFormulaBar = True .DisplayStatusBar = True .CommandBars("Formatting").Visible = True .CommandBars("Standard").Visible = True .ScreenUpdating = True End With End Sub
Quelqu'un a une idée ?
Partager