Insérer image dans une cellule

Bonjour et merci d'avoir pris le temps de me répondre.

Mes dossiers images sont des images de couverture de livre avec des formats différents : png, tiff, jpg, jpeg, etc.

Je souhaite récupérer ces images en fonction de l'auteur et du titre. J'ai donc des dossiers auteurs dans lesquels se trouvent mes images.
En colonne A, j'ai mis les auteurs et en B les titres. En C la formule concatener(chemin d'accès du dossier source ; auteur ; titre) me donne l'endroit où aller chercher l'image.

Mais voilà ce que j'obtiens la plupart du temps
D'ailleurs maintenant je n'obtiens plus que cette image.
Je pense que le problème vient du format de l'image.
Alors je me demandai s'il était possible dans ma macro de pouvoir insérer l'image sans se soucier du format.

Pour la deuxième problématique quand j'ouvre à nouveau le classeur un encart s'ouvre et me demande de sélectionner le fichier source.

Le but de tout ça est de créer une base données avec réfs et images pour envoyer à d'autres personnes pour en lire le contenu et bien entendu ils n'auront pas les images.

De plus comme les problèmes en amènent d'autres lorsque le fait un tri des auteurs par exemple les images ne suivent pas le tri. Pourtant ça fonctionne quand j'applique un filtre.

Bref. Plus j'avance et moins ça fonctionne ????

Encore merci !!!

Pour le premier, c'est ça. En C j'obtiens par exemple : /Users/ludwigbarrachin/Desktop/Ludwig/Images livres/Franck Thilliez/Rêver et je ne peut préciser l'extension car je ne la connais pas. Du moins il faudrait que j'aille vérifier à chaque image. Pour deux ou trois références ça ne poserai pas de problème mais pour des centaines c'est pas pareil. ????

Pour le deuxième, en effet si je le fait sans macro l'image s'affiche aussi sur un autre ordi. ????

Voilà ce que j'obtiens en faisant l'enregistrement. Je vais refaire ma macro depuis cette base.

