Insertion images automatique via liens

Bonjour à toutes et à tous,

Je souhaite réaliser l'insertion de deux images sur une fiche excel 2007, dont les liens sont connus.
L'objectif étant d'automatiser la procédure de pour remplir ces fiches, j'en ai en effet plusieurs centaines.
Je ne m'y connais pas en VBA.
Je joins mon fichier XLSM.

Merci de votre aide.

Bonjour,
bienvenue sur DVP :salut:

le forum est ravi de t'accueillir parmi nous =]

afin de permettre a l'ensemble des personnes souhaitant te proposer des solutions, il n'est pas recommande de mettre un fichier (raison de securite pour le telchargement notamment) en lien des le premier post.

Tu n'as pas de competences en VBA pour le moment, mais souhaites-tu profiter de l'occasion pour le decouvrir ?

Bonjour et merci pour ta réponse,

Effectivement je suis désolé j'ai lu après coup qu'il n'était pas recommandé de placer une pièce jointe à l'ouverture d'une discussion.
Je souhaite en effet apprendre, j'ai fais des recherches depuis plusieurs jours et c'est après de nombreuses tentatives qui n'ont pas abouti que j'ai posté.
Je m'arrache les cheveux sur ce problème, et demande de l'aide pour avancer.
Merci

Quelques lectures pour debuter :

http://laurent-ott.developpez.com/tu...el-vba-tome-1/
http://bidou.developpez.com/article/VBA/
http://silkyroad.developpez.com/VBA/DebuterMacros/

L'enregistreur de macro aidant beaucoup au demarrage :
http://fauconnier.developpez.com/tut...istreur-macro/

Sans oublier les discussions deja evoquees voire :resolu: disponible dans le forum :
https://www.developpez.net/forums/d1...mage-userform/

Merci pour les liens,


J'ai réussi a insérer des photos dans ma feuille excel, via le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub AjoutImage() Dim Shp As Shape Dim Fichier1 As String Dim Fichier2 As String   Fichier1 = "C:\Photo MBA\aa.jpg" Fichier2 = "C:\Photo MBA\bb.jpg"   Set Shp = Feuil1.Shapes.AddPicture(Fichier1, msoFalse, msoCTrue, 200, 200, 100, 80) Set Shp = Feuil1.Shapes.AddPicture(Fichier2, msoFalse, msoCTrue, 10, 200, 100, 80) End Sub

---

Mon problème désormais est de faire en sorte que Fichier 1 et Fichier 2 soient des variables en lien avec une cellule.
Pouvez vous m'aider sur ce point?

Merci

C'est deja un bon depart =]

Si maintenant par exemple tes cellules contiennent les valeurs aa.jpg (ici cellule A5), tu peux envisager un code proche de celui-ci :

Code:

---

1 2 3 4

Dim Fichier1 As String   Fichier1 = "C:\Photo MBA\" & Worksheets("Tafeuille").Range("A5").Value Set Shp = Feuil1.Shapes.AddPicture(Fichier1, msoFalse, msoCTrue, 200, 200, 100, 80)

---

Merci beaucoup pour ton aide et ta disponibilité Jean-Philippe,
J'ai réussi a faire ce que je souhaitais.

Bonne journée.