Probleme d'utilisation du parametre OnAction - C'est un peu Urgent -

Réponse acceptée !
Hello

Il faut que tu crées un chaine de caractère.

Ci dessous un exemple complet

Option Explicit
Function CommandBarAdd(oParentCommandBar As CommandBar, oMacroWrk As Excel.Workbook, sMacroName As String, sToolTip As String, lFaceID As Long, ParamArray args() As Variant) As CommandBarButton
    Dim oBtn As CommandBarButton
    Dim sOnAction As String
    Dim vArg As Variant
    Dim sSeperator As String
   
    Set oBtn = oParentCommandBar.Controls.Add
    oBtn.FaceId = lFaceID
    oBtn.TooltipText = sToolTip
    ' Ci dessous la construction de la chaine pour passer les parametres
    ' dans le OnAction
    sOnAction = "'" & oMacroWrk.Name & "'!'" & sMacroName
    If IsArray(args) Then
        For Each vArg In args
            sOnAction = sOnAction & sSeperator & """" & CStr(vArg) & """"
            sSeperator = ","
        Next
    End If
    'Mettre un Bpx ci dessous pour voir le resultat finale et la constitution de la chaine
    sOnAction = sOnAction & "'"
    oBtn.OnAction = sOnAction
End Function
'Demo code
Sub Test()
    Dim oCmdBar As CommandBar
 
    Set oCmdBar = CommandBars.Add
    'Passe les parametres pour créer la commande bar :
    'quel Doc, le nom de la commandebar, l'intitulé de TooltipText, le N° de l'icone, la parametre 1 et le 2
    CommandBarAdd oCmdBar, ThisWorkbook, "TestClick", "Show Msgbox", 2520, "fdede", "dada"
    'Nom de la nouvelle bar
    oCmdBar.Name = "Test2Bar"
    oCmdBar.Visible = True
End Sub
'Routine appellée par le Onaction avec parametre
Sub TestClick(Optional sParam1 As String, Optional sParam2 As String)
    MsgBox "Param1: " & sParam2 & ". Param2: " & sParam1
End Sub

@+

Zorglub