Microsoft 365 Création d'une barre personnalisée dans Excel

[doudel]

Bonjour,
Je me surnomme Doudel et je suis nouveau sur ce forum et de manière générale un peu néophyte sur les forums. Je suis autodidacte, comme beaucoup, et je trouve mon inspiration sur les forums et les cours, de préférence en vidéo

Aujourd'hui je fais appelle à vous car je suis bloqué depuis quelque temps. Je tente de créer une barre de menu personnalisée sur Excel. Elle doit me permettre de lancer des macros. Sur le fond cela fonctionne mais sur la forme c'est plus compliqué.
Je souhaiterais savoir comment mettre les différents boutons les uns sous les autres et je souhaiterai également savoir s'il est possible de reproduire ce genre de contrôle mais du coup les uns à côté des autres :

Actuellement j'obtiens ceci :

Sub CommandBarreCréerAvecBoutonEtMenu()
Dim LaBarre As CommandBar
Dim LeBouton
Dim MonMenu
 

    
    Set LaBarre = Application.CommandBars.Add
    With LaBarre
    .Name = "Barredonnée"
    .Position = msoBarFloating
 
  
    Set MonControl = CommandBars("Barredonnée").Controls _
        .Add(Type:=msoControlButton, ID:=280)
        With MonControl
            .Style = msoButtonIconAndCaption
            .Caption = "Ajouter une donnée"
            .OnAction = "Macro1"
        End With
    
          
    Set MonControl = CommandBars("Barredonnée").Controls _
        .Add(Type:=msoControlButton, ID:=280)
        With MonControl
            .Style = msoButtonIconAndCaption
            .Caption = "Modifier une donnée"
            .OnAction = "Macro2"
        End With
  
  
    Application.CommandBars("Barredonnée").Visible = True
End With
End Sub

Merci

 

[laurent950]

Bonjour @patricktoulon

Je te remercie pour ce code que tu m'as construit, je viens d'essayer le code mais cela bloque sur le
.SaveToFile FileName
Cela vient de chez moi car je ne suis pas en phase avec cela dans le chemin :
AppData\Local\Microsoft\Office\Excel.officeUI
j'ai bien changé la Racine du chemin, mais je n'ai pas ou plus officeUI je vais chercher pourquoi.
Je te remercie pour le code que tu as pris le temps de me construire, et je vais chercher pour le faire fonctionner

Laurent

 

[TooFatBoy]

Je te remercie pour ce code que tu m'as construit, je viens d'essayer le code mais cela bloque sur le
.SaveToFile FileName

T'inquiète, ça plante aussi chez moi.

 

[patricktoulon]

re
voilà ce que ça donne

 

[patricktoulon]

re
sais tu modifier ton ruban a la main avec ton excel ?

 

[laurent950]

re
sais tu modifier ton ruban a la main avec ton excel ?

Bonsoir @patricktoulon

Oui j'ai regarder comment faire, j'ai trouver le moyen d'y ajouter un Onglet via
Fichier ---> Options ---> Personnaliser le ruban ---> Nouvel Onglet ---> Renommer (le nouvel onglet personnalisé)

j'ai même penser le créer via des SendKey mais bon j'y arrive pas pour l'instant.

Sub CeerUnOngletPersonnalisé()
  ' Lancement du bloc-notes :
  AppActivate Shell("Excel.exe", vbNormalFocus)
  ' Clique Gauche Fichier
  SendKeys "%f"
 ' Clique Gauche Option
  SendKeys ???????
 ' Clique Gauche Personnaliser le ruban
  SendKeys ???????
 ' Clique Gauche Nouvel Onglet
  SendKeys ???????
 ' Clique Gauche OK
  SendKeys "{ENTER}"
' Ensuite une fois l'onglet créer
'Prendre le relais avec VBA
End Sub

mais bon je sais pas vraiment faire pour l'instant

il y a une méthode
e la méthode SendCommand.

 

[Staple1600]

Bonsoir

[Pour infos]
Sinon il y a la QAT prévu à cette effet
Pas besoin de coder quoi que soit
(sauf les macros qu'on associera aux boutons ajoutés à la QAT)

NB: Le seul bémol, c'est le faible choix d'icones à disposition

Ci-dessous ma QAT de la semaine

 

[laurent950]

Sinon il y a la QAT prévu à cette effet

Bonjour @Staple1600
Je connais pas cela ? c'est liée avec Excel ?
comment ca fonctionne ?

 

[TooFatBoy]

C'est la barre d'accès rapide.

 

[Staple1600]

Bonsoir @laurent950, @TooFatBoy

Ou en anglais dans le texte QAT (Quick Acces Toolbar)

Je l'avais mis en gras pour tenter le chaland
(Sélection du mot QAT puis click-droit puis Rechercher QAT sur le web

Mais de de nos jours, le chaland oublie d'être curieux

 

[Cousinhub]

Bonsoir @laurent950, @TooFatBoy

Ou en anglais dans le texte QAT (Quick Acces Toolbar)

Je l'avais mis en gras pour tenter le chaland
(Sélection du mot QAT puis click-droit puis Rechercher QAT sur le web

Mais de de nos jours, le chaland oublie d'être curieux

Hello mon voisin de l'est...
Perso, un clic droit sur ton QAT m'a amené à ceci :

 

[Staple1600]

Bonsoir Cousinhub

C'est ce que je disais, la curiosité fait défaut à l'homo numericus de 2023
Car moi qui suis un home numericus, certifié VGE (avec un SPT lié à ceci), j'en reste point là

Une fois dans mon Bing, j'ajoute un excel dans mon string​

J'ai donc alors excel QAT dans ma barre de recherche, puis​

je remonte mon col, j'appuie sur le starter​

Et je vais voir ailleurs, encore plus loin ailleurs...​

​

NB: Ceci dit le QAT ou le KHAT en plus d'être récréatif, peuvent faire un bon nombre de points au SCRABBLE

 

[patricktoulon]

re
que ce soit pour le qat ou la perso du ruban c'est pareil

Oui j'ai regarder comment faire, j'ai trouver le moyen d'y ajouter un Onglet via
Fichier ---> Options ---> Personnaliser le ruban ---> Nouvel Onglet ---> Renommer (le nouvel onglet personnalisé)

c'est justement ce que je veux que tu fasse a la main au moins un bouton

ensuite tu fait une recherche globale sur ton disque system du fichier excel.officeUI
des que tu le trouve prend le chemin complet et met le dans mon exemple
voila c'est tout c'est pas compliqué

 

[Staple1600]

Re

@patricktoulon
[Pour infos]
Pour O365, c'est Excel - Personnalisations.exportedUI
et non pas officeUI

 

[patricktoulon]

Bonsoir Staple1600
non!! ça c'est l'export à moins que ça ai changé mais j'en doute

je lui demande pas d'exporter simplement de cliquer ok quand il a fini et de rechercher le excel.officeUI dans tout le disque system

 

[Staple1600]

Re

@patricktoulon
Autant pour moi

L'eau a coulé sous les ponts depuis 2018

XL 2016 - Lister la liste des icônes de la barre d'accès rapide

Bonjour à tous Je recherche le moyen en VBA de lister les icônes de la barre d'outils d’Accès rapide. Si vous avez une idée. :)

excel-downloads.com

Désolé

Normalement le path est bien
AppData\Local\Microsoft\Office\excel.officeUi