Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Tester une adresse

  • Initiateur de la discussion Initiateur de la discussion piep14
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

piep14

XLDnaute Occasionnel
Bonjour,

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

Merci
 
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
 
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+
 
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 ?
 
Re : Tester une adresse

bonsoir

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

Code:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
106
Réponses
4
Affichages
227
Réponses
12
Affichages
645
Réponses
12
Affichages
443
Réponses
4
Affichages
321
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…