Discussion :

[Cahlagan]

Bonjour à tous,

J'utilise régulièrement la programmation en vba sous Excel, avec lequel je suis assez à l'aise. Mais j'ai dû passer par Word pour un fichier particulier... et là, c'est plus compliqué. J'ai réussi à créer des macros, que j'ai voulu regrouper dans un nouveau menu contextuel. Après passablement de recherches, j'ai récupéré une macro sur un site de programmation en rapport avec Word, macro qui a bien fonctionné sous Word et dans laquelle j'avais ajouté mes macros. Puis, je n'ai plus eu à utiliser le fichier pendant un certain temps. Or, j'ai voulu le reprendre et là, mon menu contextuel ne fonctionne pas. Comme il fonctionnait avant, que je n'ai rien changé et qu'il ne fonctionne plus maintenant, j'ai pensé que le problème pouvait venir d'une mise à jour. Mais je ne vois pas laquelle. Je précise que je travaille sous Mac (mac os Monterey 12.2.1), avec un iMac et un MacBook Pro (le problème est le même sur les deux machines).

La macro plante dès la deuxième ligne, avec ce message:

Erreur d'exécution "-2147467259 (80004005)
La méthode "Add" de l'objet "CommandBarControls" a échoué

Merci d'avance pour toutes les suggestions utiles que vous pourriez me faire!

