connection via un userform

[Michel]

Bonjour le forum,
Je voudrais savoir comment activer ou désactiver la connection internet via un userform.
D'avance je vous remercie
@ plus
Michel

 

[albert]

bonsoir michel,
pour activer c'est simple.
pour désactiver, j'ignore comment faire

pièce jointe userform.zip

albert

 

[albert]

une autre solution

j'ai mis .RefreshPeriod = 1 ce qui met à jour le téléchargement toutes les minutes

pièce jointe userform1.zip

 

[STephane]

je pense que tu trouveras ton bonheur che fred
<http://perso.wanadoo.fr/frederic.sigonneau>

 

[Michel]

Bonsoir à tous et toutes,
Merci pour vos réponses, mais je recherche à activer et désactiver ma connection depuis un userform.
@ plus
Michel

 

[STephane]

eh bien oui on a bien compris

<http://perso.wanadoo.fr/frederic.sigonneau/Bricolos.htm>

 

[LaurentTBT]

Bonsoir à tous.

STéph, je crois que tu t'es trompé dans ton lien, c'est pas dans la page "Bricolos", mais dans la page "Excel" qu'il y a des macros:
- pour tester si la connexion est active ou non
- pour lancer ou stopper une connexion.

Lien supprimé

Et si ça passe, le lien directement vers la réponse attendue par Michel:
Lien supprimé

Je m'empresse d'ailleurs de tester tout cela.

Bonne soirée.
Laurent.

 

[schmail]

Bonsoir le forum

Cela fonctionne Laurent
voir PJ

@+ et bonne soirée

 

[Celeda]

Bonjour,

Merci Gilles pour la démo et STephane et Laurent pour les liens.

Mais chez moi cela ne fonctionne pas.

Ne serait-ce pas du à la wininnet.dll ? J'ai fait une recherche éventuellement sur mon pc et je n'ai rien trouvé.

????

J'essaie demain au bureau.

Celeda

 

[Myta]

Bonsoir le Forum

Celeda tu as une connection haute vitesse donc tu n'utilises pas un modem standard pour te connecter mais une carte Ethernet.

Dur de faire deconnecter le Modem ADSL de la ligne

Mytå

 

[Michel]

Bonjour à tous et toutes,
Encore merci, mais je suis comme Céléda ça ne marche pas, je suis sous WinXP et Office 2003.
@ plus
Michel

 

[LaurentTBT]

Bonjour à tous.

En effet, je n'y arrive pas non plus, et après une recherche dans l'API guide, la seule chose que je peux proposer à l'heure actuelle, c'est un petit test qui dit si on est connecté où pas (code à mettre en tête d'un module)

Private Const FLAG_ICC_FORCE_CONNECTION = &H1
Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Sub TestConnexion()
If InternetCheckConnection("http://www.excel-downloads.com/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then
MsgBox "Connecté", vbInformation
Else
MsgBox "Non connecté", vbInformation
End If
End Sub

faute de mieux, je vous souhaite une excellente journée.
Laurent.

 

[schmail]

Bonjour le forum,

Ma config
W98, XL2000, un modem ADSL Sagem et ça marche....
Pourquoi ? ba j'en sais rien désolé

@+ et bonne journée

 

[Celeda]

Bonjour,

Ah merci beaucoup Mytå , tu me rassures. On avait bien pensé à un truc dans ce genre avec Zon et lui aussi avait testé et cela ne fonctionnait pas non plus.

Et bien Gilles, tu es le plus chanceux.

Celeda

 

[LaurentTBT]

Bonjour à tous.

Juste une petite question, Schmail,
utilises-tu le kit de connexion Wanadoo? je me demande si ça ne vient pas de là.

Merci.
@+, Laurent.