N'affiche pas l'image

[Syleg35]

Bonjour à tous

Pouvez-vous me dire pourquoi l’image en colonne (E) ne s’affiche pas !

Ci-joint fichier.

Bonne journée à vous

ExempleFichier.xlsx (29,4 Ko)

[Cousinhub]

Bonjour,
Tu utilises un fichier csv dans ta requête Power Query.
Peux-tu le joindre également?
Je penses qu’à l’issue de l’import via PQ, un petit code VBA sera nécessaire…
@ te relire

PS, et en complément, si tu cliques dans la cellule E2, appui sur la touche F2 pour la mettre en édition, puis que tu valides la formule, les pavillons s’affichent bien…

[Syleg35]

@Cousinhub

fichier csv

Bonjour
Merci pour ta réponse
Ci-joint fichier csv

Merci d’avance pour ton aide
URL_Flag_Country.csv (15,6 Ko)

[Cousinhub]

Re-,
Quelle version d’Excel utilises-tu?
La fonction Image n’est disponible que pour les versions 365 et 2024… (chez moi, Excel 2024, la formule fonctionne…)
Si tu as une version antérieure, il faut utiliser une autre méthode (en panne d’inspiration pour le moment…)
une solution sous ce lien, mais il doit y avoir d’autres…

[Syleg35]

Encore merci pour les informations
J’utilise Microsoft Office Professional Plus 2021
Je vais voir avec ton lien

Bonne journée

[tontonbox]

Bonsoir,

As-tu trouvé une solution pour tes images?

Slts

[Marcov]

Une solution: tu sélectionne D2 à D?? puis tu excécute cette macro
Sub AfficheToImage()
For Each cel In Selection
cel.Offset(0, 2).Select
cel.Offset(0, 2).RowHeight = 50
cel.Offset(0, 2).ColumnWidth = 20
Set image = ActiveSheet.Pictures.Insert(cel.Value)
With image
.ShapeRange.LockAspectRatio = msoTrue
.Width = cel.Offset(0, 2).Width
.Height = cel.Offset(0, 2).Height
.Left = cel.Offset(0, 2).Left
.Top = cel.Offset(0, 2).Top
End With
Next cel
End Sub

[Syleg35]

Bonjour Marcov

Merci pour ta macro, cela fonctionne bien et j’ai pu finir mon tableau
J’ai fait une modification à ta macro, pour mieux l’adapter à mon tableau.

Encore merci…

Bonne journée à toi.