Bonjour le forum,
Je fais de nouveau appel à vous, car je rentre un problème lorsque qu'un chemin externe est éxistant.
J'utilise le code ci-dessous :
Quand le chemin externe est éxistant, pas de problème tout fonctionne.
Par contre lorsque le chemin est inexistant, après un long moment j'obtient le message d'erreur 52...
Pour info, j'utilise un VPN pour accéder au chemin externe.
Je fais de nouveau appel à vous, car je rentre un problème lorsque qu'un chemin externe est éxistant.
J'utilise le code ci-dessous :
Code:
If Chemin <> "" Or Dir(Chemin, vbDirectory) <> "" Then
Application.Run "Enregistersous"
If Chemin = "" Or Dir(Chemin, vbDirectory) = "" Then
msga = MsgBox("Fichier non accessible, vérifier que le connexion Internet est Ok et que le VPN est UP", vbAbortRetryIgnore + vbCritical, "Accès au VPN")
Quand le chemin externe est éxistant, pas de problème tout fonctionne.
Par contre lorsque le chemin est inexistant, après un long moment j'obtient le message d'erreur 52...
Pour info, j'utilise un VPN pour accéder au chemin externe.