Discussion :

[renard700]

Bonjour à tous, je souhaite vérifier a partir d un bouton sous access 2010 l'existence d'une connexion a internet (active).
J'ai récupéré ce code dans plusieurs tutos, mais je n'arrive pas a le faire fonctionner.

Création d'un module nommé InternetGetConnectedState avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Public Function IsConnected() As Boolean
    If InternetGetConnectedState(0&, 0&) = 1 Then
        IsConnected = True
    Else
        IsConnected = False
    End If
End Function

Code du bouton :

Code :

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

1
2
Private Sub BoutonEnvoyer_Click()
If InternetGetConnectedState = True Then TestInternet.Caption = "connecté" Else TestInternet.Caption = "non connecté"

Je pense qu'une partie du code n'est pas a sa place, mais je ne m'en sort pas. Merci d'avance

[tee_grandbois]

Bonjour,
tu appelles la mauvaise fonction:

Code :

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

If IsConnected = True Then testinternet.Caption = "connecté" Else testinternet.Caption = "non connecté"

[renard700]

Merci,
J en tiens une couche

Code :

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

Public Function IsConnected() As Boolean

c'est écrit noir sur blanc.
Mais ca ne fonctionne pas. C'est la première fois que j'utilise une fonction et une DLL. Faut il ajouter un référence ?

[tee_grandbois]

Salut,
je ne pense pas que tu as besoin d'ajouter des références, sinon il y aurait un message d'erreur.
De plus j'ai testé ton code et il fonctionne.

[renard700]

je dois mal placer mon code.
nous sommes bien d'accord sur la hiérarchie de mon premier post :

Création d'un module, pas un module de classe, nommé InternetGetConnectedState avec le code indiqué
puis la ligne que tu m'as sympathiquement corrigée dans mon code VBA.
Ne faut il pas déclarer la fonction dans le code vba de mon formulaire ou est elle reconnue d'office ?
Merci d'avance

[robyseb]

Nommée un module le même nom qu'une fonction porte à confusion ...

moi aussi testé et fonctionne nickel je l'ai mit sur le timer et aussitôt la connections perdu mon champs texte m'indique "Non Connecté"

module serait exemple : mod_connected

Code :

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

1
2
3
4
5
6
7
8
Public Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Public Function IsConnected() As Boolean
    If InternetGetConnectedState(0&, 0&) = 1 Then
        IsConnected = True
    Else
        IsConnected = False
    End If
End Function

Dans le formulaire ca serait exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Form_Load()
me.timerintervale = 1000
End Sub
Private sub Form_Timer()
If IsConnected = True Then 
testinternet.Value = "connecté" ' .Value pour un TexteBox
Else 
testinternet.Value = "non connecté"
End if
End Sub

[renard700]

Parfait, ça fonctionne parfaitement bien.
Un grand merci a vous deux pour votre patience et .... a bientôt

[robyseb]

n'oublie pas de mettre ton post

[renard700]

Oups désolé !
Je corrige.
Encore Merci