Extraire des images des liens hypertextes
Bonjour à tous,
Dans le fichier ci-joint, j'aimerais pouvoir insérer pour chaque lien dans la colonne G une image dans la colonne E grâce à un macro.
Merci d'avance
Bonjour bilel,
En effectuant quelques recherches, je suis tombé sur ce post qui semble déjà traiter le sujet : https://forum.excel-pratique.com/viewtopic.php?f=2&t=92679
Tu va surement devoir adapter le code, puisque dans ton cas, et si j'ai bien compris cela concerne des images sur ton disque dur. Alors que sur l'autre sujet,, ils parlent de lien vers internet.
Peut-être avec ce tuto : https://borntocode.fr/excel-inserer-une-image-depuis-un-lien-hypertexte-macro/
Bonne recherche !
Merci pour votre retour.
j'ai trouvé ce code et il fonctionne super bien.
Sub imortvisuels()
For Each Cel In Sheets("Gamme").Range("H3:H5")
Cel.Offset(0, -3).Select
Cel.Offset(0, -3).RowHeight = 100
Cel.Offset(0, -3).ColumnWidth = 40
' If IsFile(Cel.Value) = 0 Then
' Cel.Offset(0, -3).Value = "Photo non dispo
' Else
Set image = ActiveSheet.Pictures.Insert(Cel.Value)
With image
.ShapeRange.LockAspectRatio = msoTrue
.Width = Cel.Offset(0, -3).Width
.Height = Cel.Offset(0, -3).Height
.Left = Cel.Offset(0, -3).Left
.Top = Cel.Offset(0, -3).Top
End With
' End If
Next Cel
End Sub
Function IsFile(fName As String) As Boolean
On Error Resume Next
IsFile = ((GetAttr(fName) And vbDirectory) <> vbDirectory)
End Function
Avec plaisir, juste pour info, est-ce que tu peux donner un lien sur l'origine de ce code ?
Cdt,