une petite macro pour les nostalgiques (merci J. Walkenbach)

[Staple1600]

Bonjour à tous


J'ai francisée une macro bien utile du grand John Walkenbach

Cela permet de retrouver les anciens menus d'Excel 2003

Test ok avec Excel 2010 beta

cela fonctionne aussi avec Excel 2007

Sub [URL="http://spreadsheetpage.com/index.php/tip/old_style_menus_in_excel_2007/"]MakeOldMenus[/URL]()
   Dim cb As CommandBar
   Dim cbc As CommandBarControl
   Dim OldMenu As CommandBar

'  Delete it, if it exists
   On Error Resume Next
   Application.CommandBars("Old Menus").Delete
   On Error GoTo 0

'  Create an old-style toolbar
'  Set the last argument to False for a more compact menu
   Set OldMenu = Application.CommandBars.Add("Old Menus", , True)

'  Copy the controls from Excel's "Built-in Menus" shortcut menu
'traduction pour un Excel français
   With CommandBars("Built-in Menus")
     .Controls("&Fichier").Copy OldMenu
     .Controls("&Edition").Copy OldMenu
     .Controls("&Affichage").Copy OldMenu
     .Controls("&Insertion").Copy OldMenu
     .Controls("F&ormat").Copy OldMenu
     .Controls("&Outils").Copy OldMenu
     .Controls("&Données").Copy OldMenu
     .Controls("&Fenêtre").Copy OldMenu
     .Controls("&?").Copy OldMenu
   End With

'   Make it visible. It appears in the Add-Ins tab
   Application.CommandBars("Old Menus").Visible = True
End Sub

 

[kiki29]

Re : une petite macro pour les nostalgiques (merci J. Walkenbach)

Salut,dans le même registre Ce lien n'existe plus