Voici le début de code (je ne mets pas l'intégralité de la macro, qui est assez longue):

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
Sub Créer_menu_supplémentaire()
 
Dim cbMenu As CommandBarControl, cbSubMenu As CommandBarControl
Supprimer_menu_supplémentaire ' delete the menu if it already exists
 
Set cbMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&Menu personnalisé"
.Tag = "MyTag"
.BeginGroup = False
End With
 
'Set cbMenu = Application.CommandBars.FindControl(, 30007) ' Tools-menu
If cbMenu Is Nothing Then Exit Sub ' didn't find the menu...
 
 
' add menuitem to menu
'With cbMenu.Controls.Add(msoControlButton, 1, , , True)
'.OnAction = ThisWorkbook.Name & "!Macroname"
'End With
' add menuitem to menu
'With cbMenu.Controls.Add(msoControlButton, 1, , , True)
'.OnAction = ThisWorkbook.Name & "!Macroname"
'End With
 
 
'ajoute un sous-menu
Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
With cbSubMenu
   .Caption = "&Mettre à jour le menu personnalisé"
   .Tag = "SubMenu1"
   .BeginGroup = True
End With
'ajoute un sous-menu
With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
   .Caption = "&Adapter les libellés du menu personnalisé  "
   .OnAction = "MAJ_menu_Word"
   .Style = msoButtonIconAndCaption
   .FaceId = 50
   .State = msoButtonUp
End With

[E KERGRESSE]

Bonjour,

Chez moi sur pc, cela fonctionne correctement. J'ai dû recréer votre procédure de suppression.

Justement, quel est le code de votre procédure de suppression, si c'est elle qui pose problème ?

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
46
47
48
49
50
 
Option Explicit
 
Sub Créer_menu_supplémentaire()
 
Dim cbMenu As CommandBarControl, cbSubMenu As CommandBarControl
 
    Supprimer_menu_supplémentaire ' delete the menu if it already exists
 
    Set cbMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
    With cbMenu
         .Caption = "&Menu personnalisé"
         .Tag = "MyTag"
         .BeginGroup = False
    End With
 
    If cbMenu Is Nothing Then Exit Sub ' didn't find the menu...
 
    'ajoute un sous-menu
    Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
    With cbSubMenu
       .Caption = "&Mettre à jour le menu personnalisé"
       .Tag = "SubMenu1"
       .BeginGroup = True
    End With
 
    'ajoute un sous-menu
    With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
       .Caption = "&Adapter les libellés du menu personnalisé  "
       .OnAction = "MAJ_menu_Word"
       .Style = msoButtonIconAndCaption
       .FaceId = 50
       .State = msoButtonUp
    End With
 
End Sub
 
 
Sub Supprimer_menu_supplémentaire()
 
Dim I As Integer
 
    With Application.CommandBars(1)
         For I = .Controls.Count To 1 Step -1
             If .Controls(I).Caption = "&Menu personnalisé" Then .Controls("&Menu personnalisé").Delete
         Next I
    End With
 
 
End Sub

[Cahlagan]

Bonjour,

Merci pour votre réponse! Oups, je me suis trompé: ce n'est effectivement pas la deuxième ligne qui plante (celle qui demande de supprimer le menu personnalisé), mais la suivante, qui contient le "Add" problématique.
La macro de suppression ne semble pas concernée. Voici tout de même le code:

Code :

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

1
2
3
4
5
Sub Supprimer_menu_supplémentaire()
 
    DeleteCustomCommandBarControl "MyTag" ' deletes the new menu
 
End Sub

J'ai essayé avec votre code, il fonctionne. C'est toujours lors de la création du menu que la macro plante.

[E KERGRESSE]

Etes-vous certain que le menu est supprimé avant de recréer votre nouveau menu ?
Quand j'essaie votre procédure de suppression, elle plante (peut-être une spécificité de Mac). Essayez la mienne dans votre procédure.

[Cahlagan]

J'ai essayé votre procédure, qui semble fonctionner correctement. Cela semblait aussi le cas pour celle que j'utilisais.
Mais quelle que soit celle que j'utilise, le lancement de la macro censée créer le menu supplémentaire plante.

Faut-il réinitialiser quelque chose, pour être sûr que le problème ne vienne pas de là (ou une procédure pour vérifier si le menu a correctement été supprimé)?

[E KERGRESSE]

Faut-il réinitialiser quelque chose, pour être sûr que le problème ne vienne pas de là (ou une procédure pour vérifier si le menu a correctement été supprimé)?

Dans quel document sont stockées vos procédures ? Document en cours, Normal.dot ?

[Cahlagan]

J'ai créé un fichier .docm pour qu'il intègre les macros (qui d'ailleurs fonctionnent correctement lorsqu'on les appelle depuis le module Macros).
Par contre je ne suis pas sûr de les avoir toutes stockées au même endroit (j'étais habitué à Excel, où une macro n'affecte habituellement que le fichier dans lequel elle se trouve).
Pensez-vous que mon problème pourrait venir de là?

Merci pour votre aide, en tout cas!

[E KERGRESSE]

A partir de l'éditeur VBA, et en développant la partie Normal.dot, vous devriez voir ce qu'il contient. Chez moi, je n'ai aucune procédure dans mon Normal.dot.

[Cahlagan]

Merci pour le schéma. Après avoir vérifié, je n'ai rien non plus sous Normal.
Les macros sont bien présentes dans le fichier, présent sous Normal, comme dans votre exemple.

[E KERGRESSE]

Cela n'a rien à voir, mais mes procédures n'ont jamais de caractères accentués dans leur nom pour qu'elles soient utilisables sur n'importe quelle machine.
Sinon, désolé, je ne vois pas.

[Cahlagan]

Ce qui m'étonne le plus est qu'elle fonctionnait sans problème, il y a quelques mois (sans que j'aie rien modifié depuis). Je ne comprends pas ce qui la fait bloquer.
Savez-vous où je pourrais trouver un exemple "propre" de création de menu supplémentaire? Je pourrais peut-être l'adapter et voir si celle-ci fonctionne mieux.

[E KERGRESSE]

Regardez si votre menu "&Menu personnalisé" est toujours dans Word avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub IdentifierLesControlesDansLeMenu()
 
Dim I As Integer
 
    With Application.CommandBars(1)
         For I = .Controls.Count To 1 Step -1
            Debug.Print I & " : " & .Controls(I).Caption
         Next I
    End With
 
End Sub

Vous pourriez supprimer votre Normal.dot, Word va en regénérer un (si vous n'avez pas confiance, rebaptisez le).
Ce fichier se situe dans vos templates : C:\Users\ Votre user \AppData\Roaming\Microsoft\Templates (à voir si c'est la même chose sur Mac)

En ce qui concerne le code, le mien n'est pas forcément propre, mais je n'utilise pas tous les paramètres présents dans votre 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Option Explicit
 
Sub Creer_menu_supplementaire()
 
Dim cbMenu As CommandBarPopup
Dim cbSubMenu As CommandBarControl
 
    Supprimer_menu_supplementaire ' delete the menu if it already exists
 
    Set cbMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
    With cbMenu
         .Caption = "&Menu personnalisé"
         .TooltipText = "Version du 27/02/2022 - Contact XXXX au XX-XX-XX-XX-XX"
         .BeginGroup = False
    End With
 
    If cbMenu Is Nothing Then Exit Sub ' didn't find the menu...
 
    'ajoute un sous-menu
    Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
    With cbSubMenu
       .Caption = "&Mettre à jour le menu personnalisé"
       .BeginGroup = True
    End With
 
    'ajoute un sous-menu
    With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
       .Caption = "&Adapter les libellés du menu personnalisé"
       .OnAction = "MAJ_menu_Word"
    End With
 
    Set cbMenu = Nothing: Set cbSubMenu = Nothing
 
End Sub
 
 
Sub Supprimer_menu_supplementaire()
 
Dim I As Integer
 
    With Application.CommandBars(1)
         For I = .Controls.Count To 1 Step -1
             If .Controls(I).Caption = "&Menu personnalisé" Then .Controls("&Menu personnalisé").Delete
         Next I
    End With
 
 
End Sub

[Cahlagan]

Malheureusement, cela ne fonctionne pas mieux. J'ai enlevé le fichier Normal.dotm (pas trouvé de Normal.dot), qui était dans Modèles.
Mais la macro plante toujours au moment d'appliquer la procéure "Add".

Serait-il utile de repartir à partir d'un fichier Word vierge?

[E KERGRESSE]

Rien ne vous empêche d'essayer. Ci-joint, mon fichier.

[Cahlagan]

Rien à faire. J'ai essayé depuis votre fichier, c'est la ligne

Code :

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

Set cbMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)

qui bloque, avec le même message d'erreur.
La macro incluse fonctionne (message "La macro fonctionne!"), celle identifiant les contrôles dans le menu s'exécute sans message. Qu'est-elle censée indiquer et dans quel cas de figure le fera-t-elle?

[E KERGRESSE]

Les Debug.Print sont lisibles dans la fenêtre exécution Ctrl-G. Tous les contrôles présents dans le menu Word vont être listés avec cette commande. Il faut vérifier que le menu "&Menu personnalisé" n'est plus présent une fois lancée votre commande de suppression.

[Cahlagan]

Merci pour les explications. J'ai bien vérifié: la fenêtre Exécution est vide.
A vrai dire je ne sais plus très bien dans quelle direction chercher, mais merci malgré tout de votre aide!

[Cahlagan]

Message à E KERGRESSE

Bonjour,

Je me permets encore de vous solliciter, car j'ai repris le fichier que vous m'avez adressé. Il plante, comme le mien, mais en relançant la macro IdentifierLesControlesDansLeMenu, la mention "1 - Barre d'état" est apparue dans la fenêtre Exécution. Cela signifie-t-il que le menu personnalisé n'a pu être supprimé?

[E KERGRESSE]

Bonjour,

Sauf erreur de ma part "1 - Barre d'état" ne fait pas partie du menu ajouté par la macro. En revanche, si vous ne voyez plus "&Menu personnalisé" en premier dans la fenêtre exécution, c'est que le menu a disparu.

[Cahlagan]

Merci pour votre réponse! Cela signifie donc que le menu personnalisé a bien disparu et que le plantage ne vient pas de là. Je me demande s'il ne s'agit pas d'une différence entre Mac et PC. Au travail, j'ai un PC. Je vais tester votre macro. Si elle fonctionne, cela voudrait dire que le dysfonctionnement vient plutôt du Mac, non?