XL 2016 VBA - Réduire la largeur de la grille Excel

[Dudu2]

Bonjour,

DataSnipper est un outil commercial ajoutant à Excel des fonctionnalités diverses.
Parmi ces fonctionnalités, la possibilité de visualiser des documents PDF directement dans Excel avec cette particularité (voir image ci-dessous) que la fenêtre Excel est divisée en 2 verticalement. La partie gauche contient la grille Excel, la partie droite contient probablement un Control ActiveX visualisateur PDF, je ne sais pas lequel ? Acrobat ? PDF-XChange Viewer ? Autre ?

La question est: comment est-il possible dans une fenêtre Excel de réduire la largeur de la grille Excel et ses ascenseurs comme le fait ce logiciel ?

 

[nullosse]

@Dudu2
je n'ai pas le soucis que vous avez (peut être une question de version)

Bon je confirme ça plante aussi quand j'utilise volet word de ton classeur. Apparemment il n'y a que l'onglet Fichier qui pose problème ( quand on clique dessus en temps normal en fait on change de fenêtre dans les versions récentes de word).

 

[patricktoulon]

@nullosse
oui donc pour enregistrer d’éventuels modif dans le word c'est pas top quoi
par ce que le word notepad notepad++c'est quand même a ça que ca sert un peu
le coté visionneuse c'est bien mais i on peut pas travailler sur les words syncro avec excel le volet word est presque inutile
et de toute facon un truc qui a un bouton qui fout tout en l'air je ne peux pas laisser comme ça
c'est quoi l'erreur ?

 

[Dudu2]

Idem @nullosse sur le menu Fichier, mais j'ai la même config Office 2021 64 bits.

 

[patricktoulon]

vous avez la possibilité de masquer la caption de word en donnant a la variable decal -40
le bouton fermer fera son job c'est a dire fermer word et là il vous sera demandé d'enregistrer les modif
et bloquer le case "OpusApp" dans la sub fermeture du volet

 

[nullosse]

vous avez la possibilité de masquer la caption de word en donnant a la variable decal -40

Salut,
voici ce que j'ai modifié dans l'affichage du volet word :

   SetWindowPos AppHandle, 0, -70, -40, Round(plaque.InsideWidth / 0.75) + 70, Round(plaque.InsideHeight / 0.75) + 40, 0

J"ai mis aussi l'option du ruban : Afficher les onglets uniquement.
et voilà ce que cela donne :

Mais attention quand la mise à l'échelle n'est pas à 100 % le userform n'a pas les bonnes dimensions.

Nullosse

 

[patricktoulon]

Bonjour @nullosse
oui c'est exactement ça
chez moi c'est avec Notepad que ca fait ça et à n'importe quelle echelle tu a du le voir dans le module notepad2
mais en fait c'est juste un mauvais timming


a bon normalement le resize fait le job
essaie resize la fenêtre excel pour voir sans les ajout 70 et 40
si on veut pas la caption
edge c'est -40
Notepad on setwindowlong c'est bon
pdfxchangeviewer setwindowlong
adobeacrobat -36

 

[nullosse]

essaie resize la fenêtre excel pour voir sans les ajout 70 et 40

Salut patricktoulon,
oui mais le 70 c'est en x, c'est pour masquer Fichier

 

[patricktoulon]

c'est dommage tu perd la notion workable de la docked window
je peux faire mieux si tu veux

 

[nullosse]

c'est dommage tu perd la notion workable de la docked window
je peux faire mieux si tu veux

ben on peut travailler avec tous les autres onglets , Fichier c'est seulement pour enregistrer ou ouvrir un autre classeur ou accéder à la config

C'est ton code tu fais ce que tu veux avec 😉

 

[patricktoulon]

re ok tu a donc a dispo ton ruban mais je crois que chez moi ca fonctionne pas comme ca
redonne moi la sub word complete avec ta modif je vais tester
et dis moi ou tu a paramétrer l'affichage
si ca marche comme ca on laissera
je vais ajouter aussi au bouton fermer de la feuille la fermeture du document et pas que "quit" comme ca on aura la proposition d'enregistrement

 

[patricktoulon]

Bon alors j'ai testé j'ai compris tu affiche les règles ca le decal un peu a droite ce qui fait que tu peux cacher le bouton
et tes onglet s'affiche en flyout sauf que moi c'est le ruban qui redescend du coup le premier groupe est tronqué

 

[Dudu2]

Bonjour,
En aparté, une petite modif du fichier du Post #165 pour dire que lors de la réactivation de Word, je génère un clic souris pour éviter la nécessité du double-clic, le premier étant seulement effectif pour la réactivation. Donc par exemple, en partant d'Excel, un clic sur le Menu Fichier de Word l'affiche directement.

 

[nullosse]

et tes onglet s'affiche en flyout sauf que moi c'est le ruban qui redescend du coup le premier groupe est tronqué

Le ruban doit être en mode réduit :

on ne verra pas les premiers boutons des rubans mais c'est mieux qu'un gros plantage word

 

[patricktoulon]

@Dudu2
donc tu n'a pas adopté le dock userform Host

 

[patricktoulon]

@nullosse
oui j'avais compris mais la tu bloque pas ton bouton