Tester une adresse

[piep14]

Bonjour,

J'aurais une petite question. Me serait-il possible à partir du VB d'excel de tester une url WEB ?

Merci

 

[Fred0o]

Re : Tester une adresse

Bonjour piep14,

Peux-tu préciser ta question ? qu'entends-tu par tester une url web ? C'est afficher la page pour voir si elle est active ?

 

[ROGER2327]

Re : Tester une adresse

Je ne cherche pas à connaître les réponses, je cherche à comprendre les questions.
[Confucius]​

C'est très beau...

...et très utile dans beaucoup de cas.​

ROGER2327
#2801

 

[Fred0o]

Re : Tester une adresse

En effet, Roger,

Confucius mérite bien son statut de grand maître à penser. Cette pensée est bien adaptée à de nombreux fils courant sur le forum.

 

[ROGER2327]

Re : Tester une adresse

Re...

(...)
Cette pensée est bien adaptée à de nombreux fils courant sur le forum.
(...)

Vous le dites plus directement que moi, mais vous traduisez exactement le fond de ma pensée...
​

ROGER2327
#2803

 

[piep14]

Re : Tester une adresse

En fait, à mon boulot, je n'ai accès qu'a quelques adresses Internet que je ne connais pas.
Si je vais sur un site bloqué, vais avoir une page me disant "Inaccessible", est ce jouable d'analyser si la page est autorisé ?
Merci

 

[Fred0o]

Re : Tester une adresse

Désolé, je ne comprends toujours pas. Si des adresses internet sont bloquées à ton boulot, elles le sont par le paramétrage réseau de ton entreprise (serveur proxy) et tes droits d'accès. Essayer de passer par EXCEL n'y changera rien. Il faut passer par ton administrateur réseau.

A+

 

[piep14]

Re : Tester une adresse

Non, je sais bien ca
Mais mon but final serait de mettre une recherche par exemple
Ce lien n'existe plus
dans l'application excel.
Et j'aimerais retourner en dessous, les visites que j'ai le droit de visiter ou pas au lieu de cliquer sur chaque lien un par un.

Tu vois mieux ?

 

[Roland_M]

Re : Tester une adresse

bonsoir

tester une adresse Ok !
url je sais pas ! mais voici la méthode :

Function FAdresEmail(Chaine As String) As Boolean 'test AdresEmail valide
FAdresEmail = False: If Trim(Chaine) = "" Then Exit Function
Dim Reg As Object: Set Reg = CreateObject("Vbscript.RegExp")
Reg.IgnoreCase = True: Reg.Global = True: Reg.MultiLine = False
Reg.Pattern = "^(['_a-z0-9-]+)(\.['_a-z0-9-]+)*@([a-z0-9-]+)(\.[a-z0-9-]+)*(\.[a-z]{2,5})$"
On Error Resume Next
FAdresEmail = Reg.Test(Chaine) 'True/False
On Error GoTo 0: Err.Clear
Set Reg = Nothing
End Function