Problème ouverture lien hypertexte avec macro Excel

Bonjour à tout le forum,

Je rencontre un problème à l'ouverture d'un lien hypertexte à partir d'une macro VBA si mon PC n'est pas connecté à Internet. En fait, j'ai un message d'erreur VBA qui s'affiche à l'écran. Comment faire pour poursuivre le déroulement de la macro malgré tout s'il vous plait ?

Voici le lien hypertexte qui se trouve dans ma macro: (c'est un exemple, je précise)

ActiveWorkbook.FollowHyperlink Address:="https://forum.excel-pratique.com", NewWindow:=True

Et voici le message d'erreur:

Bonne journée

JB

Bonsoir,

Il n'existe peut-être pas de solution pour ce genre de problème :/

Très bonne soirée à vous tous.

JB

Bonsoir JB

Il n'existe pas de solution... car il n'existe pas de problème

Sub Test()
  ActiveWorkbook.FollowHyperlink Address:="https://forum.excel-pratique.com", NewWindow:=True
End Sub

Fonctionne parfaitement...

Bonsoir BrunoM45,

Oui cela fonctionne si vous avez une connexion Internet mais si la connexion internet est rompue au moment de l’exécution de la macro j'obtiens le message ci-dessus.

Bonne soirée.

JB

Re,

Ca vous arrive souvent d'avoir des connexions internet qui se coupent

Alors à ce moment là, essayez

Sub Test()
  On Error Resume Next
  ActiveWorkbook.FollowHyperlink Address:="https://forum.excel-pratique.com", NewWindow:=True
  On Error Goto 0
End Sub

A+

Bonsoir, cela pourrait arriver si le PC portable de mes collaborateurs n'est pas connecté au réseau internet de l'entreprise. Merci pour votre proposition de code.

Bonne soirée.

JB

Bonjour,

J'ai trouvé ce code sur ce site mais je n'arrive pas à le faire fonctionner

Sub exemple()

    ouvertureLien = linkOpen("https://www.excel-pratique.com")

    'MsgBox affichée uniquement si le lien n'a pas pu être ouvert
     If ouvertureLien = False Then
        MsgBox "Oups ... pas de connexion à Internet !"
    End If

End Sub

Est-ce à cause des variables non définies? Comment déclarer "linkOpen" dans ce cas ?

Voici le lien qui mène au poste: https://www.excel-pratique.com/fr/fonctions-complementaires/link-open

Merci à vous tous :)

JB

Bonjour

LinkOpen trouvé est pour GoogleSheet, mais on peut très bien la transformer en fonction VBA

Sub Exemple()
  If LinkOpen("https://www.excel-pratique.com") = False Then
    MsgBox "Oups ... pas de connexion à Internet !"
  End If
End Sub

Function LinkOpen(sURL As String)
  LinkOpen = True
  On Error Resume Next
  ActiveWorkbook.FollowHyperlink Address:=sURL, NewWindow:=True
  If Err.Number <> 0 Then LinkOpen = False
  On Error GoTo 0
End Function

A+

Bonsoir,

Merci beaucoup pour votre aide; j'ai réussi à m'en sortir :)

Bonne soirée !

JB