Bonjour à tous,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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)

Nom : connexion.jpg Affichages : 183 Taille : 25,4 Ko

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