1 membre
Connectés : ( personne )
- La Charte du Forum - Forum - Questions générale
Sujet n° 624 |
ouvrir un fichier jpg en cliquant sur son nom |
le 19/09/2012 : 19:17 par possible924
visiteur |
Bonjour à tous;Je stocke des images au format jpg dans un répertoire précis.Dans un formulaire, lié à une table, je saisie le nom du fichier de chaque image sans son extension.Je voudrais en cliquant sur un bouton ouvrir l'image dont j'ai sélectionné le nom au préalable.Pouvez vos m'indiquer comment faire ?Merci par avancePierre |
|
|
Réponse n° 2 -------- le 20/09/2012 : 14:38 par possible924
visiteur |
Merci pour la réponse;C'est avec du code VBA que je souhaiterais ouvrir le fichier au format jpgMerciPierre |
|
|
Réponse n° 3 -------- le 20/09/2012 : 16:31 par possible924
visiteur |
A vrai dire, j'ai pris l'option d'écrire dans le champ du formulaire le nom du fichier entier avec l'extension, ce qui me permet d'ouvrir tout type de fichier et ça ne marche pas mal, sauf pour les fichiers jpg ou seul le navigateur est ouvert sans l'image !Voici le code que j'ai :Private Sub Voir_Click()On Error GoTo FinDim Txt As StringIf IsNull(Me!Pcs_Code) Then Exit SubTxt = "W:\DClic\Pièces\" & Me!Pcs_Code CreateHyperlink Me!Voir, Me!Pcs_Code, TxtFin:End Subque puis je faire pour ouvrir les images ?Merci par avance pour votre aidePierre |
|
|
Réponse n° 5 -------- le 21/09/2012 : 19:14 par possible924
visiteur |
Merci pour la réponse et pour avoir replacé la question à sa place.Merci aussi pour la démo Trombinoscope qui m'a ouvert des perspective interréssantes.Cependant, mon problème n'est pas complétement résoluQuand j'ai un emregistrement avec un nom de fichier avec les extensions doc, xls, pdf, j'ouvre sans problème le fichier dans le programme correspondant par défaut, mais avec l'extesion jpg, j'ouvre le navigateur en l'occurence IE8, mais sans l'image correpondant au fichier, bien qu'il exite un programme par défaut pour ouvrir les images jpgQuel peut bien être le problème ,Merci par avance pour votre aidePierre |
|
|
Réponse n° 7 -------- le 22/09/2012 : 09:25 par possible924
visiteur |
Mais, c'est ce que j'ai fait et refait.
Dailleurs, si je clique sur n'importe quelle image,je l'ouvre avec le programme que j'ai choisi pour,en l'occurence MO Picture manager, mais par le code, c'est IE8 qui s'ouvre sans l'image à l'intérieur
Voici le code :
Private Sub Voir_Click()
On Error GoTo Fin
Dim Txt As String
If IsNull(Me!Pcs_Code) Then Exit Sub
Txt = "W:DClicPièces" & Me!Pcs_Code
' Txt = "W:DClicPièces" & Me!Pcs_Code & ".pdf"
' Me!txtAddress = Txt
' CreateHyperlink Me!Voir, Me!Pcs_Code, Me!txtAddress
CreateHyperlink Me!Voir, Me!Pcs_Code, Txt
Fin:
End Sub
Function CreateHyperlink(ctlSelected As control, strSubAddress As String, Optional strAddress As String)
On Error GoTo Fin
Dim HLK As Hyperlink
Select Case ctlSelected.ControlType
Case acLabel, acImage, acCommandButton
Set HLK = ctlSelected.Hyperlink
With HLK
If Not IsMissing(strAddress) Then
.Address = strAddress
Else
.Address = ""
End If
.SubAddress = strSubAddress
.Follow
.Address = ""
.SubAddress = ""
End With
Case Else
MsgBox "The control '" & ctlSelected.Name & "' does not support hyperlinks."
End Select
Fin:
End Function
C'est peut être là où se situe le problème !
A+
Pierre
|
|
|
sujet actif
sujet clos
Important!
Nouveau message -
Rectifier message
Clôturer sujet
Remonter
|