Discussion :

[casper62110]

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

[parmi]

Bonjour,

Qu'est-ce qui ne marche pas ?
As-tu un message d'erreur ?
Si oui, lequel ?

[casper62110]

Pas de message d erreur mais la seconde photo ne s affice pas au bon endroit

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

_______________ ____________________________________ ______________________________

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

[casper62110]

Impeccable merci

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
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