Problème d'inser image

nickvfou

XLDnaute Nouveau
Bonjour à tous,

j'essaye depuis des semaines à faire correspondre une case d'une feuille excel à une image contenu dans un fichier. Je m'explique:

Article (a1) Miniature(b1)

Accroche Poids Crantée(a2) case vide (b2)
Accroche Poids Ronde (a3) etc....
Adoucisseur d'eau CTA

le fichier où se situe mes photos, s'intitule D:\Inventaire\Photos

DOnc j'aimerais grâce a une macro, afficher l'image (par exemple) de l'accroche poids crantée en case b2 ,

voici ma macro actuelle qui ne fonctionne pas :

Sub InserImage()

Dim i As Integer, j As Integer, path As String, sep As String, img As String
Dim objImg As Object
Dim Emplacement As Range

path = "D:\Inventaire\Photos\*"

For i = 1 To 1000

While Range("B2").Offset(i, 0) <> ""
j = j + 1
i = j
Wend

'If Dir(img) = "" Then Exit Sub"

ActiveSheet.Pictures.Insert(path & Range("A2").Offset(i, 0).Value & ".jpg").Select

Set Emplacement = Range("B2").Offset(i, 0)
Range("B2").Offset(i, 0).Value = "."
Set objImg = ActiveSheet.DrawingObjects(ActiveSheet.Shapes.Count)

With objImg.ShapeRange
.LockAspectRatio = msoFalse
.Left = Emplacement.Left + 2
.Top = Emplacement.Top + 2
.Height = Emplacement.Height - 3.5
.Width = Emplacement.Width - 3.5

End With

Next

End Sub

Merci d'avance de vos réponses
 

Hulk

XLDnaute Barbatruc
Re : Problème d'inser image

Hello,

Je vois dans ton code un astérisque (*) dans le Path... Peut-être à cause de lui vu que les caractères spéciaux ne sont pas acceptés dans les noms de fichiers !
 

YANN-56

XLDnaute Barbatruc
Re : Problème d'inser image

J'ai noté le lien, je reviens donc ici.

Voici donc un exemple.

Tu me dis s'il va dans le sens de ce que tu cherches.

A suivre et amicalement,

Yann
 

Fichiers joints

Dernière édition:

YANN-56

XLDnaute Barbatruc
Re : Problème d'inser image

Re

Voici une façon que j'aime mieux:

Il te reste à changer cette ligne suivant ton chemin:
Code:
Set DOSSIER_CHOISI = ACTION.Namespace(ThisWorkbook.Path & "\PHOTOS_ARTICLES\")
Le Dossier PHOTOS et le Classeur devant, bien entendu se trouver dans le même répertoire (Pour l'instant)

Cela sera énormément plus rapide que d'écrire sur une page!

Amicalement,

Yann
 

Fichiers joints

Discussions similaires


Haut Bas