[VBA-E]erreur sur création d'une barre de menu

bonjour,

à chaque ouverture d'un fichier une nouvelle barre de menu est créé.
Or il arrive que lors de l'exécution du code il bloque sur l'instruction.

Code:

---

1 2	Set newArbre = Application.CommandBars.Add("Arbre", msoBarTop, True, False)

---

il m'indique : erreur execution '5' : Argument ou appel de procédure incorrect.

j'ai donc essayer de remplacer application par workbooks("blablabla").comm...
, mais aussi en ne mettant rien.

je pense mais je n'en suis pas sûre qu'il attend un numéro d'index pour commandbars. Or je ne peux pas en mettre car je créer une nouvelle barre de menu.

je me demandais : Est-ce que comme pour l’ADO il faut cocher une option spéciale dans le menu Outils puis Références ?
ou alors faut il que je déclare une variable en object et qu'ensuite
set mavariable = createobject("commandbar et quelque chose")
with mavariable
etc


Si cela viens du code, dites le moi ou s’il faut cocher quelque chose

merci

PS : le pire c'est que ce code fonctionne de temps en temps mais pas tout le temps or je veux qu'il fonctionne tout le temps

Citation:

---

Envoyé par roseau

Or il arrive que lors de l'exécution du code il bloque sur l'instruction.

---

Ca veut dire que parfois ca fonctionne et parfois non?
En fait si ta barre existe déjà, ca ne doit pas fonctionner, car il ne peut re-créer une 2e barre avec le meme nom.
As-tu reellement besoin de créer la barre dynamiquement? Sinon tu n'as qu'a créer la barre manuellement et l'attacher à ce fichier Excel en particulier. Elle apparaitra alors a chaque ouverture du fichier.

Au pire avant de la créer (Add), tu contrôles qu'elle n'existe pas...

oui, mais même quand je fais le contrôle cela bloque

Code:

---

If Application.CommandBars("Arbre") Is Nothing Then

---

il me met la même erreur qu'avant (erreur d'execution '5')

et j'ai absolument besoin que la barre soit en dynamique

finalement j'ai réussi à résoudre le pb

Code:

---

1 2 3 4

For Each mabar In CommandBars Debug.Print mabar.Name 'pas obligatoire juste une aide en débug If mabar.Name = "Arbre" Then mabar.Delete Next

---

Code:

---

1 2 3 4 5 6 7 8 9 10

existCmdBar = False For Each cb In Application.CommandBars If cb.Name = "Arbre" Then existCmdBar = True Exit For End If Next cb If existCmdBar = False Then ' creation de la barre End If

---