Message si connexion internet non existante

Version imprimable

22/09/2018, 15h09
Mr l'Ashanti

Message si connexion internet non existante

Bjr forum.
Voici le problème.
Je souhaiterais afficher un message si l'utilisateur n'a pas de connexion établie. Pour le moment j'arrive à afficher la page web quand il y a une connexion mais lorsqu' il n'y a aucune connexion ,alors un Message de debogage survient.

Aussi je voudrais créer un commandbutton qui va nous envoyer vers le cloud pour sauvegarder les nouvelles données enregistrées.

re
bonjour
'solution 1°-

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'--------------------------------------------------------------------------------------------------------------------
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
Sub test1()
MsgBox IsConnected
End Sub
'---------------------------------------------------------------------------------------------------------------------------------

'solution 2°

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
'---------------------------------------------------------------------------------------------------------------------
Function IsConnected2()
With CreateObject("internetexplorer.application")
'.Visible = True
.navigate "https://www.google.fr"
Do: DoEvents: Loop While .readystate <> 4
IsConnected2 = .document.body.innertext Like "*Vous n’êtes connecté à aucun réseau*"
.Quit
End With
End Function
Sub test2()
MsgBox IsConnected2
End Sub
'---------------------------------------------------------------------------------------------------------------------------------

'solution 3°

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'--------------------------------------------------------------------------------------------------------------------
Function IsConnected3()
With CreateObject("microsoft.xmlhttp")
On Error Resume Next
.Open "get", "https://www.google.fr", False: .send
IsConnected3 = Err.Number = 0
End With
End Function
Sub test3()
MsgBox IsConnected3
End Sub
'---------------------------------------------------------------------------------------------------------------------------------

22/09/2018, 17h50
Mr l'Ashanti

merci Patco.
je souhaiterais que les utilisateurs de mon mini logiciel puissent sauvegarder leur travail dans mon cloud à chaque fois qu'il voudriont y acceder et sans passer par mon mot de passe . la sauvegarde sera comme une mise à jour.
je voudrais utiliser mon cloud comme une base de données distante au cas où les utilisateurs auraient un problème sur leur appareil.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub T_matricule_Dblclick(ByVal cancel As MSForms.ReturnBoolean)
 
    'ThisWorkbook.FollowHyperlink "http://www.men-dpes.org/new/index.php" & L_dossier_extrait
    MsgBox IsConnected2
 End Sub
 Function IsConnected2()
With CreateObject("internetexplorer.application")
'.Visible = True
.Navigate "http://www.men-dpes.org/new/index.php"
Do: DoEvents: Loop While .ReadyState <> 4
IsConnected2 = .Document.body.innertext Like "*Vous n’êtes connecté à aucun réseau*"
.Quit
End With
End Function

quand je mets le code le message affiche "vrai"

22/09/2018, 18h27
Mr l'Ashanti

Pat
Avec ce code

Code:

application.dialogs(xldialogsaveas).show

est ce possible d'ajouter dir: c/.../onedrive?
Si oui comment procéder ? Merci
22/09/2018, 18h46
patricktoulon

re
change ca
IsConnected2 = not .Document.body.innertext Like "*Vous n’êtes connecté à aucun réseau*"

ca te donnera vrai si tu est connecté faux si non

quand a ta derniere question
elle a n'a rien a voir avec le sujet ne melange pas
cependant avant le dialog tu fait non pas un dir mais un chdir ta boite de dialog devrait souvrir sur le dossier determiné avec chdir
22/09/2018, 18h53
Mr l'Ashanti

Merci pour ta franchise mais je n'ai pas voulu écrire un long titre sinon dans le poste je l'ai mentionné en dessous du premier.
Ok. Je le teste.
22/09/2018, 19h05
Mr l'Ashanti

le chargement de l'affichage web met du temps(45s) et à la fin rien, mais plutôt un message "vrai"