Discussion :

[elf0450]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Singular]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[elf0450]

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

[fred65200]

bonsoir à tous,

tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement

[elf0450]

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

[jpenja]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[fred65200]

bonjour,

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

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

cordialement