Test page web via macro
Résolu
Hélios
-
Hélios -
Hélios -
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
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
A voir également:
- Test page web via macro
- Test performance pc - Guide
- Web office - Guide
- Test disque dur - Télécharger - Informations & Diagnostic
- Test steam deck oled - Guide
- Supprimer page word - Guide
2 réponses
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
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