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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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é
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...
-------------------------------------------------------
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
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)
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)
'------------------------------------ '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)