[https://www.commentcamarche.net/contents/446-fichier-sub Sub] Macro4()
'
' Macro4 Macro
'

'
    Range("D2").Select
    ActiveSheet.Pictures.Insert( _
        "/Users/ludwigbarrachin/Desktop/Ludwig/Images livres/Franck Thilliez/Angor1.jpeg" _
        ).Select
End Sub

Par contre pour mon premier problème je serai incapable de trouver la solution par moi-même.

PS : La série des "????" je voulais juste insérer des emoticons. ????

Bonjour à toi,

Je vois que la nuit t'a été de bon conseil. Tes solutions fonctionnent très bien. Je te remercie beaucoup je n'y serais pas arriver sans ton aide !

Voici mon, disons plutôt, notre code pour ceux que ça pourrait intéresser :

Dim Fichier As String
Dim Emplacement As Range
Dim Shp As Shape
Dim DerLg, Lg, Climg, Clad, Claut, Clti As Integer
Dim Chemin As String

Sub InsererImage()

'Efface les images déjà existantes
For Each Shp In ActiveSheet.Shapes
   Shp.Delete
Next Shp

'ligne départ pour la boucle
Lg = 2

'ligne de fin pour la boucle
DerLg = Cells(65536, 1).End(xlUp).Row

'colonne où insérer l'image
Climg = Sheets("Paramètres").Range("B7").Value

'colonne où trouver le chemin d'accès de l'image, de l'auteur et du titre
Clad = Sheets("Paramètres").Range("B8").Value
Claut = Sheets("Paramètres").Range("B5").Value
Clti = Sheets("Paramètres").Range("B6").Value

Do While Lg <= DerLg

'mise en mémoire du chemin d'accès, m'évite de mettre une formule en C
Fichier = Dir(CStr(Sheets("Paramètres").Range("B1").Value & "/" & Sheets("Liste").Cells(Lg, Claut) & "/" & Sheets("Liste").Cells(Lg, Clti)) + ".*")
Chemin = Sheets("Paramètres").Range("B1").Value & "/" & Sheets("Liste").Cells(Lg, Claut) & "/" & Fichier

'sélection de la cellule où insérer l'image
Cells(Lg, Climg).Select
    
    On Error Resume Next
        
    'dimensionner la cellule, les dimensions sont dans la feuille paramètres
    With Cells(Lg, Climg)
        .Select
        .RowHeight = Sheets("Paramètres").Range("B2").Value
        .ColumnWidth = Sheets("Paramètres").Range("B3").Value
    End With
    
    'insertion et mis en forme de l'image
    Set Emplacement = ActiveCell
    
    ActiveSheet.Shapes.AddPicture FileName:=Chemin, _
        LinkToFile:=msoFalse, _
        SaveWithDocument:=msoCTrue, _
        Left:=Emplacement.Left + 2, _
        Top:=Emplacement.Top + 5, _
        Width:=Emplacement.Width - 4, _
        Height:=Emplacement.Height - 10

Lg = Lg + 1

Loop

    'j'applique à toutes les images le déplacement et le dimensionnement avec la cellule
    For Each Shp In ActiveSheet.Shapes
        Shp.Placement = xlMoveAndSize
    Next Shp

End Sub

Enfin, pour que le tri puisse se faire correctement, en plus d'activer le "déplacer et dimensionner avec la cellule" il est impératif que l'image ne dépasse pas de la cellule où elle a été insérée.

Encore merci pour ton aide et bon dimanche.

Cdt; Ludwig

Oups ! je me suis un peu avancé.

J'ai souhaité ajouter d'autres livres et un message d'erreur s'affiche ="Une erreur s'est produite lors de l'importation de ce fichier. /Users/ludwigbarrachin/Desktop/Ludwig/Images livres/Dan Brown/Da Vinci code.jpeg".

Ce qui est bizarre c'est que si je insère l'image manuellement, que je l'efface et que je lance la macro alors l'image s'affichera correctement.

Qu'est-ce qui cloche ?

Encore merci.

Lorsque la macro arrive sur la ligne 49 "ActiveSheet.Shapes.AddPicture FileName:=Chemin..." ce message d'alerte s'affiche.



Sur la feuille Excel l'image ne s'affiche pas, la cellule reste vide et passe à la suivante.

L'image s'affichera que si elle a été, à un moment donné, insérée manuellement (Sans macro).
Je ne comprends pas la raison !

Non rien de spécial, du moins rien qui me saute aux yeux !

Oui j'ai toujours la même erreur sur les mêmes images. Si je supprime la ligne où il y a la première erreur, l'erreur se répercute à la ligne suivante et ainsi de suite.

J'ai bloqué on error resume next et "une erreur d'exécution 1004" apparait. "Erreur définie par l'application ou par l'objet".

C'est ça. Si je ne fais pas, une première fois, l'insertion en passant le menu : insertion/illustrations/images/Image à partir d'un fichier. La macro ne fonctionnera pas pour une image qui n'a jamais été insérée de cette manière. Je ne comprends absolument pas pourquoi. D'autant plus qu'ensuite la macro fait exactement le travail.

Peut-être que Chemin ne doit pas être déclaré en string ?

Je suis sur mac et j'utilise microsoft 365. J'ai obtenu le chemin d'accès dans les infos du fichier. Lorsque j'enregistre la macro j'obtiens le même chemin.

Bonjour,

Je crois que je viens de trouver la solution.

C'est le renforcement de la sécurité sous Mac OS X qui est à l'origine de ce problème. Il faut que le dossier, dans mon cas le dossier "Images livres", soit enregistré dans la bibliothèque et non pas, comme je l'avais fait, enregistré sur le bureau.

Encore merci pour toute ton aide. C'est très appréciable !!!

Je te souhaite une très bonne journée et à très bientôt.

Cdt, Ludwig