Bonjour,

Quand je lance ma macro, il me met une erreur de procedure incorrect sur "Application.CommandBars.Add(..." , je vois pas pourquoi.
Help me plz


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_Open()
 
If ActiveWorkbook.ReadOnly = False Then
    Application.CommandBars.Add(Name:="test").Visible = True
    Set Nouveau = Application.CommandBars("test").Controls.Add(msoControlButton, ID:=2950, Before:=1)
 
    With Nouveau
        .Caption = "Export"
        .FaceId = 270
        .OnAction = "tableau"
    End With
End If
 
 
End Sub