Discussion :

[Dr walid]

Bonjour,

Dans cette fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub chose(varTexte As String, Nb As Integer)
' First, add two buttons to the menu.
 
            With Application.CommandBars.Add(Name:=Mname, Position:=msoBarPopup, MenuBar:=False, Temporary:=True)
            With .Controls.Add(Type:=msoControlButton)
                 .Caption = varTexte
                 .FaceId = 71 + Nb
                 .OnAction = "'" & ThisWorkbook.Name & "'!" & "TestMacro"
 
      End With
      End With
 
End Sub

Quand je fais l'appel suivant :

Code :

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

1
2
 
Call chose("Tous les types", 0)

ça fonctionne bien

Mais Quand je fais 2 appels ainsi:

Code :

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

1
2
3
        Call chose("Tous les types", 0)
 
         Call chose("Tous les types", 1)

le programme ne fonctionne plus, Svp pourquoi cette erreur et merci

[Daniel.C]

Svp pourquoi cette erreur et merci

Bonjour,

Quelle est l’erreur ?

[Dr walid]

Bonjour,

Erreur d’exécution '5'

Argument ou appel de procédure incorrect

[mercatog]

Code :

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

With Application.CommandBars.Add(Name:=Mname, Position:=msoBarPopup, MenuBar:=False, Temporary:=True)

Peut être tu veux créer 2 objets avec le même nom contenu dans la variable Mname

[Dr walid]

Bonsoir,

puis-je voir la modification sur le code pour bien comprendre et merci également.

Cdt

[mercatog]

A quoi sert ta variable Mname et qu'est ce qu'elle contient?