Re : Ruban
J'avais pourtant joint mes fichiers ... je ne sais comment vous les faire parvenir maintenant
Le code VBA :
Sub CreationMenuDynamique(ctrl As IRibbonControl, ByRef content)
'Sub CreationMenuDynamique(control As IRibbonControl)
Dim lig As Integer, nb As Integer, top As Integer
Dim i As Integer
Dim chapitre As String
Dim rubrique As String
Dim Item As String
Dim contenu As String
'ouverture de la balise menu
'contenu = "<menu xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">"
contenu = "<menu "
contenu = contenu & CreationAttribut("id", "Menu") & " "
contenu = contenu & CreationAttribut("itemSize", "normal")
contenu = contenu & " >"
feuille = ActiveSheet.Name
Dim indFeu As Integer
indFeu = controlerFeuille(feuille)
If indFeu = 0 Then Exit Sub
i = Sheets("ParamExecution").Cells(1, 4).Value
nb = i + Sheets("ParamExecution").Cells(indFeu, 4).Value
top = Sheets("ParamExecution").Cells(indFeu, 8).Value
For i = i To nb
If LCase(Sheets("ParamExecution").Cells(i, top)) = "oui" Then
rubrique = Sheets("ParamExecution").Cells(i, 1).Value + " - "
rubrique = rubrique + Sheets("ParamExecution").Cells(i, 2).Value
If Not chapitre = rubrique Then
chapitre = rubrique
contenu = contenu + creerChapitre(chapitre, i)
Item = ""
End If
If Not Item = Sheets("ParamExecution").Cells(i, 3).Value Then
Item = Sheets("ParamExecution").Cells(i, 3).Value
contenu = contenu + creerItem(Item, i)
End If
End If
Next i
'fermeture de la balise
contenu = contenu & "</menu>"
Dim fic As String
Dim nFic As Integer
nFic = FreeFile()
fic = "C:\Dossiers\Communs\EvolutionExcel\menuDynamic.txt"
Open fic For Output As #nFic
Dim enr As String
enr = ""
For i = 1 To Len(contenu)
If Mid(contenu, i, 2) = "><" Then
enr = enr + ">"
Print #nFic, enr
enr = ""
Else
enr = enr + Mid(contenu, i, 1)
End If
Next i
Print #nFic, enr
Close
End Sub
Le code XML
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="ChargerRuban">
<ribbon startFromScratch="false">
<tabs>
<tab id="monBandeau" label="Utilisateur">
<group id="Selection" label="Selection">
<button id="critere"
label="choixCritere"
imageMso="PivotChartFilterShow"
size="normal"
onAction="dialogue"
screentip="choix critéres affichage" />
</group>
<group id="GR7" label="Aller à">
<menu id="Menu01" label="Mon Choix Item" itemSize="normal">
<menuSeparator id="RB30" title="CONCERTATION - Je qualifie"/>
<button id="BUT30"
label="Abonnement Internet"
onAction="ActivationFeuille"/>
<button id="BUT31"
label="Renseignement des numéros de téléphone suite à contact téléphonique (si Adhérent)"
onAction="ActivationFeuille"/>
<button id="BUT32"
label="Enrichissement des mails"
onAction="ActivationFeuille"/>
<menuSeparator id="RB33"
title="CONCERTATION - J'écoute et je raconte l'histoire de la relation"/>
<button id="BUT33"
label="Détection des INA COURRIER (logistique + poste)"
onAction="ActivationFeuille"/>
<button id="BUT34"
label="Détection des INA au téléphone"
onAction="ActivationFeuille"/>
<button id="BUT35"
label="Détection des INA par le réseau"
onAction="ActivationFeuille"/>
<button id="BUT36"
label="Saisie d'un commentaire lors de la détection des INA au téléphone"
onAction="ActivationFeuille"/>
<button id="BUT37"
label="Saisie d'un commentaire lors des contacts téléphoniques"
onAction="ActivationFeuille"/>
<button id="BUT38"
label="Saisie d'un commentaire à chaque action menée et lors du traitement des encours (Tous suivis et INA)"
onAction="ActivationFeuille"/>
<menuSeparator id="RB39"
title="CONCERTATION - Je communique avec l'adhérent avec le média le plus approprié"/>
<button id="BUT39"
label="Appels non décrochés (RONA)"
onAction="ActivationFeuille"/>
<button id="BUT40"
label="Réalisation d'appels sortants lors du traitement de la demande de l'adhérent (hors INA) par ETP"
onAction="ActivationFeuille"/>
<button id="BUT41"
label="Pourcentage d'appels sortants réalisés lors du traitement de GED/MAIL/AIDE de l'adhérent(hors INA)"
onAction="ActivationFeuille"/>
<button id="BUT42"
label="Pourcentage de mail envoyés lors du traitement de la demande de l'adhérent"
onAction="ActivationFeuille"/>
<button id="BUT43"
label="Envoi de mail lors du traitement de la demande de l'adhérent par ETP"
onAction="ActivationFeuille"/>
<menuSeparator id="RB44"
title="CONCERTATION - Je respecte mes engagements"/>
<button id="BUT44"
label="Encours SUIVI GED traités à échéance avec commentaire si report"
onAction="ActivationFeuille"/>
</menu>
</group>
<group id="AvancementLigne" label="Item Pilotage" >
<button id="versHaut"
label="Premier"
image="DoubleFlecheHaut"
size="normal"
onAction="versLeHaut"
screentip="Premier Item Pilotage" />
<button id="versBas"
label="Dernier"
image="DoubleFlecheBas"
size="normal"
onAction="versLeBas"
screentip="Dernier Item Pilotage"/>
<separator id="sp1" />
<button id="versPrec"
label="Precedent"
image="FlecheHaut"
size="normal"
onAction="versPrecedent"
screentip="Item Pilotage précédent"/>
<button id="versSuiv"
label="Suivant"
image="FlecheBas"
size="normal"
onAction="versSuivant"
screentip="Item Pilotage suivant"/>
</group>
<group id="AvancementColonne" label="Type Indicateur" >
<button id="versDebut"
label="Premier"
image="DoubleFlecheGauche"
size="normal"
onAction="versLeDebut"
screentip="Premier Indicateur" />
<button id="versFin"
label="Dernier"
image="DoubleFlecheDroite"
size="normal"
onAction="versLaFin"
screentip="Dernier Indicateur" />
<separator id="sp2" />
<button id="versColPrec"
label="Precedent"
image="FlecheGauche"
size="normal"
onAction="versColonnePrecedente"
screentip="Indicateur précédent" />
<button id="versColSuiv"
label="Suivant"
image="FlecheDroite"
size="normal"
onAction="versColonneSuivante"
screentip="Indicateur suivant" />
</group>
<group id="Menu" label="boite Menu">
<dynamicMenu id="ListeDynamique"
label="Liste Items"
getContent="creationMenuDynamique"
invalidateContentOnDrop="true"
size="normal"
image="Jumelle" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>