Test Connection ODBC

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

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
'------------------ AJOUT 
On error Goto connexionInactive
'------------------ FIN AJOUT 
QueryName.Connection = Connect
QueryName.Refresh
'------------------ AJOUT 
Exit Function
connexionInactive:
Msgbox "La connexion semble inactive"
'------------------ FIN AJOUT 
End Function

Ca marche (preque super bien), sauf que j'ai l'écran (capture1) puis au bout de quelques secondes l'écran (capture2), y-a-t'il moyen de ne pas voir ces ecrans?

Merci beaucoup de ton aide

capture1 capture2

Hm sauf erreur de ma part, le code que tu as transmis ne pas pas générer ces deux messages. il y a donc ailleurs dans le code une procédure qui se déclenche et qui affiche ces messages de connexion. Il faut donc d'abord trouver qu'es-ce qui entraîne leur affichage, avant de mettre une condition

Sans fichier ou code, je ne pourrais pas t'aider d'avantage.

Rien de plus dans le code, mais une connection ODBC/AS400 via windows

Ah, bon bah je passe la main je ne pourrais pas t'aider d'avantage désolé.

PS: Les deux fenêtres que tu montres ne ressemblent vraiment pas à des fenêtres Excel donc pour moi il y a quelque chose de plus

Aucun Userform (formulaire) dans le classeur qui correspondrait à ces fenêtres?

Bonjour,

Non aucun Usf dans mon code ne correspond aux fenêtres affichées.

merci beaucoup de ton aide

Rechercher des sujets similaires à "test connection odbc"