Discussion :

[skorpio]

bonjour tout le monde...

une petite question... voici ma ligne de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
ThisWorkbook.FollowHyperlink "http://www.google.com", , True
End Sub

je souhaiterai que lorsque je ne suis pas connecté sur internet(pas de connexion) et que je clic sur le CommandButton1, et bien je souhaiterai que ça ne m'envoye pas un message d'error (je ne veux pas que ça m'ouvre Visual Basic en fait)
je veux par exemple que ça m'ouvre un textBox, me disant: pas de connexion

si quelqu'un peut m'aider

[COCONUT2]

C'est peut etre simpliste mais il faut dans ce cas tester ta connexion avant dans une boucle If

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 
If connexion non OK then
 
msgbox("pas de liaison internet, désolé!")
exit sub
 
else
 
ThisWorkbook.FollowHyperlink "http://www.google.com", , True
 
end if
End Sub

reste à savoir comment tester cette connexion internet!

Une autre solution consiste à demander à l'utilisateur à ce que internet soit déjà ouvert avant! De cette facon, c'est l'utilisateur qui teste et pas la macro! (Gain de poids de fichier et pas de gestion d'erreur)

[skorpio]

je m'en douté c'est pour ça que je le demande...
ça m'étonne qu'on puisse pas vérifier avec une macro si internet et connecté, c'est bizard!!!

[zazaraignée]

Je crois bien qu'il faudra ajouter le composant Internet (voir le menu Outils, Références).

[skorpio]

j'ai cocher le composant Microsoft Internet Controls; mais je sais quoi ecrire comme code

[SilkyRoad]

bonsoir


Pour vérifier si le poste de travail est connecté:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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

michel

[skorpio]

merci beaucoup c'est parfait voila exactement mon code pour ceux que ça interesse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
Private Sub Image1_Click()
Select Case IsNetworkAlive(0)
        Case 0: MsgBox "not connected"
        Exit Sub
        Case 1: MsgBox "connected to LAN"
        Case 2: MsgBox "connected to WAN"
        Case Else: MsgBox "connected to other network"
    End Select
ThisWorkbook.FollowHyperlink "http://www.wanao.com", , True
End Sub

[paoloadv]

Bonjour!
Sinon, il y a aussi la fonction InternetGetConnectedStateEx de la librairie wininet.dll, qui retourne la valeur 1 si la connexion Internet est activée. Cela se code ainsi, dans un module standard...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Option Explicit
 
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long
 
Public Function IsInternetConnected() As Boolean
    Dim strConnType As String
    Dim lngReturnStatus As Long
 
    lngReturnStatus = InternetGetConnectedStateEx(lngReturnStatus, strConnType, 254, 0)
    IsInternetConnected = (lngReturnStatus = 1)
End Function

@+
Paolo