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