Bonsoir le forum
Debutant en informatique, je me tourne vers vous car j' ai un souci pour boucler sur les celuules d' une colonne.
J' ai trouvé un code d' insertion de photo en fonction du nom contenu d' une cellule. Ce code repond à mes attentes. mais des modofications s' imposent.
J' ai commencé par faire un test en passant le nom d' une photo en parametre et le resultat est OK
Sur mon fichier les noms des photos avec leur extension se trouve en colonne J, J' ai essayé de faire une boucle pour lire le contenu de chaqeue cellule de la colonne J, jusqu à la premierer cellule vide de
la colonne C, et de me mettre la photo correspondant trouve en collonne B, mais mes essais sont catastriophiques.
Voici le code avec le nom du fichier image en paraemtre
Merci d' avance pour l' aide que vous pouvez m' apporter
Randy
Debutant en informatique, je me tourne vers vous car j' ai un souci pour boucler sur les celuules d' une colonne.
J' ai trouvé un code d' insertion de photo en fonction du nom contenu d' une cellule. Ce code repond à mes attentes. mais des modofications s' imposent.
J' ai commencé par faire un test en passant le nom d' une photo en parametre et le resultat est OK
Sur mon fichier les noms des photos avec leur extension se trouve en colonne J, J' ai essayé de faire une boucle pour lire le contenu de chaqeue cellule de la colonne J, jusqu à la premierer cellule vide de
la colonne C, et de me mettre la photo correspondant trouve en collonne B, mais mes essais sont catastriophiques.
Voici le code avec le nom du fichier image en paraemtre
Code:
Sub Insert_image()
Dim répertoirePhoto
Dim nom
Dim c
'répertoirePhoto = "c:\mesdoc\" ' Adapter
répertoirePhoto = ThisWorkbook.Path & "\Photo\" ' Adapter
nom = "Fabien.jpg"
Set c = Range("B2")
With ActiveSheet
'.Pictures.Insert(répertoirePhoto & nom & ".jpg").Name = nom
.Pictures.Insert(répertoirePhoto & nom).Name = nom
.Shapes(nom).Left = c.Left
.Shapes(nom).Top = c.Top
.Shapes(nom).LockAspectRatio = msoFalse
.Shapes(nom).Height = c.Height
.Shapes(nom).Width = c.Width
End With
End Sub
Merci d' avance pour l' aide que vous pouvez m' apporter
Randy