bonjour

besoin d'aide SVP, la macro ci-dessous exporte des donnés vers des Tables SQL, quand le nom de la table n'as pas d'espace, elle fonctionne parfaitement, mais dans le cas contraire elle bloque, j'ai essayé les crochet [...] les apostrophe '...' et `...` mais rien ne marche

CA bloque sur la ligne rs.Open tableName, Cn, adOpenKeyset, adLockOptimistic



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
Sub Injection()
 
 
Dim Cn As ADODB.connection
Dim ServerName As String
Dim DatabaseName As String
Dim tableName As String
Dim UserID As String
Dim Password As String
Dim rs As ADODB.recordset
 
 
ServerName = "vmalsdisdb"
DatabaseName = "Produits"
tableName = "PRELEVEMENT PRODUIT"
UserID = ""
Password = ""
 
 
Set rs = New ADODB.recordset
 
 
Set Cn = New ADODB.connection
Cn.Open "Driver={SQL Server};Server=" & ServerName & ";Database=" & DatabaseName & _
";Uid=" & UserID & ";Pwd=" & Password & ";"
 
 
rs.Open tableName, Cn, adOpenKeyset, adLockOptimistic