Exécuter une requête SQL à partir d'une feuille Excel

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour
Depuis quelques années, j'exécute des requêtes Access à partir d'une feuille Excel (cf code vba ci dessous). Et cela fonctionne à merveille.
Or depuis quelques temps, mes requêtes sont de plus en plus complexe et j'utilise donc non plus Access mais "SQl server management Studio" pour créer mes requêtes.
Or j'aimerais toujours pourvoir exécuter mes requêtes Sql à partir d'Excel mais mes connaissance ne sont pas aussi poussées.:(

Est il possible, de créer un code vba du même type que celui ci dessous où je ferais appelle non pas à une requête Access mais à une requête SQL Server :roll:
je précise que mes requetes SQL Server sont déjà créer dans SQl server management Studio.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Sub test()
 
Dim sql As String
Dim GenereCSTRING As String
Dim Debut As Object
 
Dim Fin As Object
Dim Cm As Object 'Pour utiliser une requête parametrés il faut utiliser l'oblet Command!
Dim cn As Object 'Pour ce connecter à un base de données Access il faut utiliser l'objet Connection!
Dim rs As Object
 
Dim i As Integer
 
Sheets("feuil1").Select
 
 
sql = "SELECT  * FROM requete" ' je détermine une requête sql qui pointe sur ta requête Acces."
 
 
Set cn = CreateObject("ADODB.Connection")
Set Cm = CreateObject("Adodb.Command")
  'MsgBox ThisWorkbook.Path
 GenereCSTRING = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=chemin\BaseDonnee_Access.accdb;;Persist Security Info=False" 'Je defini un chêne de texte qui contient les information de ma connection.
 
 
 
 cn.Open GenereCSTRING 'J'ouvre ma connection.
 
 
Cm.CommandText = sql 'je passe ma requête à mon objet command
Cm.ActiveConnection = cn 'j'affecte ma connection à ma commande
 
Const adDate = 7 'defini le type de parametre
 
 
Set Debut = CreateObject("ADODB.Parameter")
Debut.Name = "debut": Debut.Type = adDate: Debut.Value = CDate(Format(ThisWorkbook.Sheets("feuil2").Range("B97").Value, "yyyy-mm-dd hh:mm")): Cm.Parameters.Append Debut
 
Set Fin = CreateObject("ADODB.Parameter") 'c'est avec l'objet Parameter que je vais reseigner les parmetres de ma requête Access.
Fin.Name = "Fin": Fin.Type = adDate: Fin.Value = CDate(Format(ThisWorkbook.Sheets("Feuil2").Range("G97").Value, "yyyy-mm-dd hh:mm")): Cm.Parameters.Append Fin
 
 
 
Set rs = Cm.Execute 'on recupere le résultat de la requête.
 
 
With ThisWorkbook.Sheets("Feuil1")
 
 
     For i = 0 To rs.Fields.Count - 1 'On place le nom des champs sur la ligne 4 de ma feuille Excel
               .Range("A1").Offset(0, i) = rs(i).Name
     Next
 
        .Range("A2").CopyFromRecordset rs 'la on copie le résultat de la requête!

bonjour,

Code:

GenereCSTRING = "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server
Code:

1 2 3 sql = "SELECT * FROM Mytable where debut=?" Set Debut = CreateObject("ADODB.Parameter") Debut.Name = "debut": Debut.Type = adDate: Debut.Value = CDate(Format(ThisWorkbook.Sheets("feuil2").Range("B97").Value, "yyyy-mm-dd hh:mm")): Cm.Parameters.Append Debut

13/08/2019, 15h35
facteur

Bonjour Thumb down

J'étais en vacances , c'est pourquoi je n'aie pas pu répondre plutôt.;)
Merci pour ces lignes de codes.
je vais les tester et je reviens vers toi pour te tenir au courant 8-)
13/08/2019, 21h13
cavo789

Bonjour

Jette un œil à mon code OpenSource; il faut exactement ce que tu demandes : https://github.com/cavo789/vba_excel_sql

Bonne soirée.
16/09/2020, 15h15
facteur

1 pièce(s) jointe(s)

Bonjour
Je souhaiterais réouvrire ma discussion concernant l'exécution d'une requête sql server à partir d'une feuille Excel.
Je n'aie pas eu le temps ces derniers mois pour mettre en application la réponse de Thumb down. Je reviens donc à la charge 8-)

cavo789: j'ai ouvert ton lien et si je ne me suis pas trop penché sur tes lignes de code ; c'est que les lignes de codes envoyés Thumb down ressemblent à mes lignes de codes donc plus simple pour moi de m'y retrouver.:D

Thumb down:j'aimerais voir avec toi en détaille la ligne ci dessous que tu m'as envoyé

Code:

GenereCSTRING = "Provider=SQLOLEDB.1;Password=" & PassWord & ";Persist Security Info=True;User ID=" & User & ";Initial Catalog=" & Base & ";Data Source=" & Server

je bloque sur 4 paramétres où je ne sais pas quoi y insérer
Password ?
User ?
Base ?
Server ?

