Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel personnal.xlsb et menu personnel qui foirent

personnal.xlsb et menu personnel qui foirent

15 réponses
Avatar
PatrIck
Bonjour =E0 tous,

j'ai du faire une connerie et =E0 pr=E9sent mon menu perso en XL2007 se pla=
nte et ensuite mon personnal.xlsb qui est bien dans le r=E9pertoire XLSTART=
=E0 partir duquel le menu se cr=E9ait ne se charge plus...sauf si je doubl=
e clique sur ce personnal.xlsb.

Je mets ici le d=E9but (une macro dans le menu, il y en a 10 normalement) d=
e la cr=E9ation qui fonctionnait pourtant depuis 2005 !

Le message d'erreur est : "la m=E9thode 'onaction de l'objet _ commandbarbu=
tton a =E9chou=E9"

Merci de votre aide=20


Sub CreationMenu() '2005
Dim Monmenu As CommandBarControl
Dim Ajout As CommandBarPopup ' , Monmenu As CommandBar
Dim MenuItem As CommandBarControl

'Efface le menu s'il existe encore
DeleteNouveauMenu ' effacer avant de recr=E9=E9er

Set Monmenu =3D Application.CommandBars(1).FindControl(ID:=3D30010)

If Monmenu Is Nothing Then
' Add the menu to the end
Set Ajout =3D CommandBars(1).Controls.Add(Type:=3DmsoControlPopup, Temporar=
y:=3DTrue)
Else
' Add the menu before Help
Set Ajout =3D CommandBars(1).Controls.Add(Type:=3DmsoControlPopup, before:=
=3DMonmenu.Index, Temporary:=3DTrue)
End If

' ajoute l'=E9tiquette au menu
Dim Auteur As String
Auteur =3D "Menu personnel" 'plus complet ( 02/2015 )
Ajout.Caption =3D Auteur

' Premier ITEM du MENU

Set MenuItem =3D Ajout.Controls.Add(Type:=3DmsoControlButton)
With MenuItem
.Caption =3D "Propri=E9tes du document"
.FaceId =3D 162 'ic=F4ne =E0 c=F4t=E9 du texte de commande
'---- c'est sur cette ligne que =E7a plante
.OnAction =3D "Prop" 'Nom de la macro - qui existe bien sur=20
'-----
End With
end sub


Sub DeleteNouveauMenu()
On Error Resume Next
Dim Auteur As String, Caption
Auteur =3D "Menu personnel"
Caption =3D Auteur
CommandBars(1).Controls(Auteur).Delete
End Sub
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
1 2
Avatar
Patrick
Je reviens avec ça parce que j'ai trouvé un code qui se rapproche de ce
que je voudrais mais sans passer par des trucs compliqués, mais je
pédale un peu...Et pas envie d'étudier la méthode "CustomUiEditor".

Il est avec ça possible de garder mon menu habituel et à sa droite un
nouveau que je dois mettre au point pour une autre personne mais en
attendant, je tiens à avoir les 2 dans le nouvel onglet "développeur"

Si une personne a le temps de regarder à ça et de commenter ce qu'il
faut changer pour arriver à mes fins, ça sera sympa :)

Patrick

le fichier:
http://www.cjoint.com/c/FACqPBnbG4H


Le 27-01-16 14:07, Patrick a écrit :
Pas de soucis....

Je pensais qu'avec la méthode "classique" telle que tu la donnes et que
j'avais, on pouvait y arriver en modifiant un peu.
Je vais m'arranger autrement parce que assimiler ça en +...déjà que je
maitrise si peu le VBA :)

Merci de ton aide

Patrick


Le 27-01-16 13:55, MichD a écrit :
OK! tu fais référence au ruban.

Désolé pour toi mais je ne réponds pas à ce type de question.
La seule réponse que je donne, c'est l'adresse du site de
Ron de Bruin. Ce site est relativement complet sur le sujet
mais cela demande un certain temps pour comprendre et assimiler
ces explications...

http://www.rondebruin.nl/

Bon travail,

MichD



Avatar
Péhemme
Bonsoir Patrick,

CustomUiEditor est une petite application qui te permet d'écrire les rubans
nécessaires à tes applications.
C'est un peu sommaire et délicat à utiliser.
Elle (cette application) te permet :
. de créer ton ruban avec les images de ton choix
. d'écrire en XML la construction de ce ruban et les instructions qui lient
les différents boutons de ton ruban aux instructions que tu reprendras dans
tes macros (callbacks).
Tout doit être détaillé sans erreur... Tu n'as qu'un contrôle sommaire.
Ensuite tu lies ces instructions à tes macros...
C'est un autre monde que celui de VBA avec lequel nous écrivions (et
détruisions) nos barres d'outils d'antan.

Michel


"Patrick" a écrit dans le message de groupe de discussion :
n8dgkm$1d25$

