Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

barre outils perso

2 réponses
Avatar
andre
Bonjour,
Bonjour,
une bizarerie recente
ma barre d'outils perso ne s'ouvre plus
et retourne une erreur 5
Private Sub Workbook_Open()
Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton
'Création de la barre d'outils nommée 'MaBarrePerso'
Set CmdBar = Application.CommandBars _
.Add(Name:=" ", Position:=msoBarTop, Temporary:=True)
erreur 5
ou argument ou appel de procedure incorrecte
si vous voulez la suite du code dites moi
merci de votre aide

--
André

2 réponses

Avatar
andre
en complement
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("MaBarrePerso").Delete
End Sub
--------------------------------------------------------
Private Sub Workbook_Open()
Dim CmdBar As CommandBar
Dim Bouton As CommandBarButton
etc...
-------------------------------------------------------

--
André
Avatar
MichD
Bonjour,

'------------------------------------
'Création de la barre d'outils nommée 'MaBarrePerso'
Set CmdBar = Application.CommandBars _
.Add(Name:=" ", Position:=msoBarTop, Temporary:=True)
'------------------------------------


Si tu veux créer une barre d'outils appelée 'MaBarrePerso', bien il faut que
tu le spécifies dans le paramètre "Name" de la méthode "Add".
Tu ne peux pas laisser "Name" vide... le mieux que tu peux faire est
d'employer le caractère Chr(160) espace insécable.

Set CmdBar = Application.CommandBars _
.Add(Name:="MaBarrePerso", Position:=msoBarTop, Temporary:=True)