Echec de connection sur une base oracle par VBA

Bonjour,

Je suis en train de tenter de connecter une macro excel à une base de données oracle.

Quand je me connecte à cette base par sqldeveloper j'utilise les paramètres suivants et je n'ai aucun problème:

( j'anonymise les paramètres pour des raison de confidentialité )

Nom de connexion : ANONYMOUS
Nom utilisateur : anonLogin
Mot de passe : anonPwd
Nom de l'hote : xxxxx.anon.fr
Port : 1521
SID : anonSID

voila ce que j'écris dans ma MAcro

Sub toto()
Dim SQL_String As String
Dim dbConnectStr As String
Set con = New ADODB.Connection
Set recset = New ADODB.Recordset
dbConnectStr = "Provider=OraOLEDB.Oracle;" & _
" Data Source=(DESCRIPTION=(CID=GTU_APP)(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST= xxxxx.anon.fr)(PORT=1521)))(CONNECT_DATA=(SID=anonSID)(SERVER=DEDICATED)));User Id=anonLogin;Password= anonPwd;"

con.ConnectionString = dbConnectStr

con.Open dbConnectStr, consult, consult

MsgBox "Con state: " & GetState(con.State)

con.BeginTrans

recset.ActiveConnection = con

recset.Open "select 2+2 from dual;"

End Sub

La macro semble bien se connecter mais elle plante sur la dernière ligne.

J'arrive très bien à me connecter sur cette base par LibreOffice en utilisant la chaine de connexion que vous voyez dans le code. elle semble donc être bonne.

Je suis avec une base 11g

Quelqu'un aurait il une idée ?

Je vous remercie d'avance pour votre aide.