Discussion :

[toony63]

Bonsoir a tous,
encore moi le bras cassé du moment

j'essaye de faire afficher une image ou pdf dans un cadre d'objet dépendant sur double clique d'un fichier de la "liste de fichier"

et ça ne fonctionne pas ....

voici mon code vba

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Liste_fichiers_DblClick(Cancel As Integer)
 
On Error GoTo Err
Me.Lecteur_fichiers = Me.Liste_fichiers
 
Err:
    Select Case Err.Number
        Case (2501)
            Exit Sub
   End Select
End Sub

et voici les images de se que j'ai et se que je veux faire

formulaire en mode création


formulaire en fonction


Si une bonne âme peux m'orienter ça serait gentil

[Bob78280]

Tout simplement ceci ?

Private Sub Liste_fichiers_DblClick(Cancel As Integer)

Image10.Picture = type_travaux.Value + "\" + Liste_fichiers.Value

End Sub

[toony63]

Merci Bob78280

ahhhhhhhhhhhh

j'ai converti mon cadre objet dépendant en image et ça fonctionne pour les images

par contre je n'arrive pas a dissocier les fichiers images des autres fichiers

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
Private Sub Liste_fichiers_DblClick(Cancel As Integer)
 
On Error GoTo Err
 
   'Si fichier .jpg ouverture dans cadre photo
If Liste_fichiers.value = "*.jpg" Then
   'ouverture fichier dans cadre photo
   Lecteur_images.Picture = Dossier_stockage.Value + "\" + Liste_fichiers.Value
 
   'sinon ouvrir shellexecute (avec fonction debut de page)
Else
   ShellExecute Me.hwnd, "open", Liste_fichiers.Value, "", Dossier_stockage.Value, 1
 
Err:
    Select Case Err.Number
        Case (2501)
            Exit Sub
   End Select
  End If
End Sub

[Bob78280]

Bonjour,

Je ne comprends pas ta phrase :
"dissocier les fichiers images des autres fichiers"

[toony63]

Je ne comprends pas ta phrase :
"dissocier les fichiers images des autres fichiers"

Dans ma liste fichiers j'ai ceci

Fichier1.jpg
Fichier2.pdf
Fichier3.jpg
fichier4.pdf
fichier5.doc
fichier6.jpg

je souhaite donc ouvrir les fichiers *.jpg avec le code :

Code :

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

Lecteur_images.Picture = Dossier_stockage.Value + "\" + Liste_fichiers.Value

et les autres avec le code:

Code :

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

ShellExecute Me.hwnd, "open", Liste_fichiers.Value, "", Dossier_stockage.Value, 1

en espérant avoir été plus clair

[Bob78280]

ah oui, ca y est :
( j'ai déplacé ton End If aussi)

Private Sub Liste_fichiers_DblClick(Cancel As Integer)

On Error GoTo Err

'Si fichier .jpg ouverture dans cadre photo
If Right(Liste_fichiers.value,4) = ".jpg" Then
'ouverture fichier dans cadre photo
Lecteur_images.Picture = Dossier_stockage.Value + "\" + Liste_fichiers.Value

'sinon ouvrir shellexecute (avec fonction debut de page)
Else
ShellExecute Me.hwnd, "open", Liste_fichiers.Value, "", Dossier_stockage.Value, 1

end if

Err:
Select Case Err.Number
Case (2501)
Exit Sub
End Select

End Sub