Récupérer l'interface excel classique

[Hady]

Bonjour forum,

J'ai personnalisé le menu d'un outil Excel.
Je souhaiterais maintenant pouvoir faire une macro qui me permettrait de récupérer le menu classique : Fichier, Edition, Affichage, Insertion, Format, Outils, Données, Fenêtre, Aide. Est-ce possible? Et comment?

Merci @ tous
Hady

 

[chris]

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.

 

[Hady]

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...
🙁

 

[Hady]

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

 

[chris]

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 ?

 

[@mydale]

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é 😛