Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anomymousA
bonjour,
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.
A+
Bonjour, Je désire connecter une base SQL via une macro Excel et ai déjà trouvé ici-même la façon de le faire, voir code ci-dessous :
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 = ..... Req1 = Req1 & " " & Req2 Cnx.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalogúvre;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
bonjour,
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.
A+
Bonjour,
Je désire connecter une base SQL via une macro Excel et ai déjà trouvé
ici-même
la façon de le faire, voir code ci-dessous :
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 = .....
Req1 = Req1 & " " & Req2
Cnx.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial
Catalogúvre;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 ??
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.
A+
Bonjour, Je désire connecter une base SQL via une macro Excel et ai déjà trouvé ici-même la façon de le faire, voir code ci-dessous :
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 = ..... Req1 = Req1 & " " & Req2 Cnx.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalogúvre;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
dp_favresa
C'était bien ça, merci.
bonjour,
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.
A+
Bonjour, Je désire connecter une base SQL via une macro Excel et ai déjà trouvé ici-même la façon de le faire, voir code ci-dessous :
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 = ..... Req1 = Req1 & " " & Req2 Cnx.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalogúvre;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
C'était bien ça, merci.
bonjour,
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.
A+
Bonjour,
Je désire connecter une base SQL via une macro Excel et ai déjà trouvé
ici-même
la façon de le faire, voir code ci-dessous :
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 = .....
Req1 = Req1 & " " & Req2
Cnx.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial
Catalogúvre;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 ??
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.
A+
Bonjour, Je désire connecter une base SQL via une macro Excel et ai déjà trouvé ici-même la façon de le faire, voir code ci-dessous :
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 = ..... Req1 = Req1 & " " & Req2 Cnx.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalogúvre;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 ??
