Récupérer l'interface excel classique

Bonjour
A la main
Affichage, barre d'outils, personnaliser, onglet options, et bouton réinitialiser les menus.

Il suffit de mettre l'enregistreur macro en route avant et tu auras le code VB.

Salut,

Merci pour ta réponse.
Cela ne fonctionne pas... j'avais déjà essayé ça en fait.
Par cette manipulation, j'ai le code suivant :
' Application.WindowState = xlNormal
Application.Left = 115
Application.Top = 4'
Il ne fait réapparaitre le menu excel classique...
🙁

Chris m'a mis sur la voie et voilà :

Sub RécupérerMenuExcel()

Dim MenuExcel() As Integer
Dim NbBar As Integer, i As Integer, j As Integer
NbBar = 8
ReDim MenuExcel(NbBar)
MenuExcel(1) = 30002
MenuExcel(2) = 30003
MenuExcel(3) = 30004
MenuExcel(4) = 30005
MenuExcel(5) = 30006
MenuExcel(6) = 30011
MenuExcel(7) = 30009
MenuExcel(8) = 30010

For i = 4 To 1 Step -1 'Javais 4 menus persos
Application.CommandBars('Mabarre').Controls(i).Delete
Next

For i = 1 To NbBar
Application.CommandBars('Mabarre').Controls.Add Type:=msoControlPopup, ID:= _
MenuExcel(i), Before:=i
Next

End Sub

Re
Effectivement ma solution n'était pas la bonne.
Cela ne rinitialise pas grand chose.

Est-ce l'enregistreur qui t'a donné le bon code ?

Je ne suis pas sur d'avoir bien compris ce que tu voulais, mais si tu veux simplement réinitialiser une barre d'outils, il suffit de faire :

Application.CommandBars('Mabarre').reset

et hop le tour est joué 😛