Discussion :

[Jalabert]

Bonjour,

Je suis en train de créer un programme sous access dans lequel l'une des pages de sortie doit contenir une photo.

Or cette photo doit pouvoir être changée. Aussi voudrais-je utiliser un bouton permettant de choisir le chemin de destination de cette image.

Ce qui serait mieux, c'est que l'image choisie soit copiée dans un répertoire (du nom du fichier access ouvert). L'adresse de l'image serait donc du type /[nom_du_fichier_access]/[nom_du_fichier_access].jpg).

Quel code associer à mon bouton?

D'avance merci.
Jalabert.

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Tu peux toujours utiliser un objet FileDialog.

Code :

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

1
2
3
4
5
6
7
Dil dlg as  FileDialog
Dim filePath As string
 
set dlg = Application.FileDialog(msoFileDialogFilePicker)
dlg.show
 
filePath = dlg.selecteditems(1)

Cet objet fait partie de la bibliothèque Office.

[Jalabert]

Merci pour ta réponse.

Le code pour le bouton a l'air de fonctionner, cependant je ne sais pas quel objet utiliser pour définir l'emplacement de l'image, car si je choisis "insérer une image", access me demande de la sélectionner...

Comment faire?

D'avance merci.

[Heureux-oli]

Un peu de lecture http://cafeine.developpez.com/access/tutoriel/photos

[Jalabert]

C'est un problème différent pour moi (enfin je crois) car mon image doit s'afficher dans un état.

Faut-il créer un sous formulaire dans cet état?
Comment faire référence à "FilePath" associé au clic sur mon bouton, sachant que ce n'est pas un "objet Access"?

Désolé, je suis débutant.

[Heureux-oli]

Désolé, j'avais pas vraiment compris ton problème.

comment affiche tu ton image ?

Il suffit si tu as son chemin dans une table lors de l'ouverture de la DB ou simplement avec un bouton de commande modifier le nom de l'image.
Le chemin est un simple texte.

CurrentProject.Path donne le chemin du projet
CurrentDb.Name donne le chemin complet de la DB

Si tu utilises les fonctions textes de VBA, tu devrais pouvoir remplacer le mdb par jpg

http://dominiquemaniez.developpez.co...ctionsVBA/#LII

[Jalabert]

comment affiche tu ton image ?

Eh bien j'ai deux choix (en mode création) : "logo" et "image"...

Avec "logo" je dois obligatoirement donner une image ; tandis qu'avec "image" il me demande également de sélectionner une image, mais si je fais annuler, je peux remplir les champs des propriétés (Nom, Source contrôle, Image...) manuellement.

Quel champ dois-je remplir, et avec quoi, pour que le code que tu m'as donné (associé au bouton) fonctionne?

Merci pour ta patience.

[Heureux-oli]

Quel champ dois-je remplir, et avec quoi, pour que le code que tu m'as donné (associé au bouton) fonctionne?

C'est fonction de la façon dont ta DB est construite.
Je n'ai pas d'idée de la façon dont tu as fait ta Base de données, ce qui implique que je n'ai pas d'idée de la façon dont tu dois utiliser le code.

[Jalabert]

Bonjour,

Après avoir mieux compris le fonctionnement d'Access, j'ai tenté ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Report_Open(Cancel As Integer)
Dim dlg As FileDialog
Dim filePath As String
 
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
dlg.Show
 
[Image131].Picture = dlg.SelectedItems(1)
 
End Sub

Lorsque l'état de sortie est appelé, une boite de dialogue apparait et on peut sélectionner l'image. Lorsque c'est fait, la page apparait... mais l'image est absente. Dans ses propriétés "Image" = aucune, alors que le code aurait dû modifier la valeur "aucune" par le chemin d'accès sélectionné...

Merci pour votre aide.

[Gabout]

Bonjour,

C'est un problème différent pour moi (enfin je crois) car mon image doit s'afficher dans un état.

Jalabert, à titre d'information, le tuto de Caféine fonctionne très bien dans un état

[helas]

le code fonctionne parfaitement sous Access 2002
Est-ce bien un objet Image dans l'état ?

[Jalabert]

Oui.