Repérer si le pc est connecté à Internet

[zeltron]

Bonjour à tout le forum

Voici mon problème , j'ai un USF sur lequel il y a une image.

Quand je clique sur cette image, cela m'envoie sur une page web.

Mon code sur cette image est le suivant:

Private Sub Image6_Click()

ActiveWorkbook.FollowHyperlink Address:=Sheets("Accueil").Range("B16"), NewWindow:=True
End Sub

Cela marche très bien, mais si mon PC n'est pas connecté à Internet cela buggue. Ce que je souhaiterais c'est que si le Pc n'est pas connecté à internet cela le repère est que cela m'affiche in msgbox donc un code du type:

Private Sub Image6_Click()
If "LE PC n'est pas connecté" Then
MsgBox "Vous n'est pas connecté à Internet", vbCritical, "Attention"
Exit Sub
Else
ActiveWorkbook.FollowHyperlink Address:=Sheets("Accueil").Range("B16"), NewWindow:=True
End if
End Sub

Cependant je ne sais pas comment lui dire "Regarde si le PC est connecté"

Pouvez vous m'aider?

Merci d'avance

Cordialement

Zeltron

 

[MichelXld]

Re : Repérer si le pc est connecté à Internet

bonjour

tu peux tester

Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" _
(ByRef lpdwFlags As Long) As Long

Sub verificationConnection()
    Select Case IsNetworkAlive(0)
    Case 0
        MsgBox "not connected"
    Case 1
        MsgBox "connected to LAN"
    Case 2
       MsgBox "connected to WAN"
    Case Else
       MsgBox "connected to other network"
    End Select
End Sub

bonne journée
MichelXld

 

[zeltron]

Re : Repérer si le pc est connecté à Internet

Merci Michel,

Cela fonctionne impec!!

Juste pour ma "culture"; quel est la différence entre LAN et WAN ?

Quabd je suis connecté il me donne le cas Lan. Qu'est ce que Wan?

Merci d'avance

Cordialement

Zeltron

 

[MichelXld]

Re : Repérer si le pc est connecté à Internet

rebonjour Zeltron

Dictionnaire des développeurs - Club d'entraide des développeurs francophones

Dictionnaire des développeurs - Club d'entraide des développeurs francophones


bon apres midi
MichelXld

 

[zeltron]

Re : Repérer si le pc est connecté à Internet

Merci Michel pour ces liens très interressants

Bonne journée

Cordialement

Zeltron

 

[Fanfan68]

Re : Repérer si le pc est connecté à Internet

Bonjour Michel, bonjour tout le monde,

Ton code est intéressant mais j'aurai besoin d'une précision, il indique quoi ? que l'ordi est en réseau(lan) ou sur internet car ce n'est pas la même chose.

On peut trés bien être connecté en réseau tout en n'étant pas sur internet.

Pour affiner la demande de Zeltron, au boulot, j'ai des soucis car mes opérateurs sont quelques fois sur le net alors qu'ils n'ont pas à y etre, pourtant ils sont tous connecté en réseau.

Est-il possible de savoir si oui ou non, ils sont sur internet ?

Merci

 

[MichelXld]

Re : Repérer si le pc est connecté à Internet

bonjour Fanfan

je ne suis pas sur d'avoir bien compris ta demande mais tu peux tester

Public Declare Function InternetGetConnectedState Lib "wininet.dll" _
    (lpdwFlags As Long, ByVal dwReserved As Long) As Boolean
Sub testEtatConnection()
    Dim lngFlag As Long
    MsgBox InternetGetConnectedState(lngFlag, 0&) <> 0
End Sub

bon apres midi
MichelXld

 

[Fanfan68]

Re : Repérer si le pc est connecté à Internet

Merci Michel,

Je vais tester cela.

Désolé pour pour ma réponse tardive

A bientôt