personnaliser sa barre d'outil

[ced]

Salut à tous,

je voudrais savoir si savez comment faire pour conserver la présentation de mes boutons de raccourcis, notamment une barre personnalisée afin que celle ci apparaisse même si le fichier est ouvert sur un autre système ou un autre ordinateur. Des macros sont affectées à ces boutons et sont directement engistrées dans le fichier concernée.

pourriez vous m'indiquer la manip à suivre pour satisfaire cette demande.

je vous remercie par avance
bonne journée

 

[Popeye]

Bonjour tout le monde
j'espere que cela correspond a ta demande

Application.CommandBars("youpi").Delete'si elle existe ca efface sinon ca fera rien
Application.CommandBars.Add(Name:="youpi").Visible = True
Application.CommandBars("youpi").Controls.Add Type:=msoControlButton, _
Id:=23, Before:=1
Application.CommandBars("youpi").Controls.Add Type:=msoControlButton, _
Id:=2950, Before:=2
Application.CommandBars("youpi").Controls(1).OnAction="mamacro1"
Application.CommandBars("youpi").Controls(2).OnAction="mamacro2"

voila
pour les Id bah faut regarder si tu peux en trouver d'autres ;o)

 

[sousou]

Le plus efficace est qu' a l'ouverture de ton fichier dans la macro auto_open, tu développe un code qui crée ta barre d'outils personnalisées

Ainsi elle sera associer réellement à ton fichier.

Dans ce code tu peux définir si elle doit disparaitre à la fermeture du fichier(c'est souvent beaucoup mieux) ou si elle doit rester sur chaque machine.

Pour cette création un exemple que je retire de l'appli planningDS .
Il yà du ménage à faire, mais les pistes sont là.


'Création de la barre de commande temporaire
Set mabarre = CommandBars.Add(Name:="planning", Position:=msoBarFloating, temporary:=True)
mabarre.Left = 0
mabarre.Top = 50
'Bouton popup(menu)
Set pop = mabarre.Controls.Add(Type:=msoControlPopup)
pop.Caption = "Employé"
pop.Controls.Add Type:=msoControlButton
'Bouton sous-menu
pop.Controls(1).Caption = "Nouveau"
pop.Controls(1).OnAction = "newfiche"
pop.Controls.Add Type:=msoControlButton
pop.Controls(2).Caption = "Abscences"
pop.Controls(2).OnAction = "absent"
'Trois boutons de commande
For i = 2 To 5
mabarre.Controls.Add Type:=msoControlButton
mabarre.Controls(i).Style = msoButtonCaption
Next
mabarre.Controls(2).Caption = "Type de calendrier"
mabarre.Controls(2).OnAction = "Créationtype"
mabarre.Controls(3).Caption = "Bilan"
mabarre.Controls(3).OnAction = "Bilan"
mabarre.Controls(4).Caption = "planning mensuel"
mabarre.Controls(4).OnAction = "mensuel"
mabarre.Controls(5).Caption = "Quitte"
mabarre.Controls(5).OnAction = "Quitte"
mabarre.Visible = True
Info.Show
End Sub

 

[ced]

je vous remercie pour cs réponses rapides et je l'espère efficace je vais essayer çà tout de suite !
par conte vous parlez de macro auto exécutable à l'ouverture du fichier !
Comment cela fonctionne t-il ? comment faire ?

merci pour ces nouvelles recommandations

A+

 

[sousou]

Dans le code VB du fichier, du ecris dans un module une macro appelée auto_open()

celle-ci se lance à chaque ouverture du fichier.

Sub auto_open()
Msgbox "Bonjour"
end sub

 

[Ti]

il n'y a même pas besoin de macro. Tu vas dans le menu Outils... Personnaliser...Barre d'outils... Attacher et tu sélectionnes la barre d'outils que tu veux attacher à ton fichier.

 

[ced]

salut à tous,

excusez moi pour mon insistance mais je viens d'essayer de prgmer ce que vous m'avez laisser, résultat rien ne fonctinne. Une chose que je ne comprend pas, dois je rentrer un lien spécififique pour des options d'excel et d'autre pour des macros spécialisées.
Autre question puis je conserver la mise en forme de mes boutons (boutons personnalisés).

Merci
A+

 

[Ti]

voilà un exemple de barre d'outil personnalisé "prêt à l'emploi" que tu peux reprendre très facilement, ça t'évitera les tâtonnements et les échecs. Tu n'auras que quelques données à changer pour l'adapter à ton besoin précis.

Ce lien n'existe plus

 

[Arno]

Ced
tu poses pleins de questions
ca suffit maintenant

bon call moi cet apm
je tenverrais les codes qui fonctionnent

ceux ecrit ci dessus sont tres bien, bravo, j'aurais pas fais mieux

Bravo a tous