Ouvrir un formulaire via un ribbon perso

djodu69 · 25/08/2008, 16h38

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 :

<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 · 25/08/2008, 20h48

Bjr,

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

djodu69 · 26/08/2008, 08h26

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 :

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 · 31/08/2008, 21h01

Salut,

et l'erreur est placée ou ?

avec ton code en rajoutant le paramètre onAction :

Code xml :

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

et ce code dans la fonction :

Code :

Public Sub btnFrs_action(ByVal control As IRibbonControl)
  
   MsgBox "Yess"
   
End Sub

Tout fonctionne à merveille

Dolphy

25/08/2008, 16h38	#1 (permalink)
djodu69 Candidat au titre de Membre du Club Date d'inscription: juillet 2008 Messages: 29	Ouvrir un formulaire via un ribbon perso 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 : <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

25/08/2008, 20h48	#2 (permalink)
Arkham46 Rédacteur/Modérateur Date d'inscription: septembre 2003 Localisation: Orléans Messages: 2 675	Bjr, Avez vous lu ce tuto ? http://warin.developpez.com/access/ruban/ __________________ ------------------------------------------------------------------------------------------------------------------------------------------- [ACCESS][EXCEL] Utilisez la librairie graphique gdiplus.dll (GDI+) avec le module de classe VBA clGdiPlus [OFFICE] Utilisez la librairie graphique gdi32.dll (GDI) avec le module de classe VBA clGdi32 Le Blog de la rubrique Office (RSS 2.0, Atom 1.0)

26/08/2008, 08h26	#3 (permalink)
djodu69 Candidat au titre de Membre du Club Date d'inscription: juillet 2008 Messages: 29	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 : 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

31/08/2008, 21h01	#4 (permalink)
Dolphy35 Responsable Outlook Date d'inscription: octobre 2004 Localisation: Rennes Messages: 3 376	Salut, et l'erreur est placée ou ? avec ton code en rajoutant le paramètre onAction : Code xml : <button id="btnFrs" label="Les Fournisseurs" size="large" imageMso="DistributionListSelectMembers" onAction="btnFrs_action"/> et ce code dans la fonction : Code : Public Sub btnFrs_action(ByVal control As IRibbonControl) MsgBox "Yess" End Sub Tout fonctionne à merveille Dolphy __________________ Meilleurs Vœux pour cette année 2009 Initiation au VBA d'Outlook venez défier mabrute Je ne réponds pas aux questions techniques par MP

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Access > IHM
Ouvrir un formulaire via un ribbon perso

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email