Bonjour à tous,

J'ai un nouveau problème mais j'avoue ne pas comprendre ce qui se passe.

Je me connecte à une base de données SQL Server. Ca fonctionnait encore très bien hier mais depuis aujourd'hui, la gestion des erreurs est très étrange.
dans ma chaine de connexion strCon, j'ai une IP, un user et un mdp. Lorsque j'essaye de me connecter avec ces mêmes infos via SQLDeveloper par exemple, j'y arrive bien mais via le bout de code vba excel, ça ne fonctionne pas. Le code err.number renvoyé est très étrange : -2147352565, de ce fait, il rentre dans le if Err.Number<>0 then
Par contre ce qui est encore plus étonnant est que si j'ajoute la ligne EcrireLogFile (CStr(Err.Number)) juste avant le if, là il rentre bien dans le else du if Err.Number <> 0 then

C'est à n'y plus rien comprendre.

Voici le code qui me pose problème aujourd'hui :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
'Connexion à une base de données SQLSERVER (bien sûr strCon est renseignée)
    cnDBWST.ConnectionTimeout = 15
    cnDBWST.ConnectionString = strCon
    ErreurConnexionBDDWST = False
    Continue = False
 
    On Error Resume Next
    cnDBWST.Open
    'EcrireLogFile (CStr(Err.Number))  => le Err.number vaut -2147352565 lorsque la connexion fonctionne mais POURQUOI ?? 
    If Err.Number <> 0 Then
      EcrireLogFile (Err.Description)
      EcrireLogFile (CStr(Err.Number))
      Err.Clear
    Else
        Continue = True
 
    end if
Il y a certainement une explication mais j'avoue que je ne trouve pas et je sèche.

Merci pour votre aide si vous voyez quelque chose.