concernant le sujet "J'ai perdu mes barres d'outils et menu",
manque comment sont remis les menus prédéfinis si on a également supprimé ceux-ci,
le code suivant le résoud, mais peut-être il y a autre ou meilleur code:
Code:
[COLOR="Green"]'pour afficher les Barres d'outils 1 à 2 et en même temps les menus prédéfinis seront affichés[/COLOR]
Sub afficher_barre_outils_1à2()
On Error Resume Next
For n = 1 To 2
Application.CommandBars(n).Visible = True
Next n
End Sub