Bonjour,

Voila, j'ai crée à l'aide de certains cette commande qui fonctionne super bien
mais quand elle est activé, meme en fermant le fichier j'ai la FormuleBar qui continue a être masqué
comment dois je faire pour qu'une fois le fichier xlsm fermé, tout redevienne comme avant ??


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Callback for TB01 onAction
Sub TB01(control As IRibbonControl, pressed As Boolean)
Dim ActiveS As Worksheet
Dim S As Worksheet
'---
Application.ScreenUpdating = False
'---
Set ActiveS = ActiveSheet
ActiveWindow.DisplayWorkbookTabs = pressed
Application.DisplayFormulaBar = pressed
For Each S In ThisWorkbook.Sheets
  S.Activate
  ActiveWindow.DisplayHeadings = pressed
Next S
ActiveS.Activate
'---
Application.ScreenUpdating = True
End Sub
Par avance, merci de votre aide