Creation d'un lien ODBC dans VBA

Salut a tous,

Je souhaiterais creer un lien ODBC par VBA dans Excel.

Voici mon code :

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Option Explicit
 
'Constant Declaration
Private Const ODBC_ADD_DSN = 1        ' Add data source
Private Const ODBC_CONFIG_DSN = 2     ' Configure (edit) data source
Private Const ODBC_REMOVE_DSN = 3     ' Remove data source
Private Const vbAPINull As Long = 0  ' NULL Pointer
 
'Function Declare
#If Win32 Then
 
    Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
    (ByVal hwndParent As Long, ByVal fRequest As Long, _
    ByVal lpszDriver As String, ByVal lpszAttributes As String) _
    As Long
#Else
    Private Declare Function SQLConfigDataSource Lib "ODBCINST.DLL" _
    (ByVal hwndParent As Integer, ByVal fRequest As Integer, ByVal _
    lpszDriver As String, ByVal lpszAttributes As String) As Integer
      #End If
 
 
Private Sub CommandButton1_Click()
 
Dim strDriver As String
Dim strAttributes As String
 
#If Win32 Then
    Dim intRet As Long
#Else
    Dim intRet As Integer
#End If
 
 
      'Set the driver to SQL Server because it is most common.
      strDriver = "SQL Server"
      'Set the attributes delimited by null.
      'See driver documentation for a complete
      'list of supported attributes.
      strAttributes = "SERVER=atlas" & Chr$(0)
      strAttributes = strAttributes & "DESCRIPTION=Test_map" & Chr$(0)
      strAttributes = strAttributes & "DSN=DSN_TEMP" & Chr$(0)
      strAttributes = strAttributes & "USER=crmtst" & Chr$(0)
      strAttributes = strAttributes & "DATABASE=CRM_1" & Chr$(0)
      'To show dialog, use Form1.Hwnd instead of vbAPINull.
 
      intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, _
      strDriver, strAttributes)
 
      MsgBox ("intRet = " + strAttributes)
      If intRet Then
          MsgBox "DSN Created"
      Else
          MsgBox "Create Failed"
      End If
 
End Sub

Comment specifier le USER ? Ca n'a pas l'air de fonctionner de cette maniere.
Est il possible de specifier le PASSWORD ?

MERCI D'AVANCE POUR VOS PRECISIONS

Mario