Discussion :

[ericdev67]

Bonjour,

Voilà, j'ai un petit programme qui trouve des mots dans un classeur. Ce classeur est dans un dossier. Il boucle sur les classeurs et feuilles et cherche les mots (merci à SilkyRoad....). La liste des classeurs (contenant les mots recherchés) apparait (par exemple : Classeur1.xls, Classeur2.xls, Classeur22.xls,....)

Actuellement, j'ai mis dans la colonne "A" un lien vers la macro : J'utilise le code

Code :

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

sheets("Feuil1").printpreview

pour avoir un aperçu de la feuille du classeur.

Le "problème" (en fait j'essaye d'améliorer mon code), c'est que l'aperçu s'ouvre, et il faut le refermer....

Donc question, y-aurait-il une possibilité pour :

Je clique sur une cellule de la colonne A (où je veux voir la feuille), l'aperçu apparait et lorsque j'"arrête" mon clic, l'aperçu se referme automatiquement....Un peu comme on peut l'avoir sur un Mac en utilisant l'aperçu....

Merci,

A+

[ucfoutu]

Bonjour,

Très compliquée, ton affaire....
1) pas de réelle possibilité sur une cellule
2) on pourrait y penser avec un bouton de commande sur ta feuille et en utilisant son évènement MouseDown... mais alors ===>>
3) la fenêtre active (celle ayant le focus) deviendrait (Windows) celle de l'aperçu... et ===>>
Je ne vois plus de solution pour utiliser l'évènement MouseUp du bouton de départ, sauf à passer par une acrobatie sans nom en utilisant diverses fonction de l'Api de Windows... (et probbablement un hook...)
Sûrement réalisable, ton truc, mais ... très cher payé en lourdeurs et ressources ...
Un conseil : laisse l'utilisateur décider lui-même de cliquer sur la petite croix de la fenêtre de l'aperçu !

[ericdev67]

Merci pour tes encouragements ucfoutu ,

En fait, je ne fais appel que quand je suis perdu...et là, je vois que je ne suis pas seul.....
J'ai l'impression qu'il n'y a pas de solutions......

Merci
A+

[ucfoutu]

Re...
Qui a dit çà ?
Pas moi... (relis-moi)
Une solution existe toujours, mais elle serait ici démesurée .....

PS :
Rends-toi compte (après m'avoir relu attentivement) de ce qu'il y aurait à écrire pour "capturer" les évènements souris, extraire le handle de la fenêtre du Preview, lui envoyer un Message Windows, etc...
C'est certes réalisable (plusieurs fonctions de l'Api de Windows) mais très cher payé !!!

Les choses auraient pu être différentes si VBA avait prévu un paramètre spécial dans l'expression :

Code :

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

sheets("Feuil1").printpreview

pour ouvrir ou fermer le Preview, mais ce n'est pas le cas ...
Le seul paramètre prévu permettant de modifier ou non ...

[Invité]

Bonsoir,

J'ai déjà lu plusieurs fois ce genre de problème et je me suis aussi plusieurs fois posé la question.

Alors, est-ce qu'à travers un timer, on pourrait trouver cette solution, même si ce n'est pas parfait (quel délai avant la fermeture ?)

[ucfoutu]

Bonjour, jacques_jean ,

Ma réponse est sans hésitation "oui" ...
Il suffit alors d'extraire le handle de la fenêtre du "Preview", puis de zigouiller cette fenêtre et ce processus au bout d'un temps déterminé.

Mais :
1) lourdeurs quand-même
2) ce n'est pas "parfait" et en tout état de cause pas ce qui est demandé (en terminer au MouseUp...)
3) cela risque d'être plus fastidieux, pour l'utilisateur, que de cliquer lui-même sur une petite croix. (et au bout de quelle durée ? en fonction de quels critères de vivacité de l'utilisateur pour déterminer que l'aperçu correspond ou non à ses voeux ?
4) il faudrait par ailleurs une gestion d'erreur ... car si l'utilisateur clique sur la petite croix de fermeture et que les instructions dans le timer cherchent, plus tard, à fermer une fenêtre qui n'existe plus, il va bien falloir gérer ce cas de figure également
Amitiés.

EDIT :
Je n'en jurerais pas plus que d'autres, mais je ne serais absolument pas étonné de ce que l'équipe de VBA a pris toutes ces considérations en compte (avec le même raisonnement) et ... a décidé sagement ce qu'elle a décidé... (en gardant présent à l'esprit, de surcroît, qu'elle aurait alors dû gérer en plus le cas de figure où était utilisé le paramètre/argument permettant des modifications, notamment en ce qui concerne les marges ... Car ... comment faire alors sans lever son doigt de la touche et agir ailleurs ...).
Voilà ...