XL 2016 Connecteur ODBC MySQL driver 8.0 introuvable

[luxpoker]

Bonjour à tous,
J'ai une base MySQL sur un NAS Synology.
Je souhaite pouvoir écrire des macros en VBA pour accéder à cette base de données automatiquement.
Cela fonctionne si je passe par le menu Données - obtenir des données - A partir d'autres sources.

Par contre cela ne fonctionne pas dans VBA car le driver ODBC est introuvable.

J'ai suivi la méthode en utilisant le module MySQL MySQL :: Download Connector/ODBC

Dans les sources de données, je retrouve mon lien ODBC

Mais dans VBA, rien du tout.
Comment puis je l'y ajouter ?

Merci beaucoup à vous tous,
Stéphane

 

[dysorthographie]

Bonsoir,
Connexion en vba

Set Cn = CreateObject("ADODB.Connection")
Cn.Open "
Driver={MySQL ODBC 8.0 ANSI Driver};Server=ServeurName;Database=myDataBase;
User=myUsername;Password=myPassword;Option=3;"

 

[luxpoker]

Bonjour,

Je te remercie pour le temps consacré à ta réponse.
MOn code est quasiment le même excepté Option=3 (j'ai quand même essayé de le mettre et cela ne fonctionne pas.



Dim con As ADODB.Connection
Set con = New ADODB.Connection

Dim strConn As String

strConn = "Driver={MySQL ODCB 8.0 Unicode Driver};SERVER=192.168.178.118:3307;DATABASE=courses;USER=Stephane;PASSWORD=xxxxxx"

con.Open strConn


A la dernière instruction, il me met le message d'erreur suivant :

D'après ce que j'ai lu c'est parce que je dois avoir dans le menu references de VBA les drivers qui s'affichent alors que ce n'est pas le cas.
Je n'arrive pas à les installer.

 

[Hasco]

Bonjour,

A tout hasard votre version office (excel) est-elle en 64bits ou 32bits ? Si 32bits, drivers 32bits.

cordialement

 

[luxpoker]

Les deux sont en 64 bits. Mais merci de l'info, j'avais chécké ce point suite à une information trouvée sur un site.

 

[luxpoker]

Bon j'ai trouvé.
Dans mon code, j'ai remplacé MySQL ODBC 8.0 Unicode Driver par MySQL ODBC 8.0 ANSI Driver

En fait j'ai pas suffisamment lu l'aide de @dysorthographie

 

[luxpoker]

Bonsoir,
Connexion en vba

Set Cn = CreateObject("ADODB.Connection")
Cn.Open "
Driver={MySQL ODBC 8.0 ANSI Driver};Server=ServeurName;Database=myDataBase;
User=myUsername;Password=myPassword;Option=3;"

Merci
J'aurai du vous faire confiance plus tôt

 

[dysorthographie]

C'est pas grave surtout avec MySQL selon les versions ça marche pas forcément !