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