Ajouter une barre d'outils avec VBA

Bonsoir,
j'essaie de rajouter via VBA des barres d'outils dans EXCEL avec l'instruction

Code:

---

1 2	Application.commandbars.add(....)

---

mais à ce moment là il me demande le nom de la barre et je n'arrive pas à trouver.Je voudrais en particulier celle qui contient "Fichier Edition ...."
Merci de votre aide

S'il s'agit de la barre déjà présente à l'ouveture d'Excel, c'est "Worksheet Menu Bar". Sinon, voici un petit code qui liste tous les noms possibles.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub ListerBars() Dim n As String Dim cb As CommandBar Dim c As Range   Set c = Range("A1") For Each cb In Application.CommandBars c.Value = cb.Name Set c = c.Offset(1, 0) Next cb   End Sub

---

A+;)

Merci
mais j'ai une application ou il n'y a plus aucune barre d'outils afficher alors je voudrais accéder au moins à celle là.
o secours comment coder celà?
j'ai cru comprendre qu'il fallait mettre le code dans workbook open
Merci encore

bonsoir à tous,

tu peux essayer

Code:

---

1 2 3 4

Application.CommandBars("Worksheet Menu Bar").visible = true 'ou Application.CommandBars(1).visible = true

---

Cordialement

Merci Fred
Le .visible ne fonctionnait pas.
En cherchant un peu j'ai trouvé .enabled et la tt fonctionne.Enfin presque.
J'ai récupéré ma barre d'outils Fichier mais c tt et quand je veux afficher les autres en passant par Affichage=>barre d'outils,je n'ai que Personnaliser.
Je suppose que je dois les mettre .enabled=true mais je ne connais pas leur nom.
Si qqu'un les connait?
merci

Je ne connais pas les noms des barre d'outils mais tu peut essayer avec

Code:

---

application.commandbars(1).enabled=true

---

Si celà fonctionne alors remplace le 1 par 2 puis 3 puis 4 etc... jusqu'a avoir récupérer ttes les barres dont tu as besoin.

bonjour,

télécharge cette .xla en anglais mais accessible.

http://www.erlandsendata.no/download...ndbartools.zip

cordialement