lien

[Rémy]

re a tous

il y a quelques temps, j'ai fais un post sur un petit probleme et n'ayant pas eu de reponse, je me permet de le re-poster pensant que je suis peut etre tombé sur une periode de faible presence des as que vous etes. merci d'avance

Rémy

*******************************

petite probleme genant.

j'expose

j'ai une liste en 'feuille2' genre, nom prenom adresse etc...
dans la derniere colonne je met un lien hypertexte qui va chercher une photo et ce sur toute les ligne de la liste.

en 'feuille1' je fais une presentation genre fiche de presentation qui va au moyen de recherchev dans feuille 2, les infos.
dans cette presentation, je met un recherv qui va chercher mon lien hypertexte. le lien est bien affiché mais perd son format lien ce qui m'empeche de cliquer. forcement!!!

peut on recuperer cette propriete et mieux, peux t-on afficher directement la photo?

 

[Sylvain]

Bonsoir,

tu ne dis pas où est la photo (dans le classeur ou dans un fichier). D'autre part le classeur peut-il contenir ou non des macros ?

Pour le moment je peux simplement t'indiquer la fonction =lien_hypertexte('http://.....')
=lien_hypertexte('c:\\.....')

 

[Rémy]

bonjour et merci de t'etre penché sur mon cas

la photo est dans un fichier. le classeur peut contenir des macros

Rémy

 

[Sylvain]

bonjour,

une solution VBA donnée sur l'ancien forum :

Option Explicit
'http://www.excel-downloads.com/html/French/forum/messages/1_66795_66795.htm
'Michel XLD
'adaptation par Celeda pour Jean-Yves/merci mimi
'=======================================================================
Sub InsertionImageJY()
Dim Emplacement As Range
Dim image As Object
Dim ShapeObj As Object

On Error GoTo fin:
For Each ShapeObj In ActiveSheet.DrawingObjects ' boucle pour supprimer ancienne image
If ShapeObj.Name = 'cible' Then ActiveSheet.Shapes('cible').Delete
Next ShapeObj

Application.Dialogs(xlDialogInsertPicture).Show
'c'est ici que tu changes ton emplacement pour afficher ta photo/celeda
Set Emplacement = Range('K15:M15')

Set image = ActiveSheet.DrawingObjects(2) 'adapter selon nombre total de shapes dans feuille
With image.ShapeRange
.Name = 'cible' ' nommer l'image insérée ( pour la supprimer plus facilement ensuite )
.LockAspectRatio = msoFalse
.Left = Emplacement.Left
.Top = Emplacement.Top
.Height = Emplacement.Height
.Width = Emplacement.Width
End With

Exit Sub
fin:
If Err = 1004 Then MsgBox 'Insertion d'image interrompue . '
End Sub

donc adaptation pour ton cas :

Sub insère_photo(feuille, destination, nom_complet)
'feuille > onglet qui contiendre la photo 'feuil1' par exemple
'destination zone contenant la photo 'A1:A5' par exemple
'nom_complet 'c:\\photos\\toto.gif'
Dim emplacement As Range
Sheets(feuille).Select
  Set emplacement = Range(destination)
    On Error Resume Next
      ActiveSheet.Shapes('cible').Delete 'cible sera le nom de la forme photo sur la feuille
    On Error GoTo 0
      ActiveSheet.Pictures.Insert(nom_comple).Select

With Selection.ShapeRange
  .Name = 'cible' ' nommer l'image insérée ( pour la supprimer plus facilement ensuite )
  .LockAspectRatio = msoFalse
  .Left = emplacement.Left
  .Top = emplacement.Top
  .Height = emplacement.Height
  .Width = emplacement.Width
End With
Range('a1').Select
End Sub

Message édité par: Sylvain, à: 16/03/2005 12:50

 

[_Thierry]

Bonjour Rémy, Sylvain, le Forum

Ta question me rappelle celle d'Aurélien dans ce Fil :

=> Lien supprimé

Où j'avais développé cette démo :

=> Lien supprimé

Je pense que ça devrait te permettre d'avancer. Ici la base sont des URL Internet, mais avec 'FollowHyperlink' tu peux ouvrir n'importe quoi, Fichier ou Images sur le Disque dûr ou en réseau, pour autant que tu spécifies le Chemin Complet et le nom du fichier avec son extension.

Bon Appétit
@+Thierry

 

[Rémy]

bonjour a tous

merci sylvain mais a part le fait que je ne comprends pas tout, debutant oblige, ce n'est pas ce que je recherche. l'insertion est deja faite et c'est l'affichage que je veux.

je pense que je vais faire un petit fichier demo pour me faire comprendre

merci

rémy

 

[Sylvain]

oui alors le plus simple est de ne pas utiliser vba mais une simple fonction index.