Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

relancer internet

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion epaminondas
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

epaminondas

Guest
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
 
Trier par date Trier par votes
Re : relancer internet

bonsoir

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


Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
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 +
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…