Tester une Connection

Bonjour,

dans un des codes de mon fichier, j'ai une fonction qui rafraichi une requete msquery a l'activation de la feuille

Function f_RefreshQuery(Ws As String)

Dim Connect

Dim Server

Dim Base

Dim Login

Dim Password

Dim QueryName As QueryTable

Server = "ODBC"

Base = "Nom DSN"

Login = "Utilisateur"

Password = "Mot de passe"

Set QueryName = Worksheets(Ws).ListObjects.Item(1).QueryTable

Connect = Server & ";DSN=" & Base & ";uid=" & Login & ";pwd=" & Password

QueryName.Connection = Connect

QueryName.Refresh

End Function

Par contre, lorsque je bosse sur ce fichier hors de ma société, j'ai une erreur, comment puis-je eviter cela? avec par exemple, lorsque la connection ne se fait pas, un msgbox indiquant que la connection est inactive.

Merci