Banque d’images : ouvrir le dossier des images
Un nouvel épisode de notre saga Banque d’images : comment ouvrir, à partir d’Access, le dossier qui contient les images d’origine ?
Le principe
En fait, il suffit d’adapter le code traité dans l’article Ouvrir un dossier Windows, qui repose sur l’instruction Shell
(vous pouvez consulter, en passant, tous les autres articles qui exploitent cette instruction !).
Le code
- Ajoutez un bouton sur votre formulaire d’images, sans assistant (le mien s’appelle
btnOuvrirDossier
). - Faites apparaître les propriétés du bouton, onglet Evénement.
- Choisissez
Propriété événementielle
pour 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 11 12 |
' --- ' OUVERTURE DU DOSSIER IMAGES ' --- Private Sub btnOuvrirDossier_Click() If IsNull(Me.txtRepBase) Then MsgBox "Le dossier n'est pas renseigné !", _ vbExclamation Exit Sub End If Shell "explorer """ & Me.txtRepBase & """", vbNormalFocus End Sub |
Mimi > Une erreur de ce type veut généralement dire que le fichier n’existe pas, ou que son chemin complet est incorrect. Sans savoir où l’erreur se produit, je ne peux malheureusement pas préciser… 😉
Bonjour Hervé Inisan,
Merci pour ta réponse qui m’a été utile par contre j’ai un autre ERREUR (d’exécution ’53’: fichier introuvable )et je voulais savoir si possible aprés l’ouverture de dossier image de d’Uploader l’image depuissi un ordinateure pour qui s’afficher ensuite dans un formulaire
MIMI
Mimi >
txtRepBase
est supposé être un champ du formulaire qui donne le répertoire (dossier) de base des images. Selon la construction du formulaire (et les articles précédents), ce champ s’appelle peut-êtreDossier
. Il suffit donc de remplacertxtRepBase
par le nom du champ équivalent, et ça devrait passer. Bons tests !Bonsoir,
Je suis débutante en programmation VBA et grâce à vous je commence à développer 🙂
Bon, j’ai un souci quand j’exécute ce code : il y a une erreur qui apparait (Membre de méthode ou de données introuvable) pour le (txtRepBase). Je ne sais pas comment y arriver.
Merci d’avance de votre aide.
Mimi