VBA ObjFeuille.Pictures.Delete

Bonjour,

Question :

Pour afficher une photo faut il absolument supprimer "objFeuille.Pictures.Delete" ?

Dans ma macro j'ai en colonne A le nom des images d'un dossier, lorsque je descend ou monte dans cette colonne l'image se change sans problème et son nom (Zone Nom) change , au début j’étais à "Image 1" et maintenant "Image 135" , je vous explique pas dans 2 mois à combien je vais être :)

Il n'y a pas moyen de garder le même nom de l'image ?

Exemple : MonImage par exemple ?

Sub ChargePhoto(onglet, Target)
Photos = ThisWorkbook.Path & "/ident/" & Target & ".jpg"
Set objFeuille = ActiveSheet
objFeuille.Pictures.Delete
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert(Photos)
With objPict
Lignes = ActiveWindow.ScrollRow
.Left = Cells(Lignes, 6).Left
.Top = Cells(Lignes, 6).Top
.Height = 450
.Width = 450
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Colonne = ActiveCell.Column
If Colonne = 2 Then
onglet = ActiveSheet.Name
ChargePhoto onglet, Target
End If
End Sub

Merci pour votre aide

bonjour,

une supposition

With objPict

.name = "MonNom.jpg"

.....

Magnifique ça marche

Sub ChargePhoto(onglet, Target)
Photos = ThisWorkbook.Path & "/ident/" & Target & ".jpg"
Set objFeuille = ActiveSheet
objFeuille.Pictures.Delete
Set objFeuille = ActiveSheet
Set objPict = objFeuille.Pictures.Insert(Photos)
With objPict
Lignes = ActiveWindow.ScrollRow
.Name = Photos
.Left = Cells(Lignes, 6).Left
.Top = Cells(Lignes, 6).Top
.Height = 450
.Width = 450
End With
End Sub