Lecture de données Oracles avec ADO dans Excel

[ludo27]

Bonjour,
j'essaie de lire des données d'une base Oracle avec le script suivant :

Private Sub CnxOracle()
	'Ajouter référence Microsoft ActiveX pour pouvoir utiliser Objets ADO
 
	'Déclaration de la variable de connexion
	Dim cnx As ADODB.Connection
	Set cnx = New ADODB.Connection
 
	Dim StConnectionString As String
 
	'Définition de la chaîne de connexion
	StConnectionString="Provider=OraOLEDB.Oracle;Data Source=XXXXXXXX.WORLD=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=YY.YY.YY.YY)(PORT=ZZZZ))(CONNECT_DATA=(SERVICE_NAME=XXXXXXXX)));User Id=MyId;Password=MyPwd;"
	cnx.ConnectionString = StConnectionString
 
	'Ouverture de la base de données
	cnx.Open
 
	'Fermeture de la base de données
	cnx.Close
 
End Sub

J'obtiens l'erreur :

ORA-12154: TNS ; l'identificateur de connexion indiqué n'a pas pu être résolu

à l'exécution de la ligne :

cnx.Open

Je peux par ailleurs me connecter normalement à la base avec Toad.

Si quelqu'un a une idée, je suis preneur.

Merci.