Discussion :

[Totophe76]

Bonjour,
J'ai une feuille excel avec des cellules qui contiennent un lien hypertexte qui renvoie sur un site internet pour afficher une image sous internet explorer.
Je cherche un moyen (macro?) pour ouvrir automatiquement chaque lien, voire enregistrer chaque photo.
Quelqu'un peut il m'aider?
Merci d'avance.

[jfontaine]

Bonjour,

Le code ci dessous ouvre tous les liens se trouvant sur la feuil1

Code :

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

1
2
3
4
5
Dim hyp As Hyperlink
 
For Each hyp In Sheets("Feuil1").Cells.Hyperlinks
    hyp.Follow (True)
Next