Interface applicative

1. Code XML du ruban personnalisé Ruban:code XML

2. Code VBA des procédures appelées depuis les boutons du ruban

Ces procédures sont stockées dans le module ProcRuban. La procédure fbCtrl_Selection permet de contrôler si des fiches sont sélectionnées dans la feuille Stock.

Option Explicit  
Public objRibon As IRibbonUI  
   
Sub RibbonOnLoad(Ribbon As IRibbonUI)  
' Initialisation du ruban  
Set objRibon = Ribbon  
End Sub  
   
Sub Init_Selection(control As IRibbonControl)  
' Annulation de la sélection en cours  
Supprime_Selection  
End Sub  
   
Sub Fiches_Produits(control As IRibbonControl)  
' Génération des fiches produits  
If Not fbCtrl_Selection(False) Then Exit Sub  
Genere_Fiches_Produits True  
End Sub  
   
Sub Envoi_Mail(control As IRibbonControl)  
' Formulaire pour envoi mail au client  
FRM_ENVOI_EMAIL.Show  
End Sub  
   
Sub Situation_Stock(control As IRibbonControl)  
'   Formulaire pour situation du stock  
FRM_SITUATION_STOCK.Show  
End Sub  
   
Sub Fiches_Pret(control As IRibbonControl)  ...