boniteprobtp
XLDnaute Nouveau
Lors de création de mon ruban, je souhaite qu'une liste dynamique soit créé dés lors que j'utilise le bouton "Liste Items" afin d'obtenir la même liste que pour le bouton "Mon choix Item". Or si l'on passe bien dans le code de création, la génération semble être faite correctement, mais il n'y a pas de réinitialisation de ma liste (le généré est dans mon troisiéme bloc).
Voici le code XML permettant de créer le ruban
Voici le code de l'implémentation du menu dynamic
Voici le généré lors de l'événement du bouton
Vous remerciant par avance pour toute aide qui pourrait me faire avancer.
Cordialement
Voici le code XML permettant de créer le ruban
PHP:
<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>
Voici le code de l'implémentation du menu dynamic
PHP:
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
Voici le généré lors de l'événement du bouton
PHP:
<menu id="Menu" itemSize="normal" >
<menuSeparator id="CHP30" title="CONCERTATION - Je qualifie"/>
<button id="BUT30" label="Abonnement Internet" tag="Abonnement Internet" onAction="ActivationFeuille"/>
<button id="BUT31" label="Renseignement des numéros de téléphone suite à contact téléphonique (si Adhérent)" tag="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" tag="Enrichissement des mails" onAction="ActivationFeuille"/>
<menuSeparator id="CHP33" title="CONCERTATION - J'écoute et je raconte l'histoire de la relation"/>
<button id="BUT33" label="Détection des INA COURRIER (logistique + poste)" tag="Détection des INA COURRIER (logistique + poste)" onAction="ActivationFeuille"/>
<button id="BUT34" label="Détection des INA au téléphone" tag="Détection des INA au téléphone" onAction="ActivationFeuille"/>
<button id="BUT35" label="Détection des INA par le réseau" tag="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" tag="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" tag="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)" tag="Saisie d'un commentaire à chaque action menée et lors du traitement des encours (Tous suivis et INA)" onAction="ActivationFeuille"/>
<menuSeparator id="CHP39" 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)" tag="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" tag="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)" tag="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" tag="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" tag="Envoi de mail lors du traitement de la demande de l'adhérent par ETP" onAction="ActivationFeuille"/>
<menuSeparator id="CHP44" title="CONCERTATION - Je respecte mes engagements"/>
<button id="BUT44" label="Encours SUIVI GED traités à échéance avec commentaire si report" tag="Encours SUIVI GED traités à échéance avec commentaire si report" onAction="ActivationFeuille"/>
</menu>
Vous remerciant par avance pour toute aide qui pourrait me faire avancer.
Cordialement
Dernière édition: