Banque d’images : ouvrir l’aperçu Windows
Une question posée par un lecteur du blog, dans la saga Banque d’images : comment déclencher, à partir d’Access, l’aperçu Windows ?
Le principe
En fait, pour être plus précis, on ne va pas nécessairement déclencher l’aperçu Windows, on va plutôt « ouvrir l’application associée aux images ». En d’autres termes, si votre Windows est d’origine, ce sera bien l’aperçu qui s’ouvrira. Mais si vous avez associé un autre logiciel aux extensions de type JPG, par exemple, ce sera cette application qui s’ouvrira.
On va utiliser pour ça la commande ShellExec (et sa base ShellExecute), qui a été présentée dans l’article Ouvrir ou imprimer un fichier quelconque à partir de son nom. Le code qui suit utilise aussi la fonction AddBackslash(), que vous avez déjà dû recopier dans un module standard de votre base !
Le code
- Ajoutez un bouton sur votre formulaire d’images, sans assistant (le mien s’appelle
btnApercuWindows). - Faites apparaître les propriétés du bouton, onglet Evénement.
- Choisissez
Propriété événementiellepour l’événementSur clic. - Cliquez sur les points de suspension à droite de l’événement, et recopiez le code suivant :
|
1 2 3 4 5 6 7 8 9 10 |
' --- ' APERCU WINDOWS ' --- Private Sub btnApercuWindows_Click() Dim strChemin As String strChemin = """" & AddBackslash(Me.txtRepBase) _ & Me.Nom_Fichier & """" ShellExec strChemin, "open", vbNormalFocus End Sub |
