Discussion :

[moilou2]

Bonjours à tous, j'ai actuelement une solution pour visualiser des photos, mais cela m'oblige à ouvrir à chaque fois un formulaire, dans le quel je charge la photo. Cela prend donc pas mal de temps à chaque fois.

Je cherche donc à avoir des retour d'experience, ou des idées pour aquerir une solution plus rapide et peut etre plus pratique.

Pour le moment, j'affiche mes données dans une zone de liste et j'appel ma photo à l'aide d'un bouton, voici le code de ce bouton:

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
Private Sub cmdPhotos_Click()
Dim Reference As String
Dim chemin As String
Dim verif As String
 
If IsNull(Me.lstResults.Column(8)) Then
MsgBox ("Veuillez selectionner une ligne dans la liste de résultat")
Exit Sub
End If
 
Reference = Me.lstResults.Column(8)
chemin = "X:\Maintenance\Public\GMAO\Photos\Piéces\" & Reference & ".JPG"
verif = Dir(chemin)
 
If verif = "" Then
MsgBox ("Aucune photo n'est associée à cet article")
Exit Sub
Else
DoCmd.OpenForm "Photos/Plans"
[Form_Photos/Plans].ImgPhotosPlans.Picture = "X:\Maintenance\Public\GMAO\Photos\Piéces\" & Reference & ".JPG"
End If
End Sub

PS: Mes photos ne se trouvent pas dans la base, mais sur le réseau.

Merci

[marot_r]

Tiens-tu absolument à ouvrir tes photo dans un formulaire Access ou pourrais-tu vivre si elle s'ouvrait à l'extérieure de ton appli ?

A+

[moilou2]

Ba c'est mieux si elle s'affiche dans la base de données, après si c'est pas un formulaire, mais si par exemple c'est une fenêtre qui vient s'ouvrir devant mon application sa ne m dérange pas.

Si c'est plus rapide...

[marot_r]

Alors tu peux essayer avec le code qui suit qui ouvre n'importe quoi sur un poste.

À mettre dans un module.

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
Option Compare Database
Option Explicit
 
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                              (ByVal hwnd As Long, ByVal lpszOp As String, _
                               ByVal lpszFile As String, ByVal lpszParams As String, _
                               ByVal LpszDir As String, ByVal FsShowCmd As Long) _
                               As Long
Declare Function GetDesktopWindow Lib "user32" () As Long
 
Const SW_SHOWNORMAL = 1
 
Const SE_ERR_FNF = 2
Const SE_ERR_PNF = 3
Const SE_ERR_ACCESSDENIED = 5
Const SE_ERR_OOM = 8
Const SE_ERR_DLLNOTFOUND = 32
Const SE_ERR_SHARE = 26
Const SE_ERR_ASSOCINCOMPLETE = 27
Const SE_ERR_DDETIMEOUT = 28
Const SE_ERR_DDEFAIL = 29
Const SE_ERR_DDEBUSY = 30
Const SE_ERR_NOASSOC = 31
Const ERROR_BAD_FORMAT = 11
 
Public Function StartDoc(DocName As String) As Long
    Dim Scr_hDC As Long
    Scr_hDC = GetDesktopWindow()
    StartDoc = ShellExecute(Scr_hDC, "open", DocName, _
                            "", "C:\", SW_SHOWNORMAL)
End Function
 
 
 
Public Function ErrorCheck(r As Long) As Integer
 
    Dim msg As String
 
    If r <= 32 Then
        'There was an error
        Select Case r
            Case SE_ERR_FNF
                msg = "Fichier non trouvé"
            Case SE_ERR_PNF
                msg = "Chemin non trouvé"
            Case SE_ERR_ACCESSDENIED
                msg = "Accès refusé"
            Case SE_ERR_OOM
                msg = "Mémoire insufisante"
            Case SE_ERR_DLLNOTFOUND
                msg = "DLL non trouvée"
            Case SE_ERR_SHARE
                msg = "Une violation de partage a eu lieu"
            Case SE_ERR_ASSOCINCOMPLETE
                msg = "Association de fichier incomplète ou invalide"
            Case SE_ERR_DDETIMEOUT
                msg = "Dépassement du temps d'attente pour DDE"
            Case SE_ERR_DDEFAIL
                msg = "Échec de transactiob DDE"
            Case SE_ERR_DDEBUSY
                msg = "DDE occupé"
            Case SE_ERR_NOASSOC
                msg = "Pas de programme associé à l'extention du fichier"
            Case ERROR_BAD_FORMAT
                msg = "Fichier EXE invalide ou erreur dans une image EXE"
            Case Else
                msg = "Erreur" & r & " inconnue"
        End Select
        MsgBox msg & " "
    End If
End Function

[moilou2]

Re merci pour ton code mais sa marche comment?

[ClaudeLELOUP]

Bonjour,

par exemple comme ceci dans la fenêtre d'exécution

Code :

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

? StartDoc("C:\BROUSMICHE\divers\Démo.doc")

Merci marot_r
J'ai copié dans ma boîte à outils

[_MattU_]

Enfin ce que Claude n'a pas précisé c'est qu'il faut que tu copies tout le bout de code dans un module (vide de préference pour l'organisation) avant de faire l'appel
Et je pense que le ? dans l'appel est de trop ^^

En tout cas bien pratique comme petite fonction, merci bien !