Discussion :

[Kihmé Xs]

Je suis actuellement en train d'essayer de gerer des images/photos dans mon prog access, j'ai utilisé le tutorial de caféine mais lorsque j'éssais de modifier/ajouter une photo rien ne se produit

d'après moi j'ai peut être une erreur sur le Hwnd n'ayant pas compris ce que c'était je l'ai mis à l'aveuglette, ou alors ma fonction d'ouverture de fichier est mal faite puisque la boite de dialogue pour aller chercher les images ne s'ouvrent pas.

Merci d'avance pour toute aide aussi minime soit elle

Procédure de modification/ajout :

Code :

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

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
 
Private Sub b_modifier_img_artiste_Click()
    Dim lien As String
 
On Error GoTo Catch01
 
lien = OuvrirUnFichier(Hwnd, "Sélectionner une photo", 1)
 
If Len(lien) > 0 Then
    ' tentative d'affichage de la photo
    imgPhoto.Picture = lien
End If
 
DisplayPhoto
Exit Sub
 
 
 
Catch01:
Select Case Err.Number
    Case 2114
        'Cas d'un type de fichier photo non supporté ...
        '  on sort de la procédure
        MsgBox "Le format de l'image n'est supporté par le contrôle image Picture", vbCritical + vbOKOnly, "Application Photos"
        Exit Sub
    Case 2220
        'Cas d'un emplacement non valide du fichier image
        MsgBox "Le fichier image n'a pas été trouvé à l'emplacement indiqué!"
        Exit Sub
    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

Fonction ouverture d'un fichier :

Code :

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

1
2
3
4
5
6
7
8
 
Public Function OuvrirUnFichier(Handle As Long, _
                                Titre As String, _
                                TypeRetour As Byte, _
                                Optional TitreFiltre As String, _
                                Optional TypeFichier As String, _
                                Optional RepParDefaut As String) As String
End Function

[lucienkany]

Bonjour,

regardes ceci

http://www.developpez.net/forums/sho...d.php?t=371929

il y a un fichier que j'ai utiliser pour comprendre comment faire et ça marche.

[Kihmé Xs]

Bon en fait je l'ai déjà sauf que je n'avais pas regardé dans le module, je vais en faire un et rééssayer, merci bien

[Kihmé Xs]

Ben voilà ça marche parfaitement