bonjour
j ai des macros complementaires qui normalement doivent créés des boutons dans l onglets complement par cette syntaxe
est ce que quelqu un peut me dire ce qui cloche car cela fonctionnait sur 2003
merci d avance
j ai des macros complementaires qui normalement doivent créés des boutons dans l onglets complement par cette syntaxe
Code:
Private Sub Workbook_Open()
Dim bouton As CommandBarButton
On Error Resume Next
Set bouton = Application.CommandBars("Standard").Controls("Fichier Uwin")
On Error GoTo 0
If Not bouton Is Nothing Then Exit Sub
With Application.CommandBars("Standard").Controls.Add(msoControlButton)
.Caption = "Fichier Uwin"
.OnAction = "USF_portable"
.FaceId = 1062
.TooltipText = "Ctrl+u"
.Style = msoButtonIconAndCaption
.BeginGroup = True
'Application.MacroOptions Macro:=.OnAction, HasShortcutKey:=True, ShortcutKey:="e"
End With
End Sub
merci d avance