Prb de macros dans barre d'outils !

[spierlot59650]

Bonjour à touts et à tous,

Mon problème est le suivant :

Sous Excell 2002, je gère un tableau avec une barre d'outil personnelle qui me permet de colorer des cellules selectionnées de la couleur adéquate. Ca Marche bien !!! Sur mon poste, il n'y'a aucun soucis, j'ai des belles icones que j'ai créé ,

Par contre sur un autre poste ma barre d'outils apparait toujours mais vide !!!

Pourquoi ? Why ? Waarom ? Porké ?

Steve


ps : mes icones de la barre d'outils appellent des macros faites en vba

 

[LPandre]

Re : Prb de macros dans barre d'outils !

Bonjour,
elles ne seraient pas dans ton classeur perso.xls des fois tes macros ?!
Parce que dans ce cas, elles n'existent que sur ton poste.

Soit les copier dans le classeur qui doit les avoir,
soit copier ton fichier perso sur les autres postes ( si il n'y a déja de fichier perso.xls sur ces postes)
soit faire un .xla
soit copier tes macros dans les modules des fichiers perso.xls des autres postes.

cordialement

 

[formateurmasque]

Re : Prb de macros dans barre d'outils !

Où ces macros sont stockées : les macros dans ce cas doivent être stockées dans perso.xls.

Il faut copier donc se fichier sur l'autre poste.

FM

 

[spierlot59650]

Re : Prb de macros dans barre d'outils !

Bien le Merci , la, solution est bel et bien dans un fichier XLA, cad 'des macros complémentaires'.
Pour info, sa mise en place n'est pas si aisée mais bon ça marche !

 

[spierlot59650]

Re : Prb de macros dans barre d'outils !

Bien le merci FormateurMasque !

 

[spierlot59650]

Re : Prb de macros dans barre d'outils !

bien le merci Lpandre

 

[spierlot59650]

Re : Prb de macros dans barre d'outils !

En fait, la solution XLA marche mais elle n'est pas pratique car il faut recharger la macro si vous devez la modifier. Ensuite, chaque poste doir recharge la macro compléméntaire.
Donc, l'idéal est de créer dans votre code une barre d'outils et les boutons qui vont bien.

Pour ceux que ça interesse voili le code :
'==================================================================' Gestion de la barre d'outils
'==================================================================
Public Sub BarreOutilProjet()

Dim sousMenu As CommandBarButton
Dim Chemin As String


Chemin = "[xxxx]\Planning\Img\"

Call CreationBarre("Projet")

[xxxx]
'création du bouton dans ma barre
' Mise en Robutesse
Set sousMenu = BarreOutil.Controls.Add(Type:=msoControlButton)
With sousMenu
.Style = msoButtonAutomatic
.Caption = "Rob."
.Picture = stdole.StdFunctions.LoadPicture(Chemin & "Vert.bmp")
.OnAction = "Module1.pRobutesse"
.TooltipText = "Positionne en Mise En Robutesse"
End With

[xxxx]

BarreOutil.Visible = True

End Sub

Public Sub CreationBarre(nom As String)

On Error GoTo TraiteERR
Set BarreOutil = Application.CommandBars.Add(Name:=nom, Position:=msoBarTop, Temporary:=True)

FIN:
Exit Sub

TraiteERR:
If Err <> 0 Then
Application.CommandBars(nom).Delete
Set BarreOutil = Application.CommandBars.Add(Name:=nom, Position:=msoBarTop)
End If

Resume FIN

End Sub
Public Sub SuppressionBarre()

On Error GoTo TraiteERR

Application.CommandBars("Projet").Delete

FIN:
Exit Sub

TraiteERR:
If Err.Number <> 5 Then ' L'erreur 5 arrive lorsque la barre n'a pas pu être supprimée
MsgBox " Erreur lors de la suppression de la barre d'outil OPM : " & Err.Description
End If

Resume FIN
End Sub


C tout !!!