Bonjour à tous,

Je travaille actuellement sur des addins d'Offices créés sur Visual Studio Professionnal en VB.NET.
Mon problème est que j'essaie de personnaliser les boutons d’Excel déjà intégrés comme par exemple copier, coller, tout ça… afin de faire afficher un message personnalisé. Pour ce faire j’ai ajouté un nouvel élément « Ruban (XML) » dans mon projet qui m’a créé deux fichiers :
- Ruban.xml
- Ruban.vb
Dans mon addin, j’ai ajouté ces lignes :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Protected Overrides Function CreateRibbonExtensibilityObject() As Microsoft.Office.Core.IRibbonExtensibility
        Return New Ruban()
End Function
Dans « Ruban.xml », j’ai mis ce code-là pour identifier le bouton et lui donner une action :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
<?xml version="1.0" encoding="UTF-8"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">
  <ribbon>
    <tabs>
      <tab idMso="TabHome">
        <group id="GroupClipboard">
          <button idMso="Cut" onAction="testingcut"/>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>
Dans « Ruban.vb », j’ai mis ce code-là :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Public Sub testingcut(control As IRibbonControl)
        MsgBox("You have cut something")
End Sub
Voilà, ça ne fonctionne pas. J’ai cherché un peu partout mais peut-être mal donc si vous avez des pistes voir des solutions à me proposer je suis preneur.
Merci d’avance !