Tester la validité d'un lien internet

[yannoch]

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.

 

[MichelXld]

Re : Tester la validité d'un lien internet

bonsoir

j'espère que ce lien pourra t'aider

Comment savoir si une URL existe - Forum des développeurs


bonne soirée
michel

 

[yannoch]

Re : Tester la validité d'un lien internet

Merci beaucoup, je vais étudier ça tranquillement.

 

[MJ13]

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):

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.