Voici ce que j'ai lorsque j'ouvre SQL server pour excécuter mes requêtes SQL( pour des raisons de confidentialité, j'ai changé certains parametres ;)
Pièce jointe 579388
Thumb down: comment insérer ces informations dans le bout de code que tu m'as envoyé
Les bases de données où se trouvent mes requêtes SQL sont dans deux base de données différentes : Archive et Customer
16/09/2020, 18h39
mfoxy

Bonjour,

Le plus simple, selon moi, pour récupérer des bases sql, access,... est power query.
Celui-permet même en amont de l'import d'effectuer bon nombre de traitement de type ETL, et ce sans aucune ligne de code.

Bat,
MFoxy
16/09/2020, 20h37
cavo789

Bonsoir

Citation:

Envoyé par facteur

cavo789: j'ai ouvert ton lien et si je ne me suis pas trop penché sur tes lignes de code ; c'est que les lignes de codes envoyés Thumb down ressemblent à mes lignes de codes donc plus simple pour moi de m'y retrouver.:D

Oui mais les miennes (par rapport aux tiennes) fonctionnent :D. C'est juste un clin d'oeil bien sûr mais oui, le code que je propose est prêt à l'emploi; faut juste lire la doc pour savoir comment utiliser le code.

Par rapport au query string ci-dessous; à priori, voici la réponse à ta question:

GenereCSTRING = "Provider=SQLOLEDB.1;Password=TON_PASSWORD;Persist Security Info=True;User ID=tintin;Initial Catalog=NOM_DE_TA_DB;Data Source=10.20.30.40.50

Bonne soirée.
17/09/2020, 09h21
Thumb down

Citation:

Envoyé par mfoxy

Bonjour,

Le plus simple, selon moi, pour récupérer des bases sql, access,... est power query.
Celui-permet même en amont de l'import d'effectuer bon nombre de traitement de type ETL, et ce sans aucune ligne de code.

Bat,
MFoxy

Bonjour,
power query implique de réécrire tout le programme !

Et si d'aventure le programme fait des insert, update et delete comment le gères tu avec power query?

power query c'est une sorte de tableau dynamique croisé rien à voir avec du SQL à exécution direct
17/09/2020, 12h04
facteur

Bonjour cavo789
Ma requête sql se nomme

Code:

SQL_requete1.sql

(c'est un exemple)
et lorsque je l'intègre
dans la ligne de code

Code:

sql = "SELECT * FROM SQL_requete1.sql

j'ai un message d'erreur qui s'affiche

Citation:

nom objet SQL_requete1.sql non valide
17/09/2020, 13h40
facteur

L'execution d'une table entière fonctionne trés bien avec le code

Code:

sql = "select * from dbo.parcel"

mais lorsque je souhaite executer une requete sql que j'ai crée , j'ai ce message d'erreur qui s'affiche

Citation:

nom objet SQL_requete1.sql non valide
17/09/2020, 13h49
Thumb down

Les points [.] Sont interdits dans une requête SQL il te faut remplacer le point par dièse [#]

Code:

sql = "SELECT * FROM SQL_requete1#sql]"

Tu peux écrire

Code:

dbo.[SQL_requete1#sql]"

Si ta requête est dans le schéma par défaut [dbo]

Le point représente une séparation entre les informations pertinentes !
[Base de Données].[Dbo].[Table].[Champ]
17/09/2020, 14h21
facteur

je suis en train de faire n'importe quoi :ptdr:
mes requete sql se trouve dans

Code:

C:\Users\nom\Documents\SQL Server Management Studio

Donc dans ce cas là, que faire ?????:lol::lol:
17/09/2020, 14h27
facteur

Thumb down, tes deux solutions ne fonctionnent pas.:(
Comme je l'aie écris plus haut, est ce c'est l'emplacement de mes requêtes sql qui posent problème ?
17/09/2020, 15h41
Thumb down

Pourquoi tu n'as pas créer une vue dans SQL serveur ?
17/09/2020, 15h42
facteur

J'ai compris l'erreur mais je n'arrive pas à trouver la solution.
Lorsque j'écris la requete en entière dans le code vba, le programme fonctionne très bien.
Le soucis vient lorsque j'essaie d'éxecuter la requête en l'appelant par son nom.:ptdr:

la grande question est: y a t il une écriture spécifique pour appeler une requête SQL dans vba
cette écriture ne fonctionne pas

Code:

sql = "SELECT *from SQL_requete1#sql"

merci d'avance de votre aide
17/09/2020, 15h59
Thumb down

1 pièce(s) jointe(s)

SQL_requete1.sql c'est un fichier qui contient ta requête mais ce n'e pas un vue!

tu ne sais pas créer des vue dan Sql manager?

Pièce jointe 579495
https://www.developpez.net/forums/im...AAAElFTkSuQmCC
17/09/2020, 20h14
facteur

Thumb down
effectivement, je ne me suis jamais penché sur cette fonctionnalité de vue.
Je n'envoyais pas l'utilité jusqu'à aujourd'hui :roll:
Je vais donc m'y mettre mai j'aurais sans doute besoin d'un coup de main...:mouarf:
17/09/2020, 20h19
Thumb down

Citation:

Envoyé par facteur

Thumb down
effectivement, je ne me suis jamais penché sur cette fonctionnalité de vue.
Je n'envoyais pas l'utilité jusqu'à aujourd'hui :roll:
Je vais donc m'y mettre mai j'aurais sans doute besoin d'un coup de main...:mouarf:

Une vue c'est l'équivalent d'une requête dans Access !
17/09/2020, 21h39
facteur

Thumb down
demain au boulot, j'essaie de céer une vue t je me permettrais de d'interpeler pour savoir si c'est bien cela.:roll:
17/09/2020, 21h41
Thumb down

Ok pas de problème

Voir 40 message(s) de cette discussion en une page