Tester la validité d'un lien internet

yannoch

XLDnaute Junior
Bonjour à tous,

après quelques recherches sur le forum, je n'ai pas trouvé mon bonheur (ce qui est rare, j'avoue). Ce que je cherche à faire est peut-être impossible.

Je souhaiterai simplement tester la validité de liens internet à l'ouverture de mon classeur (et par bouton).
Tous ces liens se trouve dans une même colonne d'une même feuille.
Et j'aimerais afficher le résultat dans la cellule d'en face (OK ou KO).

Ayant jamais travaillé sur des macro ayant des interactions avec internet, je ne sais pas trop quoi chercher en vba, c'est pour ça que je m'adresse au forum :)

Ci-joint un fichier avec les explications ci-dessus.

Merci d'avance pour vos réponses.
 

Pièces jointes

  • lien_test.xls
    20.5 KB · Affichages: 90

MJ13

XLDnaute Barbatruc
Re : Tester la validité d'un lien internet

Bonjour yanoch, MicelXLD que je salue.

Si je ne savais pas le faire, je le testerai comme ceci (en ayant en A1 le texte du lien):

Code:
Sub test_lien_URL()
'
' Test_lien_URL par MJ
On Error GoTo probl
    Range("A1").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    End
probl:
    MsgBox ("probl")
End Sub

Ce code est à adapter.
Si IE ou un autre navigateur s'ouvre, je ferai ensuite un kill process (j'ai déjà vu MichelXLD en proposer (Michel si tu nous lis).

Bien sur ce n'est qu'un début.
 

Discussions similaires

Statistiques des forums

Discussions
312 894
Messages
2 093 379
Membres
105 712
dernier inscrit
CARLO 82