Discussion :

[dumas.blr]

Bonjour,

Dans mon appli Access, j'ai un formulaire permettant de visualiser une image. J'ai aussi une commande permettant de la modifier.
Cependant, l'accès à la modification n'est pas intuitif.

Je m'explique :
Le bouton que j'utilise déclenche un événement "sur clic" qui est le suivant :

Code :

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

 Call RunShellExecute("Open", strFiles, 0&, 0&, SW_SHOWNORMAL)

RunShellExecute étant une procédure qui utilise en faite l'API ShellExecute déclarée de la manière suivante :

Code :

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

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

Le problème est donc le suivant :
Ma commande utilise le paramètre "Open", qui est le paramètre par défaut que l'on peut trouver dans l'explorateur windows. En l'occurence, chez moi, si mon fichier possède l'extention .jpg (pour un fichier image), il ouvre la visionneuse de photo windows.
Pour modifier la photo, il faut ensuite que j'aille dans le menu de la visionneuse et cliquer sur ""Ouvrir - Microsoft Office Picture Manager". Une opération supplémentaire inutile donc, dont je souhaiterais m'affranchir"

Ce que je souhaiterais faire, c'est ouvrir directement Microsoft Office Picture Manager en effectuant l'équivalent de la commande "Ouvrir avec - Microsoft Office Picture Manager".

Lorsque j'étais sous Windows XP, il y avait une option dans l'explorateur permetant de parcourir les propriétés associés aux extentions de fichiers, avec les commandes associés. Cette option a malheureusement disparue dans Windows 7; et le menu dans le panneau de configuration "programme par défaut -définir les association", est loin d'offrir les mêmes fonctionnalités.

Comme je ne suis pas un pro de la base de registre, je souhaiterais savoir si l'un d'entre vous connaitrait la commande à associer.

En vous remerciant par avance pour vos réponses éclairées

[LedZeppII]

Bonjour,

ShellExecute exploite l'association "type de fichier" <--> "application" en fonction d'un verbe (open, edit, print, ...)

S'il n'existe aucun verbe associant Microsoft Office Picture Manager à un fichier image, on ne pas utiliser ShellExecute.

Je me dirigerai vers le lancement de l'application Microsoft Office Picture Manager par ligne de commande.
Exemple, partant du principe que l'exécutable est dans le même dossier qu'Access :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub TestOfficePicMngr()
Dim sCmd As String, sPicFile As String
' Le fichier image à ouvrir
sPicFile = "E:\Mes Documents\Mes images\GOLD.JPG"
' Construction de la ligne de commande
sCmd = """" & Application.SysCmd(acSysCmdAccessDir) & "OIS.EXE" & """ " & _
       """" & "E:\Mes Documents\Mes images\GOLD.JPG" & """"
' Exécution de la ligne de commande
Shell sCmd
End Sub

A+

[Godzestla]

Bonjour,
tu peux également lancer l'application Microsoft Office Picture Manager ou toute autre de ton choix via ShelleExecute.

Le seul prérequis est de connaître le FullName de l'exécutable à lancer.

Un exemple avec Irfanview ici

Si tu fonctionnes avec une application tierce, tu peux tester son existence (car chemin d'install standard), l'installer si pas présente et l'appeler facilement vu que tu connais sa localisation.

[RobiPMS]

Bonjour.
Pour répondre à ta demande concernant la façon, sous W7, d'associer un programme à un fichier, il suffit d'utiliser le clic droit sur un fichier du type dont tu veux modifier l'association, et dans le menu contextuel, tu cliques sur la dernière proposition : Choisir le programme par défaut. Là, tu désignes le programme à utiliser en vérifiant que la case "toujours utiliser le programme sélectionné ....etc" est bien cochée.
Cordialement.

[vodiem]

salut dumas.blr, LedZeppII , Godzestla et RobiPMS

pour en rajouter une couche :
il est normalement toujours possible d'ajouter par une interface graphique les verbes mais je t'avoue qu'à chaque version l'appli change souvent d'emplacement...
donc via la base de registre:
(vu qu'un .reg demande un hex(2) pour le chemin) je propose une exécution en ligne de commande (cmd.exe en tant qu'administrateur):

Code :

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

REG ADD HKEY_CLASSES_ROOT\jpegfile\shell\edit2\command  /T REG_SZ /D "C:\Program Files\GIMP-2.0\bin\gimp-2.6.exe %1"

j'ai pas le chemin pour MS Picture Manager mais tu le mettra à la place de celui de GIMP ci dessus en conservant %1.
tu auras ainsi un second verbe "edit2" pour les fichiers .jpg (en supposant qu'il soit bien aussi associé à jpegfile ) que tu pourras alors utiliser avec le RunShellExecute.

[Godzestla]

Salut Vodiem,
comme d'hab je suppose que ce que tu suggères est du béton.

Mais , ma foi, je n'ai ... rien compris à ta solution.
Je la relirai après une nuit de sommeil.