Je reviens avec ça parce que j'ai trouvé un code qui se rapproche de ce
que je voudrais mais sans passer par des trucs compliqués, mais je
pédale un peu...Et pas envie d'étudier la méthode "CustomUiEditor".

Il est avec ça possible de garder mon menu habituel et à sa droite un
nouveau que je dois mettre au point pour une autre personne mais en
attendant, je tiens à avoir les 2 dans le nouvel onglet "développeur"

Si une personne a le temps de regarder à ça et de commenter ce qu'il
faut changer pour arriver à mes fins, ça sera sympa :)

Patrick

le fichier:
http://www.cjoint.com/c/FACqPBnbG4H


Le 27-01-16 14:07, Patrick a écrit :
Pas de soucis....

Je pensais qu'avec la méthode "classique" telle que tu la donnes et que
j'avais, on pouvait y arriver en modifiant un peu.
Je vais m'arranger autrement parce que assimiler ça en +...déjà que je
maitrise si peu le VBA :)

Merci de ton aide

Patrick


Le 27-01-16 13:55, MichD a écrit :
OK! tu fais référence au ruban.

Désolé pour toi mais je ne réponds pas à ce type de question.
La seule réponse que je donne, c'est l'adresse du site de
Ron de Bruin. Ce site est relativement complet sur le sujet
mais cela demande un certain temps pour comprendre et assimiler
ces explications...

http://www.rondebruin.nl/

Bon travail,

MichD



Avatar
Patrick
Oui...

et c'est bien pour ça que je ne veux pas l'utiliser mais prendre plutôt
les menus "traditionnels" mais comme expliqué avant, je ne m'en sors pas...
Si tu as ouvert le fichier, tu trouveras peut être comment m'aider

Merci de ton attention

Patrick


Le 28-01-16 20:55, Péhemme a écrit :

Bonsoir Patrick,

CustomUiEditor est une petite application qui te permet d'écrire les
rubans nécessaires à tes applications.
C'est un peu sommaire et délicat à utiliser.
Elle (cette application) te permet :
. de créer ton ruban avec les images de ton choix
. d'écrire en XML la construction de ce ruban et les instructions qui
lient les différents boutons de ton ruban aux instructions que tu
reprendras dans tes macros (callbacks).
Tout doit être détaillé sans erreur... Tu n'as qu'un contrôle sommaire.
Ensuite tu lies ces instructions à tes macros...
C'est un autre monde que celui de VBA avec lequel nous écrivions (et
détruisions) nos barres d'outils d'antan.

Michel


Avatar
MichD
Bonjour,

Pour la procédure problématique, modifie-la de cette manière!
Ça roule...


'-----------------------------------------------------
Sub BarOpen()
Dim xBar As CommandBar
Dim xBarPop As CommandBarPopup
Dim bCreatedNew As Boolean
Dim n As Integer, m As Integer
Dim k As Integer, Auteur As String
On Error Resume Next
Set xBar = CommandBars(APP_NAME)

On Error GoTo 0
If Not xBar Is Nothing Then
xBar.Delete
Set xBar = Nothing
End If
Set xBar = Application.CommandBars.Add
With xBar
.Visible = True
.Name = APP_NAME
Set xBarPop = .Controls.Add(Type:=msoControlPopup, Temporary:=True,
before:=1)
End With

With xBarPop
.Caption = APP_NAME
.Visible = True
End With

With xBarPop
With .Controls.Add(Type:=msoControlButton)
.OnAction = "AlphaEnNum"
.Caption = "ALPHA EN NUMERIQUE"
.Style = msoButtonIconAndCaption
End With
End With

End Sub
'-----------------------------------------------------
Avatar
Patrick
Voilà :)

Encore une fois merci !!
C'est ça que je voulais :)

Bonne journée

Patrick

Le 28-01-16 22:13, MichD a écrit :
Bonjour,

Pour la procédure problématique, modifie-la de cette manière!
Ça roule...


'-----------------------------------------------------
Sub BarOpen()
Dim xBar As CommandBar
Dim xBarPop As CommandBarPopup
Dim bCreatedNew As Boolean
Dim n As Integer, m As Integer
Dim k As Integer, Auteur As String
On Error Resume Next
Set xBar = CommandBars(APP_NAME)

On Error GoTo 0
If Not xBar Is Nothing Then
xBar.Delete
Set xBar = Nothing
End If
Set xBar = Application.CommandBars.Add
With xBar
.Visible = True
.Name = APP_NAME
Set xBarPop = .Controls.Add(Type:=msoControlPopup, Temporary:=True,
before:=1)
End With

With xBarPop
.Caption = APP_NAME
.Visible = True
End With

With xBarPop
With .Controls.Add(Type:=msoControlButton)
.OnAction = "AlphaEnNum"
.Caption = "ALPHA EN NUMERIQUE"
.Style = msoButtonIconAndCaption
End With
End With

End Sub
'-----------------------------------------------------

1 2