Hyperlien+commentaire sur fichier image disque

Bonjour à tous,

je suis nouveau et je viens de passer quelques jours à explorer votre sympathique forum.

je cherche une petite aide pour réaliser une base de données qui réunirait deux astuces trouvées sur ce site :

1) explorer un répertoire sur un disque locale (ex: c:\) et lister dans une feuille les fichiers d'extension *.jpg

2) ajouter sur chaque résultat un commentaire (puce rouge à droite de la cellule) qui s'ouvrirait sur l'image correspondante en passant la souris dessus !

bien sûr, je ne veux pas copier les images dans la cellule, mais bien pointer (lien hypertexte) l'image correspondante pourqu'elle s'affiche dans la bulle commentaire.

l'étape 1) m'a été donné grace à l'exemple "Liste_des_fichiers_sur_.xls" que j'ai téléchargé (merci au généreux donnateur)

l'étape 2) ressemble à l'exemple "ImageLien.xls", sauf que le commentaire pointe sur une image locale et non sur celle située sur le net !

Bon, si je ne suis pas clair, dites le moi car il est tard (00:24) ici dans les cotes d'armor et je n'y vois plus très bien !

a+,

linlin

Salut linlin et bienvenue comme nouveau membre

Tu aurais du donner les liens des fichiers plutôt que leurs noms.

Je regarde demain si personne, ne t'a apporter une solution.

Mytå

Bonjour Myta,

effectivement, j'aurai du donner les fichiers cités, les voici donc :

https://www.excel-pratique.com/~files/doc/9w7orListe_des_fichiers_sur_.xls

https://www.excel-pratique.com/~files/doc/BltTwImageLien.xls

je cherche de mon coté, mais je n'arrive pas à transposer dans une macro VBA un moyen d'associer un commentaire à une cellule, et donc d'y stocker l'hyperlien vers le fichier jpg de mon disque que je voudrais afficher dans la bulle !

merci et bonne soirée !

linlin

PS : ah oui, j'ai pas dit, mais j'utilise Excel 97 sous XP/SP2 !

Salut le forum

Un début de solution vite faite sur ton fichier Lister des fichiers

Sub AjoutImageLien()
Dim iPict As IPictureDisp
Dim Cellule As Range

On Error Resume Next
For Each Cellule In Range("A1:A" & Range("A65536").End(xlUp).Row)
  With Cellule
    .ClearComments
    .AddComment
    .Comment.Shape.Fill.UserPicture .Value & .Offset(0, 1)
    .Comment.Visible = False 'Masque le commentaire

Set iPict = LoadPicture(.Value & .Offset(0, 1))

      With .Comment.Shape
        .Width = iPict.Width / 50
        .Height = iPict.Height / 50
      End With

  End With

Set iPict = Nothing

Next Cellule

End Sub

Mytå

P.S. Reste place à l'amélioration, programme tester sous Excel97.

Bonjour à tous,

merci Myta pour ta solution qui semble correspondre à ce que je cherchais.

je n'étais pas chez moi en fin de semaine dernière et je vais pouvoir tester tout çà!

je vais tenter de l'intégrer à mes macro et je mettrai le résultat sur le site.

bravo et merci encore !

à bientôt,

linlin

Re le forum

Au plaisir d'une prochaine ficelle Linlin

Mytå

P.S. Pense à mettre résolu si la solution te convient