Excel et les images ... (2é Partie)

Bonjour yorrick

Dans l'exemple joint tu trouveras une procédure du grandissime J.Walkenbach , pour afficher une image sur une cellule
Remarque : l'image s'adapte aux dimensions de la cellule . elle n'est pas insérée dans la cellule

Il faut saisir l'adresse de l'image dans la cellule A2
L'image s'affiche sur la cellule B2
Les dimensions de la cellule B2 (donc de l'image ) s'affichent dans la cellule C2

J'espere que cela pourra t'aider
Bonne soirée
Michel

Bonjour yorrick

la nuit porte conseil ....
je viens de m'apercevoir que je n'avais pas répondu à la deuxieme partie de ta question

cette nouvelle version renvoie un message d'information si la cellule A2 est vide ou si le fichier image n'est par trouvé

bonne journée
Michel

Rebonjour Yorrick

Après réflexion …j'ai eu une autre idée en assemblant la procédure de J.Walkenbach et une procedure trouvée sur le forum ( de @+Thierry il me semble )

…dis moi ce que tu en penses … cela ne correspond sans doute pas à ta recherche , mais ça me plaisait bien de la faire comme ça ...

dans la cellule C3 , tu saisis le nom du disque et eventuellement les sous répertoires dans lesquels il faut rechercher les images .
pour l'instant , si tu recherches dans un ensemble de repertoires et sous repertoires , il faut saisir dans la procedure .FileName = "*." & Sheets("Feuil1").Range("C1").Value
( le fichier ci joint est ecrit comme tel )

si tu ne fais des recherches que dans un répertoire spécifique il faut modififier la procédure (enlever l'asterisque)
.FileName = "." & Sheets("Feuil1").Range("C1").Value


je regarde ça plus en détail ce soir , pour résoudre ce petit soucis et automatiser le choix

Bonne journée
Michel

Bonjour

après quelques essais , je me suis aperçu , qu'il pouvait y avoir des erreurs de fonctionnement notamment dûs aux fichiers temporaires

j'ai modifié le fichier en conséquence . la nouvelle version résoud en partie ce soucis

bon week end
michel