Je ne m'y connais pas des masses en VBA mais je souhaite me transférer des données à un serveur web type MySQL ('mais pour commencer à un serveur local') via un code VBA sur Excel mais cela ne fonctionne pas et m'affiche toujours le même problème: "Erreur d'exécution '-214767259(80004005)' - [Microsoft][Gestionnaire de pilot ODBC]Source de donnée introuvable et nom spécifié "
La ligne surligné est :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Call OpenConnection.Open(connectionString)
J'ai déjà installer express et MySQL manager, ouvrer de nombreuse librairie.

Voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Function Connection()
   Dim source As String, location As String, user As String, password As String, mysql_driver As String, database As String
 
    source = "MySQL"
    location = "localhost"
    user = "root"
    password = ""
    database = "monsite"
    mysql_driver = "MySQL ODBC 5.2 ANSI Driver"
 
    'Build the connection string
    Dim connectionString As String
 
    connectionString = "Driver={" & mysql_driver & "};Server=" & location & ";Database=" & database & ";UID=" & user & ";PWD=" & password & ""
 
    'Create and open a new connection to the selected source
    Set OpenConnection = New ADODB.Connection
    OpenConnection.CursorLocation = adUseClient
    Call OpenConnection.Open(connectionString)
End Function
 
 
 
 
Sub Macro1()
connection
End Sub