[déplacé VB.NET -> VBA] Tester une url

cs_piep14 Messages postés 345 Date d'inscription lundi 15 mars 2004 Statut Membre Dernière intervention 13 mai 2011 - 2 févr. 2010 à 12:03
Claiyah Messages postés 580 Date d'inscription mercredi 20 août 2008 Statut Membre Dernière intervention 20 avril 2010 - 2 févr. 2010 à 15:29
Bonjour,

Tout d'abord, je ne sais pas si je suis dans la bonne section. J'utilise VB à travers excel et je n'ai pas autre chose.

Venons au problème

Ce que je voudrais, c'est de pouvoir entrer une url dans une textbox, valider et que cela me retourner si le site existe bien ou pas.

Est ce possible ?

Merci

2 réponses

cs_piep14 Messages postés 345 Date d'inscription lundi 15 mars 2004 Statut Membre Dernière intervention 13 mai 2011
2 févr. 2010 à 12:35
Voici ce que je recherche à mon avis:

http://www.vbfrance.com/codes/VERIFIER-EXISTENCE-URL_3221.aspx

Mais je n'arrive pas a l'ouvrir en vb excel
Qulqu'un peut me coller le code ou me le convertir ?

Merci beaucoup !
0
Claiyah Messages postés 580 Date d'inscription mercredi 20 août 2008 Statut Membre Dernière intervention 20 avril 2010 3
2 févr. 2010 à 15:29
salut
voila le code:
Option Explicit
Dim vtData

Private Sub cmdOK_Click()
    Dim hdr, posCr
    Inet1.URL = strUrl
    'Inet1.Execute , "HEAD"
    Inet1.OpenURL
    If vtData = "" Then
        hdr = Inet1.GetHeader
        posCr = InStr(hdr, vbCrLf)
        hdr = Left(hdr, posCr - 1)
        
    Else
        hdr = vtData
    End If
    cdeRep = hdr
End Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
    vtData = Inet1.ResponseInfo
End Sub


je l'ai pas tester lol
Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie
0