Bonjour
est ce que quelqu'un qui a une version d'excel 97 peut me tester ce programme.
Il s'agit d'un programme de rétablissement des options de base d'EXCEL lorsque les gens perdent tous les menus barres d'outils et options.  
Je veux juste savoir si la syntaxe est bonne sous la version d'excel97 que je n'ai pas : j'ai 2000 et cela fonctionne bien
 
Merci
 
Sub ReactiveLesBarres()
 
Application.CommandBars("Worksheet Menu Bar" ).Enabled = True
Application.CommandBars("Worksheet Menu Bar" ).Visible = True
 
Application.CommandBars("Standard" ).Enabled = True
Application.CommandBars("Standard" ).Visible = True
   
Application.CommandBars("Formatting" ).Enabled = True
Application.CommandBars("Formatting" ).Visible = True
     
   
  With Application
    .DisplayFormulaBar = True
    .DisplayFullScreen = False
    .DisplayScrollBars = True
    .DisplayStatusBar = True
  End With
  With ActiveWindow
    .DisplayGridlines = True
    .DisplayHeadings = True
    .DisplayWorkbookTabs = True
  End With
 
 
End Sub  
     
     

bonjour,  
je ne sais pas ! mais tu peux essayer aussi :
MenuBars(xlWorksheet).Reset
qui fonctionne si les menus ont été "delete"
A+

Testé sous Excel 97.
 
Pas d'erreur.
J'avais caché Standard et Formatting, sont bien revenues.

Merci