Discussion :

[roseau]

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 :

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

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

[dadavyvy]

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...

[roseau]

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

Code :

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

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

[roseau]

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

Code :

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

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

[dadavyvy]

Code :

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

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