Bonjour j ai ce code pour afficher une image selon nom de page

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub InsertPhoto()
répertoirePhoto = ThisWorkbook.Path & "d:\Photo\" ' Adapter
nom = ActiveSheet.Name
  ActiveSheet.Pictures.Insert(répertoirePhoto & nom & ".jpg").Name = nom
  ActiveSheet.Shapes(nom).Left = [B1].Left
  ActiveSheet.Shapes(nom).Top = [B1].Top
End Sub
Sauf que j ai 2 jpg a afficher automatiquement j ai donc penser a ceci

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
Sub InsertImages()
   répertoirePhoto = "d:\Photo\" ' Adapter
  répertoireCoupe = "d:\Coupe\" ' Adapter
 
nom = ActiveSheet.Name
 ActiveSheet.Pictures.Insert(répertoirePhoto & nom & ".jpg").Name = nom
  ActiveSheet.Shapes(nom).Left = [B1].Left
  ActiveSheet.Shapes(nom).Top = [B1].Top
 
 
    nom1 = ActiveSheet.Name
 ActiveSheet.Pictures.Insert(répertoireCoupe & nom1 & ".jpg").Name = nom1
  ActiveSheet.Shapes(nom1).Left = [B30].Left
  ActiveSheet.Shapes(nom1).Top = [B30].Top
End Sub
Mais Cela marche pas pourquoi