Comment insérer photos dans fichier Excel ? Fermé

Question

Bonjour,

Je voudrais savoir s'il existe un moyen d'intégrer des photos d'une manière intelligente dans un fichier Excel ?

Je m'explique. J'ai un tableau avec des lignes qui représente chacune un article différent. Quand j'imprime cette liste, je voudrais avoir un tableau avec :

Photo    &#9122;   Description        &#9122; Tarif

Quand j'utilise le menu "insertion/image/à partir du fichier", la photo s'insère dans ses dimensions originales et je perds un temps fou à la redimensionner manuellement et en plus, elle déborde sur plusieurs cellules. 

Si ce n'est pas possible avec Excel, je suis intéressé par tout autre logiciel pouvant le faire. 

Merci à tous pour vos conseils !

Utilisateur anonyme · Accepted Answer

Bonjour,

En insérant les images dans les commentaires de la cellule et afficher les commentaires ensuite. Non ? 

Bon, c’est peut-être pas une "manière intelligente"… Tout dépend de ton fichier et des images. A voir…
D'autres idées peut-être.

Thierry du 50 · Answer

Bonsoir,

Pourquoi ne pas réduire d'abord les images avec un logiciel prévu pour.. Je n'en connais pas mais tu dois pouvoir en trouver qui le font pour des séries de photos.

Thierry

Anna · Answer

Salut,

regardes le post 16 de mike31 dans mon post un peu plus bas

Anna

ouiabsurfer · Answer

Désolé Anna, mais je ne sais pas ou regarder ?

Anna · Answer

voici un element de reponse (par mike31), mais seulement si tu connais un peu VBA :

Sub test()
Dim Image As Variant
Dim L As Single, T As Single, W As Single, H As Single
L = Feuil2.Range("B21").Left
T = Feuil2.Range("B21").Top
W = Feuil2.Range("B21").Width
H = Feuil2.Range("B21").Height
Image = Application.GetOpenFilename
If Image <> False Then
Feuil2.Shapes.AddPicture Image, True, True, L, T, W, H
End If
End Sub

ouiabsurfer · Answer

Thierry, 

Je ne vois pas le rapport entre le faite de réduire l'image et mon problème ? 

Peut-tu être plus clair ? ;-)

ouiabsurfer · Answer

Merci Anna, mais je n'ai pas les connaissances requises en VBA.

Anna · Answer

sinon ouvre ton image dans Paint, reduis la taille comme tu le veux, enregistre, et insere dans excel...

Anna · Answer

pardon je retire... ca reviens au meme que de le faire directement dans excel...

smartway14 · Answer

bonjour;
vous pouvez redimensionner l'image avec les poignés du coin  selon la taille de la cellule.

ouiabsurfer · Answer

Merci Gilou. Je pense que cette solution est la plus simple. Maintenant, il faut que je recherche un programme pour redimensionner les images au même format que la cellule. As-tu une suggestion ? Merci à tous pour votre aide !!!

Raymond PENTIER · Answer

Salut.
"Si ce n'est pas possible avec Excel, je suis intéressé par tout autre logiciel pouvant le faire."
Tu peux essayer avec Publiprint, Access, PowerPoint et même Word.
En fait, de tous les composants du pack Microsoft Office, c'est précisément Excel le moins bien adapté à ce genre de travail ...
Toutefois, si tes lignes ne sont pas destinées à être manipulées (insertions, tris, filtres), Excel t'offre une possibilité : tu dessines une FORME (carré, rectangle ou autre) aux bonnes dimensions, forme que tu dupliques (ctrl+D) et dans laquelle tu vas pouvoir insérer une image (format/remplissage avec image/recherche du fichier ...) comme montré ici 
&#9658; https://www.cjoint.com/?gybvCf8K23

Mike-31 · Answer

Salut tout le monde,

Sur le lien ci-dessous un fichier que j'ai créé il y a quelques jours pour une demande avec filtre des données comportant des photos.
en première ligne, avec insertion de photos associé à une rechercheV pour afficher image et données correspondantes

https://www.cjoint.com/?gyvHsm6Qe8

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Mike-31 · Answer

Re,

En plus du post 17, un petit code pour insérer une image dans une cellule 

Sub Insertion_Image_Et_Dimensionne_Cellule()
    Dim Image As Variant
    Dim L As Single, T As Single, W As Single, H As Single
                        'Dimensionne la cellule
                        
    '  ActiveCell.Offset().RowHeight = 63.75
    'ActiveCell.Offset().ColumnWidth = 13.86
                  'ou
    Rows("21:21").RowHeight = 63.75         'dimensionne hauteur ligne 21
    Columns("B:B").ColumnWidth = 13.86    'dimensionne largeur colonneB
                        'sélectionne la cellule de réception
    L = Range("B21").Left
    T = Range("B21").Top
    W = Range("B21").Width
    H = Range("B21").Height
    Image = Application.GetOpenFilename
    If Image <> False Then
    Feuil1.Shapes.AddPicture Image, True, True, L, T, W, H
    End If
End Sub

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Utilisateur anonyme · Answer

Bonjour,

Ouiabsurfer a abandonné mais ce n'est pas perdu pour tout le monde !
Mike, ta macro permet de régler comme on veut les dimensions et la cellule destinataire. Bravo et merci pour ces moult solutions :-)))) 

Raymond :-))) je n'ai pas réussi à ouvrir ton fichier :-(

Mike-31 · Answer

Salut Argixu,

Raymond travaille sur Excel 2007 comme beaucoup d'ailleurs, pour ouvrir ces fichiers, il faut télécharger le convertisseur gratuit, et les fichiers les enregistrer avant de les ouvir

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Raymond PENTIER · Answer

Exact.
Je l'ai fait volontairement, la question ayant été posée explicitement pour Excel 2007.
Pour les autres, comme argixu, voici le même fichier en version 2003 : 
https://www.cjoint.com/?gzuj4qzwVq

Raymond PENTIER · Answer

... suffit de demander ! Version 2007 (6 photos,  578 Ko)
https://www.cjoint.com/?gAedEQCdcl

Raymond PENTIER · Answer

... ou bien : Version 2003 (3 photos 1 à 3, 583 Ko)
https://www.cjoint.com/?gAenZ2x56m

Raymond PENTIER · Answer

... et Version 2003 (3 photos 4 à 6, 606 Ko)
https://www.cjoint.com/?gAfsbD7IfK

moonwalker999 · Answer

impossible

idem pc ou mac