Discussion :

[siuol]

Bonjour

j'ai le même problème que dans cette discussion depuis mon passage en exel 2007 sur tout classeur où j'ajoute simplement un menu personnalisé par :

Code :

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

1
2
3
4
5
    With Application.CommandBars(1)
        Set TransMenu = .Controls.Add(Type:=msoControlPopup)
    End With
 
TransMenu.Caption = "Automatismes"

Avez vous résolu ce problème ?

Cordialement

[patricktoulon]

bonjour


le

Code :

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

TransMenu.Caption = "Automatismes"

dois se trouver dans la boucle with end with et non pas a l'exterieur de la boucle sinon tuest obligé de l'ecrire comme ca

Code :

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

application.commanbar(1).TransMenu.Caption = "Automatismes"

voili voilou

au plaisir

[siuol]

bonsoir

sur votre conseil,

J'ai intégré le

Code :

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

TransMenu.Caption = "Automatismes"

dans le with

à noté qu'il fonctionnait sans problème en dehors...

Toutefois mon problème persiste.

Le processus EXCEL met 54 secondes à disparaître après la sortie d'EXCEL, avec une utilisation mémoire qui fluctue énormément.

72 000 Ko classeur ouvert.

il monte, après fermeture à 104 000 Ko avant de disparaître...

Si je retire le code de création de menu; ce problème disparaît !
et ce que depuis le passage de XP-2003 à 2007...

cordialement

[patricktoulon]

bonsoir

ca n'est pas" transmenu" mais ".transmenu"

au plaisir

en tout cas avant a l'exterieur il est impossible que ca fonctionnais ou alors il manque une bonne partie du code ou il y avais peut etre des variable globale

alors la sans le code au complet il sera difficile de t'aider


au plaisir

[pgz]

Bonjour Patrick.

Je crois que tu te trompes car Transmenu doit être une variable objet.

Pour siuol, tu libères bien toutes tes variables objets?

Cdlt,

PGZ

[siuol]

Le problème n'est pas au niveau du fonctionnement, mais de la libération du processus.

Je suis donc reparti d'un nouveau classeur vide, XXX.xlsm

j'y ai mis ce code.

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
Option Explicit
Dim maBar As CommandBarPopup
 
 
Private Sub Workbook_Open()
    ajouter_mon_menu
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    supprimer_mon_menu
End Sub
 
 
Sub ajouter_mon_menu()
    Set maBar = Application.CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
    maBar.Caption = "Mon Menu"
    With maBar.Controls.Add(msoControlButton)
    .Caption = "Sub 1"
    .OnAction = "M1"
    End With
    With maBar.Controls.Add(msoControlButton)
    .Caption = "Sub 2"
    .OnAction = "M2"
    End With
End Sub
 
 
Sub supprimer_mon_menu()
    Application.CommandBars("Worksheet Menu Bar").Controls("Mon Menu").Delete
End Sub

tout fonctionne bien mais le processus reste toujours actif un 60taine de secondes... empêchant de ré ouvrir un autre classeur.


Que doit-je libérer explicitement de plus ?

à noter que si j'utilise l'option : temporary:=True lors de la création du menu, et que je vide le Workbook_BeforeClose, le problème persiste...

merci éventuellement de tester ce code...


cordialement

Louis

[patricktoulon]

bonsoir

l'ajout et la reinitialisation de la commandbar est instantanée comme ceci:

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
38
39
40
41
42
43
44
45
 
Sub ajouter_mon_menu()
 'on declare les variables object pour la commandbar
Dim Cpop1 As CommandBarPopup
Dim Cbut As CommandBarButton
 
'on determine le nom de la barre que l'on veux modifier
Set MaBarre = Application.CommandBars("Worksheet Menu Bar")
 
'on ajoute le popup
With MaBarre
Set Cpop1 = .Controls.Add(msoControlPopup, , , , True)
    Cpop1.Caption = "Mon Menu"
End With
 
 'ôn ajoute le premier bouton au popup
Set Cbut = Cpop1.Controls.Add(msoControlButton)
'donc avec ce premier bouton
With Cbut
    .Caption = "Sub 1"
    .OnAction = "M1"
    .FaceId = le numero de l'id (l'icone de ton choix tu trouvera ca dans la faq) 
End With
 
'ôn ajoute le deuxieme bouton au popup
Set Cbut = Cpop1.Controls.Add(msoControlButton)
  'donc avec ce deuxieme bouton bouton
With Cbut
     .Caption = "Sub 2"
    .OnAction = "M2"
End With
End Sub
 
 
Sub supprimer_mon_menu()
Application.CommandBars("Worksheet Menu Bar").Reset
End Sub
 
Sub m1()
MsgBox "vous avez cliqué sur le premier bouton"
End Sub
 
Sub m2()
MsgBox "vous avez cliqué sur le deuxieme  bouton"
End Sub

au plaisir

[siuol]

Bonjour

Je pensais que vous m'aviez sauvé lorsque j'ai vu votre RESET à la place de mon DELETE sur le CommandBars("Worksheet Menu Bar")...

mais après des dizaines de tests infructueux, j'ai fini par copier/coller votre code en y ajoutant : dim MaBarre As CommandBar qui semblait manquer.


Le problème reste entier; tout fonctionne mais le Processus excel reste actif après fermeture ...

Même si je lance la sub de suppression à la main plutot que dans le BeforeClose

Même si je supprime le menu à la main...

AU fait.. comment doit on déclarer l'obljet CommandBars ?
à quel endroit ?

J'ai fait plusieurs test en vain.


Merci pour vos aides

Louis

[pgz]

Bonjour.

merci éventuellement de tester ce code...

Sur XL 2007, j'ai testé ton code, en ajoutant 2 sub M1 et M2 dans un module standard.
Tout fonctionne et après fermeture, je n'ai aucun processus Xl en cours d'exécution.

Apparemment le pb est lié à la configuration de ta machine. A moins qu'il y ait d'autres modules que tu n'as pas donnés.

Cordialement,

PGZ

[siuol]

Merci beaucoup pour ce test PGZ

je vais essayer de le tester autre part car sur plusieurs postes de mon réseau, le comportement est le même

encore merci

Louis