Discussion :

[SixteenVBA]

Bonjour à tous !

Je me posais une question à propos de la faisabilité d'insérer des images en jpeg dans une feuille excel suivant une variable contenue dans une liste déroulante.
Enfait, je réalise des documents sur excel, avec notamment des recherchev qui vont chercher toutes les infos d'une référence produit et qui remplisse donc le document directement. J'aimerai dans la même lancée, pouvoir ajouter les photos (format jpeg) du produit lorsque celui ci est choisi dan sla liste déroulante et que donc l'image soit directement importée d'un dossier où sont stockées toutes les images nommées de la référence produit. A noter, qu'il peut y avoir plusieurs images par référence et que par conséquent lorsque c'est le cas, les images sont nommées ainsi : xxxx-1.jpeg, xxxx-2.jpeg, etc.
Le code vba dirait donc d'insérer les images CONTENANT la variable dans leur nom.

Avez-vous déjà réalisé ceci? Est-ce possible? Pouvez-vous m'aider?

Merci à vous.

[Invité]

Bonjour,

Peut-être une solution ici tri-automatique-photos

Cordialement.

[SixteenVBA]

Merci de votre réponse. J'ai voulu télécharger le fichier xls que vous proposiez mais ça ne fonctionne pas... Le lien envoi sur une page qui reste blanche... POuvez-vous le mettre ici?

Merci

[Invité]

Bonjour,

J'ai effectivement un problème avec mes fichiers .xlsm. Je suis obligé de les ziper.

Pièce jointe 220720

Il vous faut également charger les photos associées. La liste déroulante est dans l'onglet Maquette.

Cordialement.

[SixteenVBA]

Je reviens vers vous car je n'arrive pas à adapter les macros...
J'ai modifié ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub MettreAJourLesImages()
 
' La référence Microsoft Windows Image Acquisition Library doit être cochée.
 
 
      Set Sh = Sheets("Logistic sheet - Template")
      Set CelluleImport = Sh.Range("A68")
      Set CelluleRepertoirePhoto = Sh.Range("M2")
      Set CelluleNomPrenom = Sh.Range("C63:E63") 'car cellules fusionnées"

Et il me semblait de rien avoir d'autre à modifier... Je me trompe? Je vois aussi que ca m'affiche "Photo non trouvée" dans la CelluleImport, et si je vais sur celle-ci ainsi que toutes celles nommées dans la macro ne cessent de "clignoter" ... Pouvez-vous m'aider?
Mes photos sont enregistrées comme dans votre fichier d'origine : référence-1.jpeg, référence-2.jpeg etc.

[Invité]

Dans l'onglet Base de données, il vous faut modifier le chemin d'accès au répertoire contenant les photos, en cliquant sur le bouton Répertoire Photos

Pièce jointe 220749

Dans le fichier exemple, la base de données contient 3 noms : Immeuble1, 2,3.

Le fichier de photos contient les photos dont les noms contiennent Immeuble1, 2, 3 dans leur racine

Pièce jointe 220752

Dans l'onglet Maquette, le changement dans liste déroulante lance la macro récupérant les images.

Pièce jointe 220750

Essayez d'utiliser l'outil sans modifier le code pour l'instant. Il vous suffit de définir le répertoire des photos.

Cordialement.

[JPSonic]

Bonjour Eric KERGRESSE
Bonjour à tous !

Après une petite recherche sur le forum, je suis arrivé sur cet excellent post qui permet d'afficher des images d'un répertoire dans une feuille via une liste déroulante.

J'ai réussi à intégrer la proposition de M KERGRESSE sans trop de difficulté. il me reste a l'adapter à ma liste déroulante qui se trouve sur les feuilles "de recherche" nommées : Recherche_1, Recherche_2, Recherche_3.

Je souhaiterai avoir votre aide afin de pouvoir utiliser plusieurs feuilles de recherche (feuilles identiques sur la forme mais pas sur leur contenues).

J'utilise déjà un menu déroulant afin de faire apparaître des informations spécifiques.

En testant le fichier, j'ai pu observer que si l'on nomme les images 1.jpg....10.jpg.....50.jpg cela ne fonctionne pas, il faut du texte avant les chiffres.

serait-il possible de m'aider sur ce petit problème et sur le fait de pouvoir utiliser ce menu déroulant sur plusieurs feuilles (modification de la macro).

En vous remerciant par avance de votre aide.

JP

[Invité]

Bonjour,

Dans la colonne A de l'onglet "Base de données" ou de vos différents onglets équivalents, il faut que le nom des images soit typé alphanumérique.
Il vous faut donc mettre une apostrophe avant vos nombres. Ex : '1

[JPSonic]

Bonjour et merci à vous M KERGRESSE pour cette réponse, concernant le nom des images.

Je tente de modifier la macro VBA afin de pouvoir l'utiliser sur 3 feuilles spécifiques, sachant que je n'y connais rien en VBA.

J'y vais par petite touche en essayant de comprendre le code.

Pour le moment cela fonctionne pas vraiment, mais il y a une chose que je ne comprends pas : a chaque modification d'une liste déroulante d'une feuille, je passe à la feuille suivante mais l'image sélectionner est pourtant bien visible ??

j'ai ajouter dans le module1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set Sh = Sheets("Maquette2")
      Set CelluleRepertoirePhoto = Sheets("Paramètres").Range("RepertoirePhotos")
      Set CelluleNomPrenom = Sh.Range("NomPrenom2")
 
      Set Sh = Sheets("Maquette3")
      Set CelluleRepertoirePhoto = Sheets("Paramètres").Range("RepertoirePhotos")
      Set CelluleNomPrenom = Sh.Range("NomPrenom3")

J'ai également modifier NomPrenom dans la macro des feuilles 2 et 3 en NomPrenom2, NomPrenom3

Vous me seriez d'une grande aide pour solutionner cette demande.

En vous remerciant par avance

[Invité]

Bonjour,

Je ne pige pas trop comment est organisé votre fichier (à vrai dire, je ne cherche pas trop). Mettez un fichier en ligne avec quelques images. Si problème de confidentialité, me l'envoyer en privé.

[JPSonic]

Merci de me venir en aide M KERGRESSE, et pour votre fichier, le seul que j'ai trouver pour résoudre mon problème d'insertion d'images depuis un répertoire...

Je joins votre fichier dont je tente la modification desesperement...

J'utilise une liste déroulante pour sélectionner une caméra , j'ai 3 feuilles masquées (qui contiennent différentes informations..)
Les feuilles ne s'ouvrir qu'en fonction de l'utilisateur (LOGIN/MDP).
Je cherche donc le moyen d'intéger vos macros sur les 3 feuilles de recherche (Recherche1, Recherche2, Recherche3)
ce qui me permettrait de voir l'image correspondante au choix effectué dans la feuille de recherche ouverte (Visible) les autres ne sont pas utiliser puisque invisible.
Les 3 feuilles ne sont pas dépendantes les unes des autres.

Merci beaucoup pour votre aide