Problème: Macro pour afficher image depuis url d’une colonne
Bonjour les amis.
J’ai besoin de votre aide pour corriger un code qui fonctionnait sur les anciennes version d’excel.
Cette macro permet de se baser sur la dernière colonne d’un fichier qui comporte une url pour aller afficher l’image correspondante deux colonnes plus loin.
Cependant le code ne fonctionne plus correctement depuis excel365 alors qu’il fonctionnait bien sur d’anciennes versions.
Pourriez vous m’aider et corriger la partie qui ne fonctionne plus ?
Merci d’avance de votre aide.
Ci après le code base sur celui de Ludovic:
Sub LinkToImage()
For Each cel In Selection
cel.Offset(0, 2).Select
cel.Offset(0, 2).RowHeight = 100
cel.Offset(0, 2).ColumnWidth = 40
If URLValid(cel.Value) = 0 Or HttpExists(cel.Value) = 0 Then
cel.Offset(0, 2).Value = "Photo non dispo"
Else
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
End If
Next cel
End Sub
Function URLValid(url As String) As Boolean
If InStr(url, "png") > 0 Then
URLValid = True
ElseIf InStr(url, "jpg") > 0 Then
URLValid = True
ElseIf InStr(url, "jpeg") > 0 Then
URLValid = True
ElseIf InStr(url, "bmp") > 0 Then
URLValid = True
Else
URLValid = False
End If
End Function
Function HttpExists(ByVal sURL As String) As Boolean
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
On Error GoTo haveError
oXHTTP.Open "HEAD", sURL, False
oXHTTP.send
HttpExists = IIf(oXHTTP.Status = 200, True, False)
Exit Function
haveError:
Debug.Print Err.Description
HttpExists = False
End Function
Bonjour,
Je viens de tester ton code sur Excel365 qui fonctionne parfaitement.
1) En version "en ligne", Excel ne prend pas en charge les macros.
2) En version installée sur le poste, il ne faut pas oublier de référencer l'utilisation de l'objet XML :
a) ALT F11 ouvrir l'IDE
b) Outils, Références Microsoft XML, v6.0
Merci de ton retour oxydum
J’ai juste cette manip à faire sur Excel pour que cela fonctionne ?
Saurais tu me dire comment enregistrer ce code directement sous Excel de façon à ce que je n’ai pas besoin à chaque nouvelle liste de fichier? Car actuellement excel me demande de le rentrer à nouveau à chaque fois
Il manque un verbe à ta question : je ne la comprends pas.
Toutes mes excuses, mon précédent message était écrit via Smartphone.
En fait j’ai chaque mois un fichier Excel différent, et donc je dois relancer cette macro pour faire afficher les photos 1 fois par moi.
Je souhaiterais simplement savoir la manip pour enclencher rapidement cette macro peut importe le fichier ouvert, Car à ce jour je suis obligé de ressaisir le script de la macro pour chaque nouveau fichier.
Si je ne me trompe pas, il me semble qu’il y avait à l’époque une fonction qui permettait de mettre un raccourci dans le menu d’excel permettant l’exécution directe de ce script peut importe le fichier ouvert, Et surtout de ne pas avoir à ressaisir le code…
Bonjour,
Je viens de tester ton code sur Excel365 qui fonctionne parfaitement.
1) En version "en ligne", Excel ne prend pas en charge les macros.
2) En version installée sur le poste, il ne faut pas oublier de référencer l'utilisation de l'objet XML :
a) ALT F11 ouvrir l'IDE
b) Outils, Références Microsoft XML, v6.0
Bonjour.
Avec votre aide la macro se lance sur quelques lignes correctement et affiche les images mais après une dizaine, excel affiche le message suivant et se bloque :
« Erreur d’exécution ´1004’
Impossible de lire la propriété Insert de la classe PICTURES »
Et il me surligne dans le code la ligne:
Set Image = ActiveSheet.Pictures.Insert(cel.Value)
Pourriez vous m’aider à corriger ce qui bloque svp?
Ps: pourtant si je relance la macro manuellement sur les lignes suivante elle re fonctionne, mais juste pour une dizaine de ligne a nouveau et affiche à nouveau l’erreur