lien automatique

[sergio]

bonjour à tous,
je suis entrain de batir un fichier xls avec plusieurs feuilles
j'essaie depuis longtemps dinserer une photo sur une cellule precise
à toute les fois que je click sur cette cellule la photo doit apparaitre
et que je puisse imprimer le document avec la photo

Merci à l'avance si vous pouvez m'aider

 

[ChristianS]

Salut Sergio, salut tout le monde,
voici un embryon de code qui doit correspondre à ta demande.
Réponds si c'est OK
Attention ! dans l'en-tête du module Affiche tu dois rentré le bon chemin d'acces à tes photos dans NomChemin et l'extention (précédée d'un point) dans Ext. Cette extension doit être reconnue par ton programme Excel.
De plus les images seront affichées à leurs tailles d'origines. pour changer leur taille tu peux utiliser l'instruction:
Selection.ShapeRange.ScaleWidth 0.56, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.56, msoScaleFromTopLeft
où 0.56 est le coefficient multiplicateur (qui peut-être <1 ou >1) de tes images en largeur puis en hauteur. Ces valeurs peuvent être différentes mais ça déformera tes photos.
Il vaut mieux, et de loin, uniformiser avant la taille de tes photos avec un logiciel de traitement d'images. Ca simplifie bougrement les procédures.
Si tu connais tant soit peu VBA, Access n'est pas mal non plus pour gérer ce genre de fichier.
A +
ChS