vba incompatibilité liaison OBDC

1 pièce(s) jointe(s)

Bonjour,

Je rencontre un problème de liaison vraiment gênant entre une base de données MySQL et Excel. Voici en détails de quoi il ressort.

Environnement : Windows 10 x64 / Pack Office Pro Plus 2016 64 bits

Procédure suivie :

1. Installation : mysql-connector-odbc-5.2.6-win32.msi
Lancer le gestionnaire des sources de données ODBC

Démarrer / Tous les programmes / Outils d'administration / Sources de données ODBC (32 bits pour avoir MySQL ODBC)
Onglet "Sources de données utilisateurs"

Ajouter ...
Sélectionner MySQL ODBC 5.2 UNICODE Driver
Remplir les champs de la manière suivante :

Data Source Name : ######
Description : BDD ######
TCP/IP Server : ###.###.###.### Port : 3306
User : ####
Password : ####
Database : ##### (elle apparaît bien automatiquement dans le menu déroulant)
Clique sur Test pour vérifier la bonne connexion (connexion successful).
La source de données utilisateur ##### est créée (vérifier la plate-forme qui doit être en 32 bits)

2. On peut passer à la connexion de Excel pour l'importation des données depuis les tables de la base de données ####

Ouvrir un classeur vierge
Onglet "Données" / "Autres sources" / "Provenance : Microsoft Query"
Sélectionner dans l'onglet "Bases de données" : ####*
A ce stade elle n'apparaît pas ....

3. Ma requête SQL qui est fonctionnel se bloque au moment de l'initialisation de la connexion

Code:

cNx.ConnectionString = "DSN=" & NomDuDSN & ";UID=" & NomUtilisateur & ";PWD=" & MotDePasse & ";"

Pièce jointe 588508

Pour moi le problème vient de Excel 64 bits qui ne gère pas le lien OBDC en 32 bits .... y-a-t-il une solution ? cela fonctionnait sous ma version version Excel 2010

Merci d'avance pour vos réponses

Bonjour à tous,

Personne d'inspiré ? ou ayant eu un problème similaire ?

Cela pourrait-il venir d'une référence absente dans le VBA project ?

Paul.

Bonjour,
Ça a peut être évoluer selon la version MySQL !
ConnecSTRING = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & Server & ";UID=" & User & ";DATABASE=" & BASE & ";Password=" & Password

Merci Thumb down pour cette proposition mais cela ne fonctionne pas.

Je tente finalement d'établir une connection sans DSN puisque Excel ne trouve pas la base via cette formule, voici ce sur quoi je travaille :

Code:

cNx.ConnectionString = Driver={mysql};Server="XXX.XXX.XXX.XXX";Port="3306";Database="XXXX";Uid="XXXX";Pwd="XXXX";Option=16386;

Mais pour le moment le {mysql} ne passe pas.