XL 2016 Utiliser une variable en lieu et place d'une adresse internet

[achel66]

Bonjour,
J'ai un fichier de 2 feuilles Feuil1 et Perf, de 700 lignes (env) et dans une colonne des 2 feuilles
- Feuil1 - J'ai le nom des produits que je choisis en cliquant dessus , ce qui m'ouvre l'autre feuille Perf
- Perf - j' ai la même liste de produits par ordre alphabétique avec un colonne (D) dont chaque cellule contient le lien d'une page web qui contient une image differente pour chaque produit et que je veux récupérer

Voici mes 2 modules
----------------------
Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range)
With rngTarget.Parent
.Pictures.Insert strShpUrl
.Shapes(.Shapes.Count).Left = rngTarget.Left
.Shapes(.Shapes.Count).Top = rngTarget.Top
End With
End Sub
-------------------------------
Sub Charge_graph()
Dim qurl As String
Dim Chaine As String
Dim i As Integer
Dim j As Integer
Dim k As Integer

Sheets("Feuil1").Activate ' Sur Feuil1
NomETF = ActiveCell.Value ' Je récupère le nom du produit
'on a trouvé le nom de l'ETF
'on va le chercher dans PERF

Sheets("PERF").Select 'Je positionne sur cette feuille qui a les mêmes noms de produits

i = 1
j = Range("A2").End(xlDown).Row 'Colonne des noms des ETFs / on a le nb de lignes
qurl = ""

For k = 2 To j
i = i + 1
'On Error Resume Next
Chaine = Cells(i, 1) 'je me positionne en colonne 1 et je vais chercher le nom du produit
If Chaine = NomETF Then
qurl = Sheets("PERF").Cells(i, 4).Value 'le lien URL est dans la colonne D et la variable QURL n'est plus vide
End If
If qurl <> "" Then Exit For 'pour éviter de lire 700 lignes car le nom du produit est unique
Next

Call GetShapeFromWeb(qurl, Sheets("Perf").[g11])

' L'image ne se charge pas -> la variable qurl n'est pas acceptée puisque, en exemple ci-dessous
' Call GetShapeFromWeb("http://www.stockvault.net/data/2011/04/05/121121/small.jpg", Sheets("Perf").[g11] ' fonctionne bien
End Sub

Est-ce que j'ai mal référencé cette variable QURL?
Merci pour votre aide

 

[Compte Supprimé 979]

Bonjour,

Etes-vous sûr de votre url dans la cellule, peut-on avoir un extrait de votre fichier pour tester

@+

 

[i20100_]

Bonjour,

voici un exemple,
avec en cellule D4 la valeur: http://www.stockvault.net/data/2011/04/05/121121/small.jpg
à tester:

Sub test()
Dim qurl As Range
Set qurl = Sheets("Perf").[D4]
Call GetShapeFromWeb(qurl.Value, Sheets("Perf").[A1])
End Sub

 

[achel66]

Merci i20100_ mais voilà la photo d'écran qui m'indique l'erreur et le témoin espion de QURL (qui est en gris clqir au lieu de noir...?)

 

[i20100_]

Bonjour,

peux-tu faire le test sur ce fichier, pour voir si tu obtiens la même erreur.

 

[Staple1600]

Bonjour le fil

[Juste pour infos]
De ce que je lis dans le fil, je modifierai ainsi la procédure ci-dessous

Sub test()
Dim qurl As Range
Set qurl = Sheets("Perf").[D4]
Call GetShapeFromWeb(qurl.Text, Sheets("Perf").[A1])
End Sub

 

[achel66]

Bonjour,

peux-tu faire le test sur ce fichier, pour voir si tu obtiens la même erreur.

Bonjour,

peux-tu faire le test sur ce fichier, pour voir si tu obtiens la même erreur.

Bonjour,
Cette procédure fonctionne mais en changeant l'url en lieu et place de celle en exemple cà ne fonctionne plus. Tu peux essayer toi-même (Erreur execution 1004_méthode Insert de la classe Pictures a échoué)

 

[achel66]

Bonjour le fil

[Juste pour infos]
De ce que je lis dans le fil, je modifierai ainsi la procédure ci-dessous

Sub test()
Dim qurl As Range
Set qurl = Sheets("Perf").[D4]
Call GetShapeFromWeb(qurl.Text, Sheets("Perf").[A1])
End Sub

C'est ce que j'ai fait mais même problème et même résultat, que la suggestion de i20100 - même erreur

 

[i20100_]

Bonjour,
Cette procédure fonctionne mais en changeant l'url en lieu et place de celle en exemple cà ne fonctionne plus. Tu peux essayer toi-même (Erreur execution 1004_méthode Insert de la classe Pictures a échoué)

il faut que url pointe sur un shape et non sur une page web général, comme le font tes autres liens.

 

[achel66]

OK Merci i20100 et merci à tous