Excel 2003 : Barres d'outils et Macro

On 8 fév, 18:38, - Tibo - <t...@yahoo.fr-nospam> wrote:

Bonjour,

J'ai un fichier contenant une serie de macro qui sont activé par des
boutons dans la barre d'outils. J'ai associer la barre d'outils en
question a mon fichiers. Cependant, si j'envoie le fichier à un collegue
par exemple, les boutons ne marchent plus, puisque ils sont lier aux
macro de mon fichier d'origine.

Comment peut on mettre en place la "portabilité" des macros lancer par
les boutons de la barre d'outils, lorsque j'envoie une copie de ce
fichier à un collegue ?

Merci beaucoup de votre.

Cordialement.

- Tibo -

Bonsoir,

A/Voici un fichier avec une BO attachée au classeur:

http://cjoint.com/?ciwybo8tRR

1- Lorsque le classeur est ouvert la première fois, les botons
pointent automatiquement vers les macros du classeur.
2- Il ne faut pas changer le classeur de répertoire (les boutons
pointent tj vers l'ancien répertoire- il faut alors supprimer
l'ancienne BO et ouvrir à nouveau le classeur. La BO s'installe à
nouveau correctement)
3- Si les macros sont spécifiques à ce classeur, supprimer la BO à la
fermeture du classeur

En principe, on utilise ce type de BO seulement pour les macros
utilisables pour tous les classeurs

B/ Voici un classeur avec une BO construite à l'ouverture et détruite
à l'ouverture

http://cjoint.com/?ciwESirwW0

http://boisgontierj.free.fr/pages_site/Menus.htm

Cordialement JB

Merci à tous de votre aide...

Il va falloir que je fasse des essais avec Excel 2003 et XP pour voir si
il y a une différence... En fait j'ai deja tester les differentes
solution proposé ici mais elle ne marchais pas sous XP, alors qu'elle
marche apparement bien sous 2003... Wait and see..

N'ayant pas Internet durant les 5 prochaines semaines, vous ne saurez
pas tout de suite si ça a marche.. desole.

@+

- Tibo -

On 8 fév, 18:38, - Tibo - <t...@yahoo.fr-nospam> wrote:

Bonjour,

J'ai un fichier contenant une serie de macro qui sont activé par des
boutons dans la barre d'outils. J'ai associer la barre d'outils en
question a mon fichiers. Cependant, si j'envoie le fichier à un collegue
par exemple, les boutons ne marchent plus, puisque ils sont lier aux
macro de mon fichier d'origine.

Comment peut on mettre en place la "portabilité" des macros lancer par
les boutons de la barre d'outils, lorsque j'envoie une copie de ce
fichier à un collegue ?

Merci beaucoup de votre.

Cordialement.

- Tibo -

Bonsoir,

A/Voici un fichier avec une BO attachée au classeur:

http://cjoint.com/?ciwybo8tRR

1- Lorsque le classeur est ouvert la première fois, les botons
pointent automatiquement vers les macros du classeur.
2- Il ne faut pas changer le classeur de répertoire (les boutons
pointent tj vers l'ancien répertoire- il faut alors supprimer
l'ancienne BO et ouvrir à nouveau le classeur. La BO s'installe à
nouveau correctement)
3- Si les macros sont spécifiques à ce classeur, supprimer la BO à la
fermeture du classeur

En principe, on utilise ce type de BO seulement pour les macros
utilisables pour tous les classeurs

B/ Voici un classeur avec une BO construite à l'ouverture et détruite
à l'ouverture

http://cjoint.com/?ciwESirwW0

http://boisgontierj.free.fr/pages_site/Menus.htm

Cordialement JB

"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
OPLUtc8SHHA.2256@TK2MSFTNGP02.phx.gbl...
Crée d'abord tes macros
Ensuite ta barre personnalisée
Attache via l'interface de la barre de calcul, les macros à chacun
des boutons de ta barre personnalisée
Attache ta barre à ton fichier
et utilise une adaptation du code du ThisWorkbook pour faire
la gestion de la disponibilité de ta barre d'outils


Et si tu veux pouvoir promener déplacer ton répertoire à volonté, modifie
la procédure que je t'ai soumis par celle-ci :

Tu n'as qu'à modifier le nom de la barre d'outils dans les procédures

'-------------------------------
Private Sub Workbook_Activate()

Dim C As CommandBarControl
On Error Resume Next
With Application.CommandBars("Denis_OK")
.Enabled = True
.Visible = True
.Protection = msoBarNoProtection
For Each C In .Controls
C.OnAction = Replace(C.OnAction, Mid( _
C.OnAction, 1, VBA.InStrRev( _
C.OnAction, "!") - 1), ThisWorkbook.FullName)
Next
.Protection = msoBarNoCustomize + msoBarNoChangeDock
End With
End Sub
'-------------------------------
Private Sub Workbook_Deactivate()
With Application.CommandBars("Denis_OK")
'.Protection = msoBarNoProtection
.Enabled = False
.Visible = False
End With

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