Ruban Excel, GetCustomUI()

Version imprimable

31/10/2015, 14h37
Jean-Philippe André

Ruban Excel, GetCustomUI()

Bonjour à tous,

je m'attaque à sujet qui peut ne pas en être un, mais qui peut déboucher sur un tuto si la manipulation est particulièrement efficace :)

Je souhaite pouvoir potentiellement fusionner deux fichiers Excel ensemble, tout en fusionnant leur ruban respectif.

J'ai pour l'instant facilement "fusionner" les feuilles des classeurs, mais je souhaiterai pouvoir lire les fichiers xml de rubans de chacun des classeurs, qui à manipuler ultérieurement un 3e ruban dans lequel j'y écrirai les deux autres.

La seule piste que j'ai actuellement sont les fonctions GetCustomUi et SetCustomUI, mais je n'ai pas le moindre exemple à faire tourner pour comprendre à quoi servirait exactement ces fonctions.

Quelqu'un aurait-il déjà été confronté à l'une ou l'autre de ces fonctions, et puisse m'indiquer le chemin ? :D

Merci et bon Allo ween (Ici Trouille) à tous
:twisted:

moi je suis interéssé

Bonjour jpcheck

sujet interessant dans le sens on l'on peut faire des plus jolis et interactif rubans qu'avec les fonction commandbar.add

on trouve divers exemple pas trop compliqué qui démontre le fonctionnement

source :https://msdn.microsoft.com/fr-fr/lib...ffice.14).aspx
exemple 1:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Explicit 
 
Dim oWD As Object    
Implements IRibbonExtensibility 
 
' Implement the IRibbonExtensibility Interface
' In this step, you implement the IRibbonExtensibilty interface's only member, GetCustomUI. Add the following procedure at the bottom of the code window. 
 
Public Function IRibbonExtensibility_GetCustomUI(ByVal RibbonID As String) As String 
      IRibbonExtensibility_GetCustomUI = GetRibbonXML() 
End Function 
 
' This procedure calls the GetRibbonXML method that, as its name implies, returns the customization XML to the GetCustomUI method which then adds it to the ribbon to implement when the add-in loads. 
' Retrieve the XML Customization Code
' In this step, you add the GetRibbonXML function. Here, the customization code is stored in a String variable that is returned to the GetCustomUI method. 
 
Public Function GetRibbonXML() As String 
   Dim sRibbonXML As String 
 
   sRibbonXML = "<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"" >" & _ 
                "<ribbon>" & _ 
                "<tabs>" & _ 
                "<tab id=""CustomTab"" label=""My Tab"">" & _ 
                "<group id=""SampleGroup"" label=""Sample Group"">" & _ 
                "<button id=""Button"" label=""Insert Company Name"" size=""large"" onAction=""InsertCompanyName"" />" & _ 
                "</group >" & _ 
                "</tab>" & _ 
                "</tabs>" & _ 
                "</ribbon>" & _ 
                "</customUI>" 
 
   GetRibbonXML = sRibbonXML 
 
End Function 
 
' Add the Procedure That Is Called When You Click the Button
' Add the procedure that gets called when you click the custom button: 
 
Public Sub InsertCompanyName(ByVal control As IRibbonControl) 
   ' Inserts the specified text at the beginning of a range. 
   Dim MyText As String 
   Dim MyRange As Object 
   Set MyRange = oWD.ActiveDocument.Range 
   MyText = "Microsoft Corporation"   
   ' Inserts text at the beginning 
   ' of the active document. 
   MyRange.InsertBefore (MyText) 
End Sub

ou bien encore
exemple 2
Le code suivant montre l'exemple VBA complet pour le projet de test, en utilisant le Gestionnaire d'événements Project_Open.
VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Option Explicit
Sub ToggleManualTasksColor()
    Dim tsks As Tasks
    Dim t As Task
    Dim rgbColor As Long
    Set tsks = ActiveProject.Tasks
    For Each t In tsks
        If (Not t Is Nothing) And (Not t.Summary) Then
            SelectTaskField Row:=t.ID, Column:="Name", rowrelative:=False
            rgbColor = ActiveCell.CellColorEx
            If t.Manual Then                ' Check whether the manual task color is white.
                If rgbColor = &HFFFFFF Then
                    Font32Ex CellColor:=&HF0D9C6  ' Change the background to light blue.
                Else
                    Font32Ex CellColor:=&HFFFFFF  ' Change the background to white.
                End If
            Else                ' The task is automatically scheduled, so change the background to white.
                Font32Ex CellColor:=&HFFFFFF
            End If
        End If
    Next t
