Exib sub si erreur pour accéder au fichier distant

bonjour le forum,

je sollicite votre aide pour resoudre une difficullté que je n'arrive pas à contourner :

If Err Then
       Exit Sub
MsgBox "Pas de Connexion Réseau", vbInformation, "Connectez vous et Réessayez"
   Else
Workbooks.Open Filename:="G:\Service.............................................2020.xlsx", ReadOnly:=True

le fichier distant n'est pas toujours disponible et je souhaiterais que dans ce cas le reste du code ne s'exécute pas du tout.

j'ai essayé avec ceci

On Error GoTo suite
Workbooks.Open Filename:="G:\Service............................................ 2020.xlsx", ReadOnly:=True
    'la suite du code
     Exit Sub
suite: MsgBox "Pas de Connexion Réseau", vbInformation, "Connectez vous et Réessayez"

mais là aussi le code ne s'arrête pas net s'il y a impossibilité d'ouvrir le fichier, il s'exécute à moitié.

merci pour vos éclairages et votre aide svp.

Pedro Dudesson

BOnjour

je ferrais un essai du genre

on error resume next 
Workbooks.Open Filename:="G:\Service............................................ 2020.xlsx", ReadOnly:=True
if Err.Number <> 0 then 
MsgBox "Pas de Connexion Réseau", vbInformation, "Connectez vous et Réessayez"
Exit Sub
end if 
on error goto 0
'la suite du code 

reste a savoir quelle est l'erreur quand le fichier n'est pas disponible et pourquoi il n'est pas disponible...

Fred

Bonjour le forum,

Sir @Fred2406, vous avez répondu à ma préoccupation de façon nette et précise.

c'est exactement ce que je cherchais.

merci bcp.

Pedro.

Merci du retour

Bonne continuation

Fred