Discussion :

[CODYCO]

Bonjour à tous!

De nouveau je sollicite votre aide, bien entendu apres avoir fait moulte recherche sur notre fofo préféré et nénette.

Voila j'ai adapté mon code vba 2003 en 2010.
Sous 2003 je créer une barre d'outils personnel, adapté avec le ruban sous xml pour 2010. jusque là tout va bien.

Sauf que sous vba 2003 certain de mes boutons avaient l'attribut .enable= false en fonction de la navigation et reprenez l'attribut "True" à certain moment ceci afin de guider l'utilisateur.

Sous 2010 cette attribut ce gere dès le xml avec "getenable" et via le callback coreespondant.

Mais voila j'ai un peu de mal avec ces codes vba, je ne vois pas trop comment changer l'attribut du bouton pendant l'éxecution globale de mon code sans passer par callback Sub correspondant au bouton.

J'ai le meme probleme avec une label.edit dont je veux modifier le label dynamiquement pendant le déroulement de ma macro. Je m'en sert pour afficher des infos de déroulement et d'avancement. J'ai bien trouver le getlabel mais meme soucis.

Merci de vos lumières...

[Qwazerty]

Salut

Le mieux je pense est de déclarer une variable de porté Module ( tu places les déclarations dans un module)

Code :

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

1
2
Public Bouton1Enabled as Boolean
Public objRuban As IRibbonUI

Tu devrais déjà avoir le callback Load

Code :

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

1
2
3
4
'Callback for customUI.onLoad
Sub RubanCharge(ribbon As IRibbonUI) 'le nom varie en fonction de ton choix dans le code xml
Set objRuban = ribbon
End Sub

Ensuite dans le Callback du bouton1 tu fais

Code :

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

1
2
3
Sub Bouton1_Enabled(control As IRibbonControl, ByRef returnedVal)
    returnedVal = Bouton1Enabled
End Sub

Ensuite dans ton code, pour modifier l'etat du bouton

Code :

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

1
2
3
4
5
6
'[...] Ton code
Bouton1enabled = False
'Tu rafraîchi le ruban
objRuban.InvalidateControl "Bouton1"
 
'[...]Suite de ton code

Fait un essai comme ça.

++
Qwaz

[CODYCO]

Je te remercie pour ton unique réponse, je veux bien comprendre que le mariage du xml et vba ne pasionne pas encore les foules mais bientot tout le monde devra s'y coller sous peine de rester sous 2003 à vie.

Je comprend déjà mieux ton explication que toutes celles que j'ai pu trouver sur le net.

Je test ca dès demain matin au bureau... et reviendrais pour un merci ou de plus ample renseignement.

[Qwazerty]

Salut
Si des fois tu ne l'avais pas trouvé il y a ce très bon tutoriel de Silkyroad au sujet du ruban.
++
Qwaz

[CODYCO]

Qwazerty merci égallement,

Oui je suis allé voir le tuto qui m'a en grande partie fomé sur l'ensemble.
Cependant je n'obtiens pas le résultat attendu, je te donne les morceau de code pour etre plus claire...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<!-- Indiquez True pour masquer tous les autres onglets standards-->
<ribbon startFromScratch="true">
 
<tabs>
  <!-- Crée un onglet personnalisé: -->
  <!-- Utilisez insertAfterMso="NomOngletPrédéfini" pour préciser l'emplacement de l'onglet-->
  <tab id="Navigation" label="Navigation" visible="true">
 
	<!-- Crée un groupe -->  
    <group id="Barre_Info" label="Barre Information">
	<labelControl id="info" getLabel="ValeurInfo" />
    </group>

Ca c'est la partie de mon xml...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Option Explicit
Public info As Booléan
Public MonRuban As IRibbonUI
 
Sub RubanCharge(ribbon As IRibbonUI)
Set MonRuban = ribbon
info = "Veuillez importez votre fichier CSV à l'aide du bouton IMPORT" 'étant le message de départ que je veux afficher et ensuite modifié...
MonRuban.InvalidateControl "info"
End Sub
 
'Callback for info getLabel
Sub ValeurInfo(control As IRibbonControl, ByRef returnedVal)
returnedVal = info
End Sub
 
'et cette partie étant celle qui déclenche mon action et doit aussi rafraichir le label de la barre info...
'Callback for Import onAction
Sub Import(control As IRibbonControl)
Call ImportCSV
info = "test la modif affichage"
'Tu rafraîchi le ruban
MonRuban.InvalidateControl "info"
End Sub

et pour le moment je n'y parviens pas...

[Qwazerty]

Salut
Ha ben non dans le cas du label il te faut une variable de type string

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
Public info As String 'Attention Boolean ne prend pas d'accent ;)
Public MonRuban As IRibbonUI
 
Sub RubanCharge(ribbon As IRibbonUI)
Set MonRuban = ribbon
info = "Veuillez importez votre fichier CSV à l'aide du bouton IMPORT" 'étant le message de départ que je veux afficher et ensuite modifié...
MonRuban.InvalidateControl "info"
End Sub
 
'Callback for info getLabel
Sub ValeurInfo(control As IRibbonControl, ByRef returnedVal)
returnedVal = info
End Sub
 
'et cette partie étant celle qui déclenche mon action et doit aussi rafraichir le label de la barre info...
'Callback for Import onAction
Sub Import(control As IRibbonControl)
Call ImportCSV
info = "test la modif affichage"
'Tu rafraîchi le ruban
MonRuban.InvalidateControl "info"
End Sub

Essai comme ça
++
Qwaz