XL 2013 Gérer une erreur de Mise a Jour d'une Base SQL

Bonjour,

Je dois interroger une base SQL régulièrement, sauf que cette base n'est plus disponible à partir d'une certaine heure la nuit.

Je me retrouve le matin avec une erreur 1004 qui me plante l'exécution de la macro.

Est-il possible de la gérer afin d'arrêter la macro et fermer Excel lorsque cette erreur surgit ?

Voici mon code ci-dessous :

Sub MAJ_BDD
On Error Resume Next
nbr_connect = ThisWorkbook.Connections.Count
For i = 1 To nbr_connect
ThisWorkbook.Connections(i).OLEDBConnection.BackgroundQuery = False
nom_connect = Replace(ThisWorkbook.Connections(i).Name, "Requête", "")
Application.StatusBar = "MAJ_BDD " & i & " / " & nbr_connect & " | " & nom_connect
Application.Wait (Now + TimeValue("0:00:02"))
ThisWorkbook.Connections(i).Refresh
Next
End Sub

Par avance, Merci

Titof06