Discussion :

[Binou_le_débutant]

Bonjour bonjour,

Je viens en tant que bon débutant en VBA, solliciter votre aide pour la création d'une macro qui me serait très utile!

Description...

1) Pouvoir consulter des images stockées dans un dossier, en insérant simplement leur chemin d'accès dans une colonne de ma feuille excel (en réalité il s'agit d'une grosse Base de données complétée par des image.

2)En haut de ma feuille, et au dessus des colonnes de la BDD; j'ai crée un bandeau de consultation des données (par ligne) et dès lors que je selectionne une ligne à consulter (menu déroulant) je voudrais que l'image s'affiche dans une cellule déterminée...

Voila j'espère avoir été clair dans ma requète, dans ce cas il s'agit bien évidemment d'alléger le fichier sans y stocker 160 photos à +d'1Mo each...

MErci de votre aide!!

Cordialement

[Binou_le_débutant]

voici la macro que j'ai essayer de faire pour y arriver, je doute de la ligne:
>>"for each Noms in [index(bd_noms;F2) qui voudrait dire "pour chaque noms (de photos) se rapportant à la sélection du menu déroulant (géré par le "index_bd_noms..."

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    On Error Resume Next
 
    Dim Noms As Range
 
    Efface_Image
 
    For Each Noms In [INDEX(bd_noms;F2)]
        ActiveSheet.Shapes.AddPicture Filename:=ThisWorkbook.Path _
        & "\" & Noms.Offset(0, -2).Value & ".jpg", _
        LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, _
        Left:=Noms.Left, _
        Top:=Noms.Top, _
        Width:=Noms.Width, _
        Height:=Noms.RowHeight
    Next Noms
 
End Sub

Merci de votre aide!

[Binou_le_débutant]

un internaute propose ceci sur un autre site

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
' lister les images d'un dossier
' sur la feuille
 
Sub Lister(NumLigne&, Chemin As String, Optional Prefixe$ = "*.jpg")
Dim NomFichier As String
  NomFichier = Dir(Chemin & Prefixe)
  Do While Len(NomFichier) > 0
    Cells(NumLigne, 1) = Chemin & NomFichier
    NumLigne = NumLigne + 1
    NomFichier = Dir
  Loop
End Sub
 
Sub Demarrer()
Dim Chemin
  Chemin = Application.GetOpenFilename("Fichier images  (*.jpg), *.jpg")
  If Chemin = False Then Exit Sub
  F1.Columns(1).Clear
  Lister 14, Left(Chemin, InStrRev(Chemin, "\"))
  End Sub

Le problème est que cette solution permet seulement de visonner dans un cadre, les images en selectionnant la cellule ou se trouve le chemin d'accès importé. Je voudrai pouvoir avec un menu déroulant et le gestionnaire de nom pouvoir, quand je selectionne une ligne avec mon menu, afficher l'image dans ce même cadre...

Merci de votre aide!