End Sub
 
Private Sub Project_Open(ByVal pj As Project)
    AddHighlightRibbon
End Sub
 
Private Sub AddHighlightRibbon()
    Dim ribbonXml As String
    ribbonXml = "<mso:customUI xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">"
    ribbonXml = ribbonXml + "  <mso:ribbon>"
    ribbonXml = ribbonXml + "    <mso:qat/>"
    ribbonXml = ribbonXml + "    <mso:tabs>"
    ribbonXml = ribbonXml + "      <mso:tab id=""highlightTab"" label=""Highlight"" insertBeforeQ=""mso:TabFormat"">"
    ribbonXml = ribbonXml + "        <mso:group id=""testGroup"" label=""Test"" autoScale=""true"">"
    ribbonXml = ribbonXml + "          <mso:button id=""highlightManualTasks"" label=""Toggle Manual Task Color"" "
    ribbonXml = ribbonXml + "imageMso=""DiagramTargetInsertClassic"" onAction=""ToggleManualTasksColor""/>"
    ribbonXml = ribbonXml + "        </mso:group>"    ribbonXml = ribbonXml + "      </mso:tab>"
    ribbonXml = ribbonXml + "    </mso:tabs>"
    ribbonXml = ribbonXml + "  </mso:ribbon>"
    ribbonXml = ribbonXml + "</mso:customUI>"
    ActiveProject.SetCustomUI (ribbonXml)
End Sub

31/10/2015, 18h56
SfJ5Rpw8

Bonsoir, Jpchek,

malheureusement il semble que ces fonctions GetCustomUI , SetCustomUI ne soient pas accessibles en VBA....

Cdt.
31/10/2015, 19h47
Jean-Philippe André

OK, donc essentiellement tourner le sujet depuis VSTO en C# ou VB.Net pour obtenir pareille manipulation.

Merci patrick, source pour Project effectivement.

Je vais voir ce que je peux faire avec tout ca.
01/11/2015, 11h22
patricktoulon

re

bonjour
j'aurais une question cependant

et il possible de loader un ruban
je m'explique je n'ai aucun soucis pour coder un xml pour un ruban avec Blok note ou autre voir même dynamiquement en vba
ce que je voudrais savoir c'est si on peut après avoir ouvert le classeur loader le xml pour modifier le ruban
ca serait vraiment on bon truc ca
01/11/2015, 12h11
Jean-Philippe André

En fait l'outil qui est le plus souvent mis en avant est le CustomUIEditor. Mais justement, mis à part la gestion dynamique du ruban avec InvalidateControl() pas de grande possibilité, d'où ma question :)
02/11/2015, 16h36
patricktoulon

hé!!! pas si sur !!!!

re

j'etais en train de finaliser un autre projet excel to html et j'ai pensé a ton idée

je n'ai pas encore aprofondi le sujet mais il y a peut etre une solution ( a etudier)

dans les contribution tu trouve comment zipper ou dézipper un fichier en rar

manuellement quand on veut récupérer le xml du ruban en general on change l'extention du xlm en rar
ensuite on ouvre le rar et on choppe le xml

serait il pas possible de :par macro changer l'extention, dezipper le rar) recupe xml .sur les deux fichier

ensuite merger les deux xml en gardant que les controls et en réécrivant l'entete du xml dans un freefile avec open et sauvé en xml
et rezipper ou rar avec le fichier avec le xml mergé et rechangement d'extention

le tout dans des fonctions bien ficelée afin d'avoir que les actions base a coder

2 eme solution
apres faudrait voir aussi si avec commandbar non buildin on peu recupérer les barres ajouté en xml avec customui

a mediter
03/11/2015, 12h28
Jean-Philippe André

Salut,

c'est effectivement la solution vers laquelle je compte me tourner :)
13/11/2015, 12h01
GastonLagaffe25

Bonjour,

En passant j'ai vu ce sujet et voici des pistes...en espérant aider.
Pour créer et charger un ruban ne vba, il y a la méthode décrite pour Access mais qui est tout à fait possible d'utiliser pour Excel: http://warin.developpez.com/access/ruban/

Sinon, au sujet des rubans à regrouper:
On peut dans la définition des groupes de contrôles définir des IdQ à la place des Id. Cela permet à priori de regrouper des groupes de contrôles.
Perso, je n'ai jamais testé...

Cordialement.