Discussion :

[Bruce Campbell]

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

[aalex_38]

Une idée comme ça as-tu déja lancé une fois la macro sans problème, si oui, la barre est déja créée alors plantage.

Regardes les exemples sur le net, on essai toujours de supprimer la barre avant de la créer.