Connexion Sql Server

Bonjour à tous,

Je rafraichis dans une feuille Excel une liaison à une base de donnée Sql Server avec la ligne de code suivante :

Code:

---

1 2 3

'Refresh de la base On Error Resume Next Sheets("donnee").Range("B3").ListObject.QueryTable.Refresh BackgroundQuery:=False

---

Tout fonctionne très bien tant que la connexion est possible mais je n'arrive pas à gérer l'erreur quand la base est indisponible (quand je travaille chez moi en l'occurrence).

J'ai en effet l'affichage de cette boite de dialogue (si je la ferme tout continue correctement grâce à mon Resume Next)

Pièce jointe 164732

J'aimerais à la place un message d'erreur indiquant que la connexion est impossible puis la continuation de la macro.

Quelqu'un a une idée ?

Merci d'avance

Nicolas