relancer internet

[epaminondas]

Bonjour,

Je travaille sur une application qui plante parfois lors d'accés à internet ou en cours de traitement sur un intranet. Mon souci serait d'avoir une gestion d'erreur qui dirait dans un premier temps que l'accés a échoué ou a été interrompu et de relancer au point de départ (3 essais) et dans un deuxième temps de rééssayer plus tard.
Evidemment la difficulté, pour moi, est d'intercepter le message d'erreur qui est du type "objet requis ..."
Je dois avouer que d'autres parties de l'application m'usent, en ce moment, et que j'interpréterais une solution comme un signe des dieux.
Merci

 

[Roland_M]

Re : relancer internet

bonjour

pour pouvoir introduire un traitement d'erreur là où c'est nécessaire,
il faudrait avoir ton fichier !?

Roland

 

[MichelXld]

Re : relancer internet

bonsoir

Tu pourrais intégrer le code suivant dans ta procédure afin de vérifier le statut de connection :

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

bonne soirée
michel
Microsoft Excel MVP

 

[epaminondas]

Re : relancer internet

Bonjour,
Merci à tous deux pour vos interventions.
Je vais essayer la solution de Michel. je reviendrai vers vous et d'accord pour fournir le userform et le module concernés.
A +