problème gestion photos

[maximilien59]

Bonjour, a tous,

Je suis actuellement entrain d'élaborer une base access et j'ai un problème assez important concernant la gestion de photos.

Je m'explique, j'ai suivi le tutoriel de cafeine (http://cafeine.developpez.com/access/tutoriel/photos/) qui va bien mais par contre si j'ouvre ma base sur un pc différent, il y a toujours une erreur de chemin introuvable.

Pourtant, je fourni avec la base le dossier comportant toutes les photos.

Quelqu'un peux-t'il maider?

Je vous remercie et Bonnes fêtes de fin d'année.

[curt]

Bonjour maximilien59,

peux-tu nous indiquer le chemin dans lequel tu mets la base et les photos ?

Pour info, si les photos sont dans DOCUMENTS ou IMAGES, il est normal qu'il y ait un message d'erreur !!! Ce chemin est sous le compte Utilisateur qui sera différent en fonction de la session Windows que tu ouvres !

Curt

[maximilien59]

Ma base se trouve sur le bureau et comme lien, j'ai utiliser :"Me.imgPhoto.Picture = Environ("USERPROFILE") & "\Desktop\base\Photos Matériels\interog.jpg. comme dans le tutoriel de cafeine.

Quand je l'execute avec un autre pc et autre utilisateur c'est mon nom qui s'affiche.

[alassanediakite]

Salut
Le mieux c'est d'avoir un dossier principal qui contient la base et un sous-dossier (ex:photo) qui contient les photos. Dans ce cas tu utilises...

Code :

Me.imgPhoto.Picture =CurrentProject.Path & "\photo\lefichier.xxx"

par ailleurs, évite de placer un dossier sur le bureau. Il ne pas fait pour ça!
@+

[curt]

Là je suis étonné :

Quand je l'execute avec un autre pc et autre utilisateur c'est mon nom qui s'affiche.

avec cette commande

:"Me.imgPhoto.Picture = Environ("USERPROFILE") & etc....

Si tu utilises un autre nom que le tien, ça n'est sûrement pas ton nom qui s'affiche ! (USERPROFILE oblige).

De plus, le bureau étant dans le chemin C:\Users\LE_NOM_DE_SESSION\Bureau il n'est pas judicieux de mettre des dossiers dedans pour ensuite déployer sur d'autres machines.

Curt

[ClaudeLELOUP]

Bonjour,

Pour utiliser l’exemple de Caféine, tu dois :
- télécharger le fichier qui t’est proposé ;
- décompresser et loger la dbPhotos.mdb et le répertoire Images dans un même dossier, quel qu'il soit (pas le bureau).

Pour tester, il te suffit de cliquer sur Ajouter/modifier Photos et choisir une photo. Celles que Caféine a prévues se trouvent dans le sous-répertoire « Images ».
Le chemin de l’image choisie sera alors stocké dans la table.
En fait, pour le programme de Caféine, le sous-répertoire doit obligatoirement s'appeler « Images » et contenir BLANK.jpg, c’est là que le programme trouvera l’image par défaut. Tu loges où tu veux les autres images.

Joyeuses fêtes à tous.

[maximilien59]

Merci pour vos reponse, désolé pour l'absence (fêtes de fin année)

Je vous souhaite une merveilleuse année 2012.

[maximilien59]

Bonjour,

Après une durée d'absence, je reviens sur mon problème de gestion image, ma programmation fonctionné bien en local, mais ne fonctionne toujours pas en réseau.

Pour cela je l'ai modifié et pour simplifier ma programmation (du faite à l'appel de différents formulaires), je l'ai mis dans un module. Depuis, l'erreur 424 (cf: pièce-joint) arrête pas d'apparaître au lancement des formulaires.

Quelqu'un peux-t'il m'aider?

Merci

[Domi2]

Bonjour,

Comme nous ne sommes pas devin, difficile de pouvoir te répondre sans connaître ton code.

Peux-tu le poster ?

Domi2

[maximilien59]

Envoyé par Domi2

Bonjour,

Comme nous ne sommes pas devin, difficile de pouvoir te répondre sans connaître ton code.

Peux-tu le poster ?

Domi2

Oui désolé

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub VisualiserPhoto()
 
Dim LienImageDefauts As String
 
LienImageDefauts = CurrentProject.path & "\Photos Matériels\interog.jpg"
 
'  Me.Caption : gère le titre du formulaire.
If Len(N°_Matériel) > 0 Then
    Caption = "Ajout d'un nouveau Matériel"
End If
 
' Gestion des erreurs
On Error GoTo Catch02
 
