[VBA] tester si deux URL sont valides

F22Raptor

XLDnaute Occasionnel
Hello
Voici un fichier joint qui contient un code permettant de tester deux URL.
Si la première est OK, on l'ouvre, et on sort de la macro.

Si elle ne fonctionne pas, on teste la seconde.
Si elle est OK, on l'ouvre, sinon, on sort de la macro en affichant un msg ("les deux URL sont invalides")


Ca marche bien, SAUF dans le cas ou les deux URL sont invalides.
Auquel cas, je récupère un msg d'erreur au test de la seconde.
J'ai l'impression qu'il ne gère pas un deuxième "On Error Goto Err2" ...

Une idée nocturne ? :)
 

Fichiers joints

Iznogood1

XLDnaute Impliqué
Re : [VBA] tester si deux URL sont valides

Bonjour

une petite idée nocturne
Code:
Sub LancementURL()

Application.DisplayAlerts = False

    Const URL1 As String = "mauvais"
    Const URL2 As String = "pasbon"
    
    On Error Resume Next   'si on n'arrive pas à ouvrir la 1ere URL, on passe à la seconde
    Set TestURL1 = Workbooks.Open(URL1)
    If Err.Number <> 0 Then
      Err.Number = 0
      Set TestURL2 = Workbooks.Open(URL2)
      If Err.Number <> 0 Then
        on error goto 0
        MsgBox "Aucune des deux URL n'est valide"
      Else
        on error goto 0
        MsgBox "FollowHyperlink URL2"
      End If
    Else
      on error goto 0
      MsgBox "FollowHyperlink URL1"
    End If
    

End Sub
 

F22Raptor

XLDnaute Occasionnel
Re : [VBA] tester si deux URL sont valides

Joli, merci !

J'ai juste ajouté des TestURL2.Close (False) sous les Open, sinon Excel ouvre un classeur rempli du code HTML de la page.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas