Discussion :

[graphikris]

Bonjour,

Je dispose d'un classeur composé d'une base des données puis de multiples feuilles allant recueillir des informations dans cette base.

Dans la feuil1 (Base de données), j'ai une colonne (A) comprenant les NOMS_PRENOMS que j'ai nommé : NOMS

Dans une autre feuille (Maquette), j'ai en B1:B2 une liste déroulante ayant pour source : NOMS

En parallèle, je dispose sur le disque "O" (le meme que celui où se trouve mon classeur précédemment décrit) d'un répertoire (PHOTOS) comportant toutes les photos des personnes se trouvant dans ma base de doonées.

Ce que je voudrais faire, ce serait d'associer en A1 (MAQUETTE), la photo de la personne que je sélectionne dans la liste déroulante.

Question 1 : Dois renommer toutes les photos de cette manière : NOMS PRENOMS.jpg ou non ?

Question 2 : Dois je faire une macro ou un lien hypertexte ?

Question 3 : Quelqu'un peut il vraiment m'aider ?

Cordialement,
Graphikris.

[Invité]

Bonjour,

Une solution possible avec ce fichier.

La référence Microsoft Windows Image Acquisition Library doit être cochée.

Cordialement.

[graphikris]

Bonjour et merci.
J'ai testé le fichier mais j'ai un lèger problème par rapport à ma base de données.
En effet dans ma base de données, les NOMS Prénoms sont orthographiés de cette maniére : les noms sont en MAJUSCULE et pour les prénoms, seule la première lettre est en MAJUSCULE et le reste en minuscule.
Ex: LAPORTE Richard
Et là à cause des noms en tout en majuscule, çà ne fonctionne pas.
Deux solutions :
1 - Je renomme mes 150 identités actuelles
2 - Faire une modif dans la macro

Pour le 1, je sais faire mais c'est long
Pour le 2, je ne sais pas faire.

Pourriez vous m'aider ?

Cordialement,
Graphikris.

[Invité]

Les NOMS Prénoms sont orthographiés de cette maniére : les noms sont en MAJUSCULE et pour les prénoms, seule la première lettre est en MAJUSCULE et le reste en minuscule.
Ex: LAPORTE Richard
Et là à cause des noms en tout en majuscule, çà ne fonctionne pas.
Deux solutions :
1 - Je renomme mes 150 identités actuelles
2 - Faire une modif dans la macro

Pour le 1, je sais faire mais c'est long
Pour le 2, je ne sais pas faire.

La version jointe transforme les noms en majuscule pour la comparaison. Il se peut qu'il y ait encore des cas ne fonctionnant pas. Le cas échéant il faudra modifier le nom des photos manuellement.

Code :

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

1
2
3
Do While MonFichier <> ""   ' Commence la boucle.
       Select Case UCase(MonFichier)
              Case UCase(CelluleNomPrenom & ".jpg"), UCase(CelluleNomPrenom & ".gif"), UCase(CelluleNomPrenom & ".bmp")

Cordialement.

[graphikris]

Un GRAND Merci pour ton aide.

[Invité]

Sinon, j'allais rouvrir la discussion juste pour un petit détail concernant le bouton "Répertoire photos". Je suppose qu'il déclenche une macro mais laquelle ? Le bouton est figé, impossible de faire un clic droit.

La macro associée au bouton macro est dans le module de la feuille Base de données.

De même que la macro déclenchant le changement d'image est située dans le module de la feuille Maquette.

Cordialement.