test page web via macro Résolu/Fermé

Question

Bonjour, 

J'ai trouvé sur un forum un code qui me permet de tester si une url est valide ou non. L'inconvénient c'est que pour vérifier il faut entrer l'adresse dans une boite de dialogue et ensuite valide le test. Sur mon fichier il y aura beaucoup de lien donc les saisir 1 à 1 n'est pas possible.

Penser vous qu'il est possible de faire une vérification sur tout les liens sans les saisir et indiquer seulement ceux défectueux ?

Code : 

Sub Test_page_Web_1()
URL_à_tester = InputBox("URL à tester ?", "validité de l'adresse Internet", "http://boursorama.fr")
On Error GoTo Err
Set fich = Workbooks.Open(URL_à_tester) 'ouvre l'URL
fich.Close (False) 'ferme l'URL
MsgBox "l'URL " & URL_à_tester & " est valide"
Exit Sub
Err:
MsgBox "l'URL " & URL_à_tester & " ne peut pas être ouvert"
End Sub

lien avec fichier : http://www.cijoint.fr/cjlink.php?file=cj201105/cijG1jxZzS.xls

melanie1324 · Answer

Bonjour,

c'est possible.
exemple si tes lien sont dans la colonne A :
Sub Test_page_Web_1() 
i=1
do while cells(i,1)<> "" 'testera les liens de la ligne i et de la colonn1 à modif si nécessaire
URL_à_tester = cells(i,1)
On Error GoTo Err
Set fich = Workbooks.Open(URL_à_tester) 'ouvre l'URL
fich.Close (False) 'ferme l'URL
MsgBox "l'URL " & URL_à_tester & " est valide"
Exit Sub
Err:
MsgBox "l'URL " & URL_à_tester & " ne peut pas être ouvert"
i=i+1
loop
End Sub

Hélios · Answer

Merci à toi ça marche ^^

Test page web via macro

2 réponses