BARRE D'OUTILS

Bonjour.

Colle ce code dans le module ThisWorkBook de ton fichier spécifique.
Ta barre d'outils étant attachée a ce classeur et s'appelant MaBarre.
Il te faudra prévoir dans ce fichier un moyen pour retourner sur les autres classeurs.

Sub GestionInterface(Optional etat As Boolean = True)
Static TblCb() As Boolean
Static NbCb As Integer
Dim Cb As Integer
Select Case etat
Case True 'bloquage
With Application
.ScreenUpdating = False
NbCb = .CommandBars.Count
ReDim TblCb(1 To NbCb)
For Cb = 1 To NbCb
With .CommandBars(Cb)
TblCb(Cb) = .Enabled
.Enabled = False
End With
Next Cb
End With
Case False 'debloquage
With Application
.ScreenUpdating = False
For Cb = 1 To NbCb
.CommandBars(Cb).Enabled = TblCb(Cb)
Next Cb
End With
End Select
End Sub

Private Sub Workbook_Activate()
GestionInterface
With Application.CommandBars("MaBarre")
.Enabled = True
.Visible = True
End With
End Sub

Private Sub Workbook_Deactivate()
GestionInterface False
Application.CommandBars("MaBarre").Visible = False
End Sub

Alain CROS.

"Leslie Reverdy" <l.reverdy@cg38.fr> a écrit dans le message de news: 3F9E29CD.A1BB5A1A@cg38.fr...

Bonjour à toutes et tous,
j'ai un gros souci sur Excel alors j'en apelle à vous, forum, fin savant
de ce logiciel pour répondre à mes interrogations.
Question:
Je souhaite afficher ma barre d'outils personnalisée que j'ai crée et
enlever toutes les autres (standard, mise en forme,....) dans un fichier
spécifique et que cette manip se retrouve à chaque fois que l'on ouvrira
ce fichier sur n'importe quel ordinateur
MERCI D'AVANCE
Leslie