Bonjour Thomas, le Forum,
Extrait du code de Didier mDF dans son EXCELlent Calendrier. Didier, j'en profite pour te saluer au passage et te remercier pour ce travail.
A mettre dans ThisWorkbook :
Private Sub Workbook_Open()
Dim BtnB As CommandBarButton
On Error Resume Next
Set BtnB = Application.CommandBars('Standard').Controls('Recherche')
On Error GoTo 0
Suite:
If Not BtnB Is Nothing Then Exit Sub
With Application.CommandBars('Standard').Controls.Add(msoControlButton)
.Caption = 'Recherche'
.BeginGroup = True
.FaceId = 1987 ' ici, tu peux personnaliser ton bouton avec la figure de ton choix
.Style = msoButtonIconAndCaption
.OnAction = 'Bouton1_QuandClic'
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If Me.Saved = False Then Me.Save
Application.CommandBars('Standard').Controls('Recherche').Delete
On Error GoTo 0
End Sub
Ensuite tu transformes ton Xls en Xla, tu l'installes dans le dossier Macrolib (Program Files - Microsoft Office) ou Macros complémentaires (Documents and settings - Application data - Microsoft) selon ta version de Windows.
J'espère seulement ne pas avoir commis d'erreur en recopie.
Bon week-end à tous
jean-pierre
omission : dans Outils - Macros complémentaire tu actives cette macro en la cochant. Ton bouton sera installé dans la barre Standard.
Message édité par: jeanpierre, à: 16/04/2005 12:50
Message édité par: jeanpierre, à: 16/04/2005 13:06
Après un sympathique plantage, je reviens pour ceci simplement :
Thomas, n'oublies pas de citer Didier mDF dans dans ton fichier. Merci.
Message édité par: jeanpierre, à: 16/04/2005 13:53