XL 2016 Recherchev image en fonction code EAN

[davidp]

Bonjour à tous ,

désolé de vous déranger pour m'aide sur un projet .
Je dispose d'un fichier EXCEL avec 1000 codes EAN 13 dans une colonne + un dossier avec 1000 images avec comme nom le code EAN correspondant à l'image .
Je souhaite faire apparaitre dans la cellule à droite du code EAN l'image correspondante.
Je ne sais pas si cela est réalisable , merci d'avance à ceux qui m'aideront.

ps : Je n'arrive à joindre les 2 images qui sont aux formats TIF

Bonne journée à tous

DAVIDP

 

[davidp]

Bonsoir Chris,

C'est exactement ce dont je cherchais , Super cela fonctionne à merveille ,

je tiens à te remercier pour ton aide précieuse et à ta patience qui va me permettre de gagner un temps fou.

je vais réaliser le fichier final la semaine prochaine et te tiendrai informé

Bonne soirée

DAVIDP

 

[davidp]

Bonjour Chris ,

Merci encore pour cette macro magnifique .
Avant de me lancer dans mon projet final ,j'ai une dernière question au cas ou cela serait réalisable.

-Est-il possible d'inclure dans la macro un taux d'agrandissement ou de réduction de la taille de l'image qui apparaît par défaut .
Ex: 90% de la taille de l'image par défaut.

Si ce n'est pas possible , ce n'est pas grave , car pour l'instant la taille de l'image me convient .

Merci pour votre aide précieuse

Bonne journée à tous


DAVIDP

 

[chris]

Bonjour

N'hésite pas à utiliser l'enregistreur de macros pour trouver ce type d'info et pouvoir l'intégrer au code que tu as déjà.

monImage.ShapeRange.ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft

 

[davidp]

Bonjour Chris ,

un grand merci pour ton aide et tes conseils, c'est parfait

Bon week-end

DAVIDP

 

[davidp]

Bonsoir Chris,

désolé de te déranger à nouveau

j'ai réalisé mon projet grâce à ton aide , par contre j'ai un souci sur la taille des images.
En effet , je pensais maîtriser la taille des images en appliquant un taux de réduction ou d'agrandissement.
Problème des photos dans ma base de données : Elles ne sont pas toutes de la même taille !

Est-il possible d'imposer une taille à toutes les photos afin quelles soient toutes de tailles identiques lors de l'importation?
Ex : Largeur : 2 cm
Hauteur : 2 cm

Bonne soirée et encore merci pour ton aide

DAVIDP

 

[chris]

Bonjour

Selon que l'image est verticale ou horizontale il faut mettre 2 cm du côté le plus grand sinon, sauf si l'image est carrée, on déforme.

If monImage.Height > monImage.Width Then
    monImage.Height = 56.6929133858
Else
    monImage.Width = 56.6929133858
End If