Discussion :

[Mr l'Ashanti]

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.

[patricktoulon]

re
bonjour
'solution 1°-

Code :

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

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 :

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

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 :

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

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
'---------------------------------------------------------------------------------------------------------------------------------

[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.

[Mr l'Ashanti]

Code :

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

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"

[Mr l'Ashanti]

Pat
Avec ce code

Code :

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

 application.dialogs(xldialogsaveas).show

est ce possible d'ajouter dir: c/.../onedrive?
Si oui comment procéder ? Merci

[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