fonction aperçu sous VBA

**zoulou153** · 06/04/2009, 16h34

Bonjour

Je développe une appli de gestion documentaire (Access 2003). J'utilise une fonction d'aperçu pour afficher le document demandé.

Suite à un changement de machine, l'appli a été modifié sans que j'arrive à en comprendre la cause:
Avant : la fonction aperçu ouvre les images (jpg) dans une application Paint(une fenêtre distincte/doc)
Après : la fonction ouvre les images (jpg) dans IE7 (un onglet/doc). Alors que l'association à partir de l'explorateur utilise toujours Paint.

Or, dans cette appli, j'ai prévu un chaînage des différentes pages d'un même article. Je souhaite donc pouvoir accéder par des btns de nav à mes doc.
Je ne sais pas, à partir de VBA, identifier et sélectionner un onglet ouvert dans IE.

Mon problème est donc le suivant :

a) récupérer le nom de l'appli utilisée pour visualiser le document ?
(Pour moi, cela dépend du poste qui exécute l'appli)
b) comment fermer cette appli avant d'ouvrir le doc suivant?

Merci de vos réponses

**belu33fr** · 09/04/2009, 16h49

plustot que de devoir t'adapter a tous les cas de figure, il est plus pertinent de lancer une application parfaitement connue ou que tu as installe avec ton application. ENsuite, il suffit de la lancer comme tu faisais precedemment avec la commande shell (voir l'aide vba)

Invité · 09/04/2009, 19h14

Bonjour

Envoyé par zoulou153

Alors que l'association à partir de l'explorateur utilise toujours Paint.

Comment lances-tu ton affichage de fichier jpg ?
As-tu testé avec l'API ShellExecute que l'on trouve dans la FAQ. Cela ouvre le document avec le fichier associé dans Windows.

Philippe

**zoulou153** · 10/04/2009, 00h17

Philippe, Belu33fr

Merci de vos réponses.
Tout d'abord pour répondre à vos question j'ai utilisé "CreateHyperlink " car que j'avais récupéré un code qui ouvrait un document de cette manière, que je l'avais testé et que cela répondait à mes attentes.
Mais comme le fait judicieusement observer Belu33fr code pas maitrisé du tout

Alors, pourquoi l'utiliser?
Simplement parcequ'il me permet d'ouvrir tout mes fichiers 'image, son, dessins,musique etc... sans avoir à identifier et donc à préciser l'appli qui ouvre le fichier concerné au moment de l'appel. ceci pour le coté "avantage"
côté inconvénient je ne sais pas récupérer l'id process.

Donc pour tester le cas des "jpg" j'ai essayé

Code :

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

retval = Shell("mspaint.exe " & mydoc)

qui fonctionne

Pour la suite la doc VB indique qu'il est possible de sélectionner une fenêtre via : "appactivate retval" puis de fermer la fenêtre avec "SendKeys "%{F4}", True" ce qui correspond exactement à ce que souhaite.

Mais je n'arrive pas à faire fonctionner mon test.

Code :

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

1
2
3
4
5
6
7
8
mydoc = "20090309222601.JPG"
'Obtenir l'ID process
retval = Shell("mspaint.exe " & mydoc)
Debug.Print "id : " & retval
'Activer la fenêtre
AppActivate retval
'fermer la fenêtre active
SendKeys "%{F4}", True