problème avec FollowHyperlink

Version imprimable

12/07/2007, 09h55
skorpio

problème avec FollowHyperlink
bonjour tout le monde...

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

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:cry:

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

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)

12/07/2007, 14h34
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!!!:?
12/07/2007, 14h48
zazaraignée

Je crois bien qu'il faudra ajouter le composant Internet (voir le menu Outils, Références).
12/07/2007, 14h58
skorpio

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

bonsoir

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

Code:

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

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

Code:

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

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:

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