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