Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

titemag

XLDnaute Nouveau
Bonjour,

Je souhaite afficher une image dans une cellule spécifique (une image par recette dans la colonne correspondante), puis l'insérer dans la feuille Modèle d'impression avec la formule RechercheV.
J'ai réussi à créer une macro mais celle ci insère l'image au milieu de ma feuille.
Merci de votre aide.
Ci-joint mon document.
 

Pièces jointes

Re : Insertion Image

Bonjour titemag,


Pour cela, il faut inserer un cadre (Image) pour chaque recette dans la feuille de donnée et la feuille d'impression dans une celulle définie; enfin les noms des images correspondent aux noms des recettes.


Par ex.: Données-cellule B2 poisson - Nom de l'image poisson

Code:
 Sub ImpressionImages()
  Impression
  repertoire = ThisWorkbook.Path
  Range("B2").Select
  Do While ActiveCell.Offset(0, -1) <> ""
    nf = repertoire & "\" & ActiveCell.Offset(0, -1) & ".jpg"
    If Dir(nf) <> "" Then
      Set monimage = ActiveSheet.Pictures.Insert(nf)
      monimage.Top = ActiveCell.Top
      monimage.Left = ActiveCell.Left
      monimage.Name = ActiveCell.Offset(0, -1)
      ActiveCell.EntireRow.RowHeight = monimage.Height
    End If
    ActiveCell.Offset(1, 0).Select
 
Dernière édition:
Re : Insertion Image

Sur mon poste (XL2002, XL2007), le fonctionnement est normail. Les images sont dans le même répertoire que le classeur Excel.
-Essayer en appuyant sur F9
-Spécifier le répertoire des images:
=Afficheimage(A2&".jpg";"c:\mesdoc\excelmacronouveau\1001exemples\")

JB
 

Pièces jointes

Dernière édition:
Re : Insertion Image

Je ne comprend pas cela ne fonctionne toujours pas... Même en indiquant la source du fichier et/ou en appuyant sur F9...
Y a-t-il des options sur excel 2007 qui pourraient être désactivées sur mon logiciel et qui empêcherait l'insertion de l'image ??
Merci beaucoup pour votre aide !!!
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
15
Affichages
420
Réponses
14
Affichages
499
Réponses
1
Affichages
168
  • Question Question
Microsoft 365 MFC dans tableau
Réponses
2
Affichages
232
Retour