Discussion :

[bigs3232]

j'ai un bloc de selection de liens hypertext récupéré depuis une page html comme ceci

et j'aiemrais récuperer les liens URL avec ce code mais ca ne semble pas bien marcher
c'est quoi le probleme .merci pour votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dern_colS = Selection.Columns.Count
Set plage = Range(Selection.Address)
For Each c In plage
c.Offset(0, dern_colS) = c.Hyperlinks(1).Address
Next c

[helas]

Bonjour,
Si une cellule est vide ou ne contient pas d'URL, il y a erreur, il faut donc tester si une URL existe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dern_colS = Selection.Columns.Count
Set plage = Range(Selection.Address)
For Each c In plage
      if c.Hyperlinks.count > 0 then   c.Offset(0, dern_colS) = c.Hyperlinks(1).Address
Next c

[bigs3232]

merci helas