Quelle application dans le code pour ouvrir Win Picture & Fax Viewer

Marsh Posté le 10-12-2008 à 12:24:56

Bonjour,

Dans une base Access je stocke des chemins d'accès à des fichiers que je souhaite ouvrir (autre formulaire) via un bouton. Pas de problème quant aux fichiers excel et word mais je ne sais pas quoi mettre pour ouvrir les images avec Windows Picture and Fax Viewer! Le code que j'utilise pour excel et word ressemble à ça:

Dim objGraph As Object

Set objGraph = CreateObject("XXX.Application" )
objGraph.XXX.Open FileName:=XXX
objGraph.Visible = True

QUESTIONS:
Que faut-il mettre à la place des XXX?
Est-ce la meilleure façon de faire?
Quel application utiliser si Windows Picture Viewer ne fonctionne pas?

Merci de vos réponses.

---------------
Il est souvent nécessaire d'entreprendre pour espérer et de persévérer pour réussir.

Reply

Marsh Posté le 10-12-2008 à 12:24:56

Reply

Marsh Posté le 10-12-2008 à 14:19:59

Une application permettant de voir des images et pouvant s'interfacer par le moyen d'activeX est Internet Explorer. Donc, essayer :

Code :

Dim objGraph As Object
Set objGraph = CreateObject("InternetExplorer.Application" )
objGraph.Navigate("xxxx" )
objGraph.Visible = True

Je ne sais pas si Open marche avec IE, donc je l'ai remplacé par Navigate.

Reply

Marsh Posté le 10-12-2008 à 15:10:32

Hello!
Ca fonctionne mais l'image est un peu déformé.
Ca fera l'affaire quand même, merci.

---------------
Il est souvent nécessaire d'entreprendre pour espérer et de persévérer pour réussir.

Reply

Marsh Posté le 10-12-2008 à 19:05:08

Sous Access 97, pour ouvrir un fichier avec l'appli par défaut, quelque soit son extension, j'utilise cette fonction :

Code :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

(elle est à placer en tête de module où est le bouton qui déclenche l'évènement)

Ensuite, dans la procédure du bouton tu mets :

Code :

ShellExecute Me.hwnd, vbNullString, txtURL, "", vbNullString, 1

Le txtURL étant la variable définissant le chemin complet du fichier que tu veux ouvrir.

---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

Reply

Quelle application dans le code pour ouvrir Win Picture & Fax Viewer

Sujets relatifs:

Leave a Replay