ouvrir OPTION par macro

[Michel]

Boujour le forum,

Comment ouvrir Option dans la barre de Menu\outil\option par une macro VBA ?

D'avance je vous remercie

Michel

 

[Ti]

voici une petite procédure qui fait ça simplement :

Sub ControleOption()
'Ti
'Dim CB As CommandBarControl
On Error Resume Next

'1ère méthode : renvoi du bouton directement par son nom
'Set CB = CommandBars(1).Controls("Outils").Controls("Options...")

'2ème méthode : renvoi du bouton par son ID, via FindControl
'avantage, ça marche quelle que soit la langue
'Set CB = CommandBars.FindControl(ID:=522)
'If Not CB Is Nothing Then CB.Execute

'plus radical encore !
CommandBars.FindControl(ID:=522).Execute
End Sub