[WD-2010] Bouton fantôme dans le ruban

[knarf44]

Bonjour,
J’utilise office 2010.
J’ai ajouté un onglet de ruban personnalisé dans mon modèle normal.
J’ai aussi crée un modèle (.dotm).
Quand j’ouvre ce modèle, il m’ajoute à mon onglet personnalisé un groupe « commandes de menu » avec un bouton dedans que je ne veux pas. Je peux aisément le supprimer mais il réapparait dans tous les documents basés sur ce modèle.

Je précise que je traine ce modèle depuis de nombreuses versions de word (depuis word 6.0 je crois) en le faisant évoluer au gré des nouveautés. J’avais dans les versions précédentes ajouté des commandes dans les barres d’outils, puis des onglets dans office 2007.

J’ai supprimé (du moins je crois) toute référence à Ribbon ainsi que toute référence à des commandes bar. J’ai aussi réouvert mon document dans CustomUI pour vérifier qu’il n’y avait pas d’ajout.

Je ne sais plus quoi faire.

Quelqu’un peut m’aider ?

Merci

[Heureux-oli]

Salut,

C'est une relique d'un barre d'outil qui se trouve dans le modèle.
Il faut la supprimer, soit avec une version antérieure, soit par code.

[knarf44]

Merci, j'étais arrivé à la même conclusion mais je ne comprends pas comment tu conseilles de le supprimer ?

[Heureux-oli]

Salut,

Si c'est un document issu d'une version antérieure, les barres d'outils sont toujours actives, mais il n'est plus possible de les supprimer avec 2010.

soit tu supprimes en utilisant une version antérieure, soit tu utilises du VBA pour supprimer cette bare d'outils.

[knarf44]

Merci Oli,

Envoyé par Heureux-oli

Salut,
soit tu supprimes en utilisant une version antérieure

Il faut donc que je déterre un office 2003. Et je vais pouvoir supprimer les barres avec le modèle qui restera fonctionnel ?

Envoyé par Heureux-oli

soit tu utilises du VBA pour supprimer cette bare d'outils.

Ca me parait moins chronophage. Je vais commencer par ça. L'objet commandbar existe donc toujours ?

[knarf44]

Salut,
J'ai essayé ça :

Code :

1
2
3
4
5
6
7
8
For Each cb In CommandBars
 
        If cb.BuiltIn = False Then
            aa(i) = cb.Name
            i = i + 1
        End If
 
Next cb

Ca ne me donne rien (aucune barre non builtin) ?

Une autre idée ?

[knarf44]

Bonjour Olivier,

Grace à ta réponse qui m'a mis sur la voie, j'ai remarquer que mon bouton avait un toolipttext "Corriger une erreur". J'ai donc écris ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each cb In CommandBars
    For j = 1 To 50
        Set oldctrl = cb.Controls(j)
            If InStr(1, oldctrl.TooltipText, "Corriger", vbTextCompare) Then
            aa = oldctrl.TooltipText
            bb = cb.Name
            cc = cb.Controls.Caption
            dd = oldctrl.Name
            Stop
            oldctrl.Delete
            End If
    Next j
Next cb

Il a marché et m'a donné les informations qui m'ont permis d'écrire cette commande :

Code :

CommandBars("Menu Bar").Controls(11).Delete

Qui marche aussi.

Est-elle pérenne ou l'indice du bouton (11 ) peut-il changer. Et dans ce cas comment faire (il n'a pas de nom).

[Heureux-oli]

Saut,

L'indice peut changer.

[knarf44]

Merci de ta rapidité.

Je vais faire avec le caption alors.

[Heureux-oli]

Salut,

c'est le gros problème des indices.

Pour exemple, une demande "générale" est de pouvoir donner des noms aux tableaux, comme on peut le faire avec les images. On peut alors traiter un tableau avec certitude. Si on utilise l'indice, on risque de traiter un autre tableau.