Création d'une source de donnée ODBC

Bonjour
Je cherche a créer automatiquement une source de donnée ODBC a partir d'une macro d'un outil sur excel. Car sinon je dois faire du post a post pour configurer les source de donnée à la main. J'ai cherché un code pour le faire mais il ne semble pas correct. Pourrirez vous m'aider sur ce problème?

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub RegDB() Dim strDSN As String, strAttr As String, strODBCDrv As String   strDSN = "MySQL_testdb" strODBCDrv = "MySQL ODBC 3.51 Driver" strAttr = "SERVER=NomDuServeur" & vbCr & "DATABASE=testdb" & vbCr & "OPTION=3" & vbCr & "UID=NomUtilisateur"   DBEngine.RegisterDatabase strDSN, strODBCDrv, True, strAttr   End Sub

---

Je pense qu'il est indispensable d’ajouter les références suivantes : Microsoft DAO 3.6 Object Library et Microsoft ActiveX Data Objects 2. Il faut procéder de la façon suivante : dans l’éditeur Visual Basic, se rendre dans le menu Outils->Références… puis cocher les références.