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 :
Problème, la macro ne passe pas le 1ère ligne et me sort un message
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
"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
Partager