Sujet Précédent Sujet Suivant

EXCEL VBA et CommandBar

MIC91 -  
LePierre Messages postés 249 Statut Membre -
Bonjour,

J'essaie de faire un programme VBA avec Excel 2000 . Je dois changer les barres de menu. Quand j'essaie le programme suivant, j'obtiens toujours "Erreur d'éxécution 5, Argument ou appel de fonction incorrect "

Sub Barre_menu()
Dim Cab As CommandBar
Set Cab = CommandBars.Add (Name:="Menu1")
End Sub

Qui pourrait m'aider, je rame depuis 2 jours.
Merci d'avance.
A voir également:

1 réponse

Réponse 1 / 1
LePierre Messages postés 249 Statut Membre 338
 
bonjour

Tu dois avoir l'erreur à la 2ème exécution du programme.

Si tu fais ceci la barre de menu est visible à la 1ère exécution. Ensuite il faut la supprimer si tu veux lancer à nouveau le programme : 
Sub Barre_menu()
    Dim Cab As CommandBar
    Set Cab = CommandBars.Add(Name:="Menu1")
    CommandBars("Menu1").Visible = True
    'CommandBars("Menu1").Delete
End Sub

Pour éviter ce problème utilise : 
Sub test()
    foundFlag = False
    For Each bar In CommandBars
        If bar.Name = "Menu1" Then
            foundFlag = True
            bar.Visible = True
        End If
    Next
    If Not foundFlag Then
        Set Cab = CommandBars.Add(Name:="Menu1")
        CommandBars("Menu1").Visible = True
    End If
End Sub

à plus
2