Task Pane Project R-W v2.0 (le volet docké a droite de la feuille Excel)(Macro complementaire)

Task Pane Project R-W v2.0 (le volet docké a droite de la feuille Excel)(Macro complementaire) 2.1.2

Inscrivez vous pour télécharger ce fichier
Vue principale Historique Discussion
Laisser une appréciation
Bonjour a tous
suite a une demande et discussion , j'ai développé cet utilitaire le "Task Pne project R-W"
cet utilitaire vous permet de docker un document(PDF, Word, Txt, CSV, HTML, XML,eetc..) dans un volet personnel dans la feuille excel a droite



Task Pane Project R-W V2.0 (read / Work (lecture & écriture)​


Objectif​

Ce projet vise à insérer un volet (task pane) de visualisation de document ou page web dans la fenêtre Excel, docké à droite, piloté par un onglet supplémentaire dans le ruban.
Dans cette version 2.0 on ré-utilise le volet "SourceXML" existant — pourquoi réinventer la roue quand il y a déjà tout ce qu'il faut ?
NB :
ceux qui serait intéressé par la version Task Pane Project V 1.0 utilisant des fenêtre dynamique insérée
peuvent toujours me le demander

Volets document​

  • Document PDF (avec l'application par défaut)
  • Document Word (s'ouvre dans Word)
  • Document texte (csv, txt, bat, cmd, vbs… s'ouvre avec Notepad)
  • Volet Notepad++ (si installé, ouvre aussi les fichiers binaires)

Volets web​

  • Accès Web / Viewer (Edge pour pdf si pas de reader installé)
  • Volet Google
  • Volet Bing
  • Volet Qwant

Comportement​

Les applicatifs sont dockés à droite dans la fenêtre Excel, sans le châssis de leur fenêtre native, tout en conservant leurs commandes. Il est donc possible de modifier et enregistrer les documents depuis le volet.


l'onglet Task Pane supplémentaire dans le ruban​

aperçu avec un volet WORD ouvert :
1759749911048.png

(Ruban ) Les boutons supplémentaires​


Vous avez deux boutons supplémentaires dans chaque section prêts à recevoir votre code / option. Tout se règle avec les constantes en haut du module :


'------------------------------------------'
VB: 
Const BtWebviSible1 As Boolean = False
Const BtWebviSible2 As Boolean = False
Const BtAppviSible1 As Boolean = False
Const BtAppviSible2 As Boolean = False

Const BtWebLabel1 As String = "Bt web Libre1"
Const BtWebLabel2 As String = "Bt web Libre2"
Const BtAppLabel1 As String = "Bt App Libre1"
Const BtAppLabel2 As String = "Bt App Libre2"

'------------------------------------------
Doncdans le module des callbacks , pour activer ou renommer les boutons, il suffit de modifier ces Const, rien d’autre. Les événements Click sont déjà en place, à vous d’ajouter le code à exécuter.


Code: 
                   'EVENEMENT CLICK POUR LES BOUTONS SUPPLEMENTAIRES

'//////////////////////////////////////////////////////////////////
'EVENEMENT CLICK POUR : BtAppLibre1
Sub BtAppLibre1_Click(control As IRibbonControl)
    MsgBox " vous avez cliqué sur le [button] id:" & control.ID & vbCrLf & control.Tag
End Sub

'///////////////////////////////////////////////////////////////////////////////

'EVENEMENT CLICK POUR : BtAppLibre2
Sub BtAppLibre2_Click(control As IRibbonControl)
    MsgBox " vous avez cliqué sur le [button] id:" & control.ID & vbCrLf & control.Tag
End Sub

'////////////////////////////////////////////////////////////////////////////

'EVENEMENT CLICK POUR : BtWebLibre1
Sub BtWebLibre1_Click(control As IRibbonControl)
    MsgBox " vous avez cliqué sur le [button] id:" & control.ID & vbCrLf & control.Tag
End Sub

'////////////////////////////////////////////////////////////////////////////

'EVENEMENT CLICK POUR : BtWebLibre2
Sub BtWeblibre2_Click(control As IRibbonControl)
    MsgBox " vous avez cliqué sur le [button] id:" & control.ID & vbCrLf & control.Tag
End Sub

'////////////////////////////////////////////////////////////////////////////

Exemples d'usage​

  • Ouvrir un PDF dans le volet pour lecture rapide (sans lancer l'application externe complète).
  • Afficher un fichier CSV et le modifier rapidement avec Notepad++ intégré.
  • Lancer une recherche Web (Google/Bing/Qwant) directement depuis le volet.

Notes techniques courtes​

  • On utilise l'application Edge de windows 10/11 .
  • Pour Word/PDF, on ouvre l'application en mode embarqué via le handle de la fenêtre et on retire le châssis.
  • Les boutons de ruban pilotent l'ouverture et fermeture du volet .
  • Pour les boutons optionnels , modifiez les valeurs des constantes en haut de module (voir section >Ruban & boutons supplémentaires)

Rappels​

— Ce volet s'appuie sur des API Windows et sur les contrôles embarqués dans Excel (SourceXML).
— Testez dans un environnement non critique avant déploiement (surtout si Word/Notepad++ modifient des fichiers sur réseau).

Conclusion​

Le Task Pane Project R-W V2.0 démontre qu'il est possible de transformer Excel en véritable centre de lecture et d’édition multi-documents. Grâce à la réutilisation ingénieuse du volet SourceXML, on bénéficie d’un affichage intégré, d’un pilotage simple via le ruban et d’une compatibilité avec de nombreux types de fichiers (PDF, Word, textes, binaires, web,etc...).et cela sans installer des application supplémentaires

L’ensemble reste personnalisable à souhait grâce aux Const de configuration et aux événements déjà en place. Il ne vous reste plus qu’à activer vos boutons et à coder vos propres actions.

En résumé, un projet léger, pratique, et totalement intégré à Excel, pensé pour
lire, travailler et centraliser vos documents sans quitter l’application.

Patrick
Auteur
patricktoulon
Version
2.0
Auteur
patricktoulon
Téléchargements
4
Affichages
103
Sortie
Dernière mise à jour

Évaluations

0.00 étoiles(s) 0 notes
Rejoignez la discussion

Plus de ressources de patricktoulon

Partager cette ressource

Retour