Si comme moi vous avez été confronté à des problèmes de saturation mémoire sur de grosses applications, vous pouvez utiliser ce code peu après le démarrage de l'application pour fermer les fenêtres de codes. Vous réduisez ainsi le contenu de la pile GDI.
Ceci n'est valable que pour des applications non compilées.
Vous pouvez également l'utiliser via un raccourci clavier (macro autokeys) ou directement dans la fenêtre d'exécution.
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 Public Function CloseAllVbeWindows() ' Auteur : Fabrice CONSTANS MVP ' http://loufab.developpez.com ' http://2gm.free.fr ' Ferme toutes les fenêtres du VBE ' permet de réduire les handles GDI et d'éviter la saturation de la pile. Dim i As Integer Dim j As Integer On Error Resume Next For i = 1 To Application.VBE.VBProjects.Count For j = 1 To Application.VBE.VBProjects(i).VBE.Windows.Count If Application.VBE.VBProjects(i).VBE.Windows(j).Type = 0 Then '_ 'Or Application.VBE.VBProjects(i).VBE.Windows(j).Type = 6 Then ' les fenetres de code + la fenetre projet Application.VBE.VBProjects(i).VBE.Windows(j).Close End If Next Next Exit Function End Function
Partager