Discussion :

[djodu69]

Bonjour,

J'ai créer un ruban personnalisé pour mon application et j'aimerai que les boutons qui sont intégrés au ruban permettent d'ouvrir des formulaires de mon application. J'ai cherché sur le net, et la seule chose que j'ai trouvé parle de "onaction", or je n'ai pas trop compris l'utilisation.

Voici un exemple du code de mon ruban

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> 
   <ribbon startFromScratch="true">
      <tabs>
         <tab id="tabInfosBase" label="Infos de Base" visible="true">
         <group id="grpInfosBase" label="Infos de Base">
             <button id="btnFrs" label="Les Fournisseurs" size="large" imageMso="DistributionListSelectMembers"/>
			 <separator id="sep1"/>
             <button id="btnClients" label="Les Clients" size="large" imageMso="MeetingsWorkspace"/>
			</group>
         </tab>
</tabs>
  </ribbon>
</customUI>

Pourriez-vous m'éclairez svp

Merci par avance

[Arkham46]

Bjr,

Avez vous lu ce tuto ?
http://warin.developpez.com/access/ruban/

[djodu69]

Bonjour,

Oui, je me suis basé dessus, mais j'obtiens une erreur de compilation au lancement dès que j'utilise du code du genre

Code :

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

1
2
3
4
5
6
Public Sub btnDupliquer_action(ByVal control As IRibbonControl)
 
   MsgBox "Yess"
 
 
End Sub

Il me dit "Une erreur est survenue lors de la compilation de cette fonction.
Le module Visual Basic comporte une erreur de syntaxe
Verifiez le code puis recompilez-le."

Au début, je pensais à un pb de référence mais j'ai bien les 2 nécessaires :
* Microsoft Office 12 Object Library
* Microsoft Scripting Runtime

[Dolphy35]

Salut,

et l'erreur est placée ou ?

avec ton code en rajoutant le paramètre onAction :

Code xml :

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

<button id="btnFrs" label="Les Fournisseurs" size="large" imageMso="DistributionListSelectMembers" onAction="btnFrs_action"/>

et ce code dans la fonction :

Code :

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

1
2
3
4
5
Public Sub btnFrs_action(ByVal control As IRibbonControl)
 
   MsgBox "Yess"
 
End Sub

Tout fonctionne à merveille

Dolphy