' si la photo n'est pas définie, on affiche la photo interog.jpg
' CurrentProject.Path : est le chemin de l'application
If Len(Photo) > 0 Then
    imgPhoto.Picture = Photo
Else
    imgPhoto.Picture = LienImageDefauts
End If
 
'Appel 'DisplayPhoto' dans le module 'gestionPhoto'
gestionPhoto.DisplayPhoto 
 
Exit Sub
 
Catch02:
Select Case err.Number
    Case 2114
        'Cas d'un type de fichier photo non supporté ...
        MsgBox "Le format de l'image n'est supporté par le contrôle image Picture", vbCritical + vbOKOnly, "Application Photos"
        imgPhoto.Picture = LienImageDefauts
        Photo = vbNullString
    Case 2220
        'Cas d'un emplacement non valide du fichier image
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Photo, vbCritical + vbOKOnly, "Application Photos"
        imgPhoto.Picture = LienImageDefauts
        Photo = vbNullString
    Case Else
        ' tout autre cas d'erreur
        MsgBox "Erreur inattendue : " & err.Number & vbCrLf & err.description, vbCritical + vbOKOnly, "Application Photos"
End Select
err.Clear
 
End Sub

[Domi2]

Déjà, il serait bien de déplacer l'appel à la gestion d'erreur immédiatement après la déclaration de la variable :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Sub VisualiserPhoto()
 
Dim LienImageDefauts As String
 
' Gestion des erreurs
On Error GoTo Catch02
 
LienImageDefauts = CurrentProject.path & "\Photos Matériels\interog.jpg"
 
'  Me.Caption : gère le titre du formulaire.
If Len(N°_Matériel) > 0 Then
    Caption = "Ajout d'un nouveau Matériel"
End If
 
' si la photo n'est pas définie, on affiche la photo interog.jpg
' CurrentProject.Path : est le chemin de l'application
If Len(Photo) > 0 Then
    imgPhoto.Picture = Photo
Else
    imgPhoto.Picture = LienImageDefauts
End If
 
'Appel 'DisplayPhoto' dans le module 'gestionPhoto'
gestionPhoto.DisplayPhoto 
 
Exit Sub
 
Catch02:
Select Case err.Number
    Case 2114
        'Cas d'un type de fichier photo non supporté ...
        MsgBox "Le format de l'image n'est supporté par le contrôle image Picture", vbCritical + vbOKOnly, "Application Photos"
        imgPhoto.Picture = LienImageDefauts
        Photo = vbNullString
    Case 2220
        'Cas d'un emplacement non valide du fichier image
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué : " & vbCrLf & _
                Photo, vbCritical + vbOKOnly, "Application Photos"
        imgPhoto.Picture = LienImageDefauts
        Photo = vbNullString
    Case Else
        ' tout autre cas d'erreur
        MsgBox "Erreur inattendue : " & err.Number & vbCrLf & err.description, vbCritical + vbOKOnly, "Application Photos"
End Select
err.Clear
 
End Sub

Ensuite, mets l'appel en remarque :

Code :

'On Error GoTo Catch02

Puis essaye à nouveau. Quand l'erreur survient, clique sur débogage et regarde quelle ligne est surlignée en jaune.

Domi2

[maximilien59]

Merci pour ta reponse.

L'erreur apparait sur "imgPhoto.Picture = LienImageDefauts" dont "LienImageDefauts = CurrentProject.path & "\Photos Matériels\interog.jpg"".

J'ai fait un msgbox(LienImageDefauts) pour voir si il y avait pas une erreur de "\" et j'obtient (cf:piece joint), j'ai essayé de déplacé ma base (pour essai )mais cela fait exactement pareil.

Je comprend pas.

[Domi2]

Bonjour,

Envoyé par maximilien59

Pour cela je l'ai modifié et pour simplifier ma programmation (du faite à l'appel de différents formulaires), je l'ai mis dans un module. Depuis, l'erreur 424 (cf: pièce-joint) arrête pas d'apparaître au lancement des formulaires.

Tu as mis ta procédure dans un formulaire standard ?

Si oui, ça ne peut pas fonctionner. imgPhoto.Picture fait référence à un contrôle d'un formulaire. Soit tu remets ta procédure dans le module du formulaire qui va bien, ce que je te conseille fortemment, soit tu l'adaptes pour qu'elle fonctionne dans un module de code standard (en passant le nom du formulaire qui l'utilise en paramètre, je suppose que ça devrait pouvoir le faire). Mais franchement, je ne vois aucun intérêt à procéder de la sorte.

Domi2