barre outils perso

Le
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é
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
andre
Le #26105472
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é
MichD
Le #26105462
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)
Publicité
Poster une réponse
Anonyme