Bonjour,
Tu colles ça dans un module:
Const NomBar1 = "Personnalisé 1"
Const NomBouton1 = "Copier"
Dim a As String
Sub RechercheInfobulle()
' init du compteur de barres
cpt = 0
' Pour chaque barre on stocke l'indice qui lui correspond :
For Each Item In Application.Toolbars
cpt = cpt + 1
If Item.Name = NomBar1 Then IndiceBar1 = cpt
Next
cpt1 = 0
For Each Bouton In Application.Toolbars.Item(IndiceBar1).ToolbarButtons
cpt1 = cpt1 + 1
If Bouton.Name = NomBouton1 Then IndiceBouton1 = cpt1
Next
Application.Toolbars.Item(IndiceBar1).ToolbarButtons.Item(IndiceBouton1).Name = "Nouveau nom"
End Sub
Cette macro change le nom de l'info bulle du bouton "toto" de la barre d'outils "Personnalisé1"
Tu n'as qu'à changer les deux constantes en début de code, et/ou en rajouter (autant que tu as d'actualisations à effectuer).
exemple avec deux :
Const NomBar1 = "Personnalisé 1"
Const NomBar2 = "Personnalisé 2"
Const NomBouton1 = "Nouveau Nom"
Const NomBouton2 = "Nouveau"
Dim a As String
Sub RechercheInfobulle()
' init du compteur de barres
cpt = 0
' Pour chaque barre on stocke l'indice qui lui correspond :
For Each Item In Application.Toolbars
cpt = cpt + 1
If Item.Name = NomBar1 Then IndiceBar1 = cpt
If Item.Name = NomBar2 Then IndiceBar2 = cpt
Next
cpt1 = 0
For Each Bouton In Application.Toolbars.Item(IndiceBar1).ToolbarButtons
cpt1 = cpt1 + 1
If Bouton.Name = NomBouton1 Then IndiceBouton1 = cpt1
Next
cpt2 = 0
For Each Bouton In Application.Toolbars.Item(IndiceBar2).ToolbarButtons
cpt2 = cpt2 + 1
If Bouton.Name = NomBouton2 Then IndiceBouton2 = cpt2
Next
Application.Toolbars.Item(IndiceBar1).ToolbarButtons.Item(IndiceBouton1).Name = "tata"
Application.Toolbars.Item(IndiceBar2).ToolbarButtons.Item(IndiceBouton2).Name = "titi"
End Sub
------------------------------
Et si tu en as des tas, il faudra songer à construire une fonction pour réduire le volume du code....
voili voilu
POLO