Problème d'inser image

[nickvfou]

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]

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 !

 

[nickvfou]

Re : Problème d'inser image

Bonjour hulk, malheureusement cela ne fonctionne pas en ayant supprimé *!

 

[YANN-56]

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

 

[YANN-56]

Re : Problème d'inser image

Re

Voici une façon que j'aime mieux:

Il te reste à changer cette ligne suivant ton chemin:

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