none
Requête web - Serveur ou proxy Internet introuvable RRS feed

  • Question

  • Bonjour,

    J'ai une page excel avec plusieurs requêtes web sur des site internet, régulièrement mise-à-jour, qui sont ensuite exportées vers un autre fichier. J'ai parfois, l'erreur suivante qui apparaît sur ma page excel : Impossible d’ouvrir <URL>. Serveur ou proxy Internet introuvable

    Je comprends tout à fait qu'un site soit non-accessible par moment, mais ce message bloque ensuite les mise-à-jour de toutes les données. Je souhaite que l'erreur soit "ignorée" en quelque sorte, pour que les updates puissent continuer.

    J'ai essayé le code VBA "Application.DisplayAlerts = False" mais cela n'a pas fonctionné.

    J'ai essayé la solution suggéré à l'adresse " https://support.microsoft.com/fr-fr/help/218153/error-message-when-clicking-hyperlink-in-office-cannot-locate-the-inte " avec la solution de réparation rapide, cela a semblé fonctionner, mais in fine le problème persiste.

    J'ai contacté le support, qui me dirige vers le forum https://answers.microsoft.com. J'ai fait une recherche mais rien trouvé d'aidant. J'ai posté ma question. Romina_T m'a suggéré de poser ma question ici pour trouver de l'aide. Je l'ai fait malgré le fait de ne pas avoir trouvé de catégorie adaptée.

    J'ai Excel 2019 et Windows 10 sur la machine en question.

    Cette feuille excel fait partie d'un grand projet et j'ai malheureusement souvent des erreurs qui incommodent les utilisateurs. J'espère vraiment réussir à trouver une solution avec vous ! Merci !

    Cyril.

    mardi 5 février 2019 19:53

Toutes les réponses

  • Bonjour,

    J'avais récupéré cette fonction sur internet (merci à l'auteur) :

    Function URLExists(url As String) As Boolean
        Dim Request As Object
        Dim ff As Integer
        Dim rc As Variant
     
        On Error GoTo EndNow
        Set Request = CreateObject("WinHttp.WinHttpRequest.5.1")
     
        With Request
          .Open "GET", url, False
          .send
          rc = .StatusText
        End With
        Set Request = Nothing
        If rc = "OK" Then URLExists = True
     
        Exit Function
    EndNow:
    End Function
    

    Adapte-la en remplaçant le MsgBox.

    Cordialement.

    Daniel

    vendredi 8 février 2019 10:33
  • Merci beaucoup Daniel pour ta solution. C'est quoi que je dois changer dans le MsgBox ? C'est pas très clair pour moi.

    J'essaie dès que possible et teste sur quelques jours ! Dans tous les cas je reviens confirmer le résultat !

    Cyril.

    vendredi 8 février 2019 13:57
  • Ca devrait donner quelque chose comme ça :

      Dim URL As String, TestURL As Boolean
      URL = "https://social.msdn.microsoft.com/forums/fr-fr/home?forum=vbafr&filter=alltypes&sort=lastpostdesc"
      TestURL = URLExists(URL)
      If TestURL = True Then
          'Ici, tu mets ton code avec la requête web
      End If
      'Là, tu mets la suite du code
    

    Si tu n'y arrives pas, publie ton code.

    Daniel

    dimanche 10 février 2019 11:41
  • Ah pardon si ce n'était pas clair, j'utilise l'import de page web (sans code):

    https://social.msdn.microsoft.com/Forums/getfile/1401433

    Qui est ensuite mise-à-jour via les propriétés :

    https://social.msdn.microsoft.com/Forums/getfile/1401434

    Mon code VBA ne sert qu'à exporter des données obtenues dans un fichier CSV sur le google drive toutes les 5 minutes.

    je n'ai pas la possibilité de mettre directement les images.

    Merci pour votre aide !

    Cyril.

    lundi 11 février 2019 17:51
  • Est-ce que quelqu'un peut m'aider sur ce point ? J'ai toujours la même erreur qui arrive relativement régulièrement et qui bloque mon automatisation. 

    Merci.

    Cyril.

    mercredi 20 février 2019 13:11
  • Personne ne sait ? Ou pourrais-je me retourner ? 

    Merci.

    Cyril.

    mardi 5 mars 2019 15:46