Correction code insertion photo Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Banzai64
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'726
Appréciation reçue : 1
Inscrit le : 21 novembre 2010
Version d'Excel : 2003 FR (learning 2010 - 2013)

Message par Banzai64 » 17 octobre 2013, 16:08

Bonjour

Ce sont les noms des fichiers dans ton répertoire, mais une fois chargés dans la feuille tu les renommes
Dans la macro que tu as posté tu le fais avec le même nom
  If Not Intersect(Target, Range("F17")) Is Nothing Then
    répertoire = ThisWorkbook.Path
    On Error Resume Next
    ActiveSheet.Shapes("monimage").Delete
    Set img = ActiveSheet.Pictures.Insert(répertoire & "\" & Range("F17") & ".jpg")
    img.Name = "[surligner]monimage[/surligner]"
    img.Left = [M7].Left
    img.Top = [M7].Top
 img.Height = [M7].Offset(1, 0).Top - [M7].Top
    img.Width = [M7].Offset(0, 1).Left - [M7].Left

Exit Sub
 End If
 If Not Intersect(Target, Range("F18")) Is Nothing Then
    répertoire = ThisWorkbook.Path
    On Error Resume Next
    ActiveSheet.Shapes("monimage").Delete
    Set img = ActiveSheet.Pictures.Insert(répertoire & "\" & Range("F18") & ".jpg")
    img.Name = "[surligner]monimage[/surligner]"
    img.Left = [M24].Left
    img.Top = [M24].Top
 img.Height = [M24].Offset(1, 0).Top - [M24].Top
    img.Width = [M24].Offset(0, 1).Left - [M24].Left
End If
End Sub
Regardes la macro que je t'ai proposée
Image
J
JeremyW
Membre fidèle
Membre fidèle
Messages : 424
Inscrit le : 16 juillet 2013
Version d'Excel : 2003 & 2007

Message par JeremyW » 17 octobre 2013, 16:27

Excuses moi Banzaï je n'ai même pas vu que tu avais changé le code.
Je te remercie pour ton implication.
Ca fonctionne parfaitement.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message