Excel insertion image par vba

kadinou -  
Bonjour,
Je voudrais insérer une image dans excel en F2 par macro en sachant que les images sont situées à "C:\Documents and Settings\hdj_se\Bureau\PHOTOS et que le choix du noms de l'image se trouve en J2.
Merci de votre aide
Configuration: Windows XP
Firefox 3.0.8

3 réponses

  • Votes
  • Date
  • Date décroissante
  1.  Mike-31
    Salut tout le monde

    Je mets mon petit grain de sel avec un exemple, pour kadinou, mettre le fichier photos contenu dans le zip sur le bureau, pour les autres revoir le chemin d’accès "C:\Documents and Settings\hdj_se\Bureau\PHOTOS "

    https://www.cjoint.com/?jxkyT34DT1

    Salut Michel_m, si je peux me permettre, dans ton code, lorsque tu cliques sur la feuille la photo disparaît, à mon sens il faudrait mettre une priorité sur A3 ou rajouter une ligne pour sortir de la procédure

    Else
    If ActiveCell <> [A3] Then Exit Sub 'évite effacement
    ActiveSheet.Shapes("cartepost").Delete

    Bonne journée à tous

    A+
    Mike-31

    Un problème sans solution est un problème mal posé  (Einstein)
    2. gbinforme Contributeur
      bonjour

      Tu peux procéder ainsi : 
      With Range("F2")
    ActiveSheet.Shapes.AddPicture "C:\Documents and Settings\hdj_se\Bureau\PHOTOS\" & [J2].Value, True, True, .Left, .Top, .Width, .Height
End With

      L'image aura la position et la taille de ta cellule.