vba excel 2010 run-time error '3709'

Question

Bonjour

Une macro développée en VBA sous Excel 2003 avec connection à une base de données ne focntionne plus sous Excel 2010

j'ai le message suivant: run-time error '3709' The connection cannot be used to perform this operation. It is either closed or invalid in this context

Quelle manipulation dois je faire afin que cette macro fonctionne aussi sous Excel 2010. Merci

Le code de connection utilisé est le suivant:

 

Sub pc_OpenConnection()

 Dim strMs As String
 Dim strConnection As String
 Dim pilote As Variant
 Dim my_pilote As String
 Dim NAdd As String
 
    cl_UID = "TOTO"
    cl_PWD = "TATA"

   
On Error GoTo END_SUB
    Application.EnableCancelKey = xlDisabled

    ''' L'objet cnActive n'a pas été instancié
    If cnActive Is Nothing Then
        ' On instancie l'objet
        Set cnActive = New ADODB.Connection
    End If
    cnActive.ConnectionString = "DSN=SQLSERVER_PROD;UID=" & cl_UID & "; PWD=" & cl_PWD & ";"
    cnActive.Open
       
    Exit Sub

END_SUB:
                      
End Sub

Answer 1

Bonjour,

Une réponse à un cas similaire a été donnée ici :

http://social.msdn.microsoft.com/Forums/fr-FR/vbafr/thread/939c7a68-56a3-40f1-80f3-a6a283260484

Bonne journée

---

Argy