Discussion :

[dp_favresa]

Bonjour,

Je désire connecter une base SQL via une macro Excel et ai déjà trouvé
la façon de le faire, voir code ci-dessous :

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
Private Sub CommandButton1_Click()
    Dim Cnx As New ADODB.Connection    ' ici erreur
    Dim Rst As New ADODB.Recordset
    ......
    Req1 = "select d.inputdate, cu.inv_name, c.sit_name, c.sit_town
    from ......
    Req2 = "where d.inputdate = " &.....    ' valeur retournée du form     
    Req1 = Req1 & " " & Req2
    Cnx.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial 
Catalog=Favre;Data Source=Serveur-corc"
    Range("A10000").Select
    Selection.End(xlUp).Select
    Rst.Open Req1, Cnx, adOpenKeyset
    ActiveCell.Offset(1, 0).CopyFromRecordset Rst
    Rst.Close: Set Rst = Nothing
    Cnx.Close: Set Cnx = Nothing
    Unload UserForm1
    Application.ScreenUpdating = True
End Sub

Problème, la macro ne passe pas le 1ère ligne et me sort un message
"Type défini par l'utilisateur non défini".

Pouvez-vous m'indiquer ce qui peut manquer dans la macro ou dans
l'environnement Excel, merci d'avance ??

Salutations. dp

[orafrance]

Sous Oracle il faut installer Object OLE... j'imagine que c'est le même principe pour tous les SGBD

[dp_favresa]

Voici ce qui m'a été proposé dans un autre forum :

Il me semble qu'il te faut dans ton projet faire référence à un bibilothèque
d'objets (dans Outils/Références) p.e. Microsoft ActiveX Data Objects 2.5 et
ca devrait le faire.

Cela fonctionne, merci.