insertion d image

Version imprimable

insertion d image

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

Code:

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:

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

13/01/2014, 15h35
parmi

Bonjour,

Qu'est-ce qui ne marche pas ?
As-tu un message d'erreur ?
Si oui, lequel ?
13/01/2014, 16h12
casper62110

Pas de message d erreur mais la seconde photo ne s affice pas au bon endroit
13/01/2014, 16h15
Marc-L
Bonjour, bonjour,

l'erreur du code réside dans la non différenciation des noms d'images ‼

Et en respectant la règle TBTO, il n'y en a même pas besoin !
Code:

1 2 3 4 With ActiveSheet.Pictures.Insert(répertoireCoupe & nom1 & ".jpg") .Left = [B30].Left .Top = [B30].Top End With
_______________:yaisse1: ____________________________________:yaisse1: ______________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Impeccable merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub InsertImages()
   répertoirePhoto = "c:\Photo\" ' Adapter
  répertoireCoupe = "c:\Coupe\" ' Adapter
 
nom = ActiveSheet.Name
 
 
   With ActiveSheet.Pictures.Insert(répertoirePhoto & nom & ".jpg")
     .Left = [B357].Left
      .Top = [B357].Top
       End With
     With ActiveSheet.Pictures.Insert(répertoireCoupe & nom & ".jpg")
     .Left = [A379].Left
      .Top = [A379].Top
  End With
 
End Sub