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

**facteur** · 15/07/2019, 14h02

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

je précise que mes requetes SQL Server sont déjà créer dans SQl server management Studio.

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
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!

**Thumb down** · 16/07/2019, 12h39

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**facteur** · 13/08/2019, 15h35

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

**cavo789** · 13/08/2019, 21h13

Bonjour

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

Bonne soirée.

**facteur** · 16/09/2020, 15h15

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

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.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Nom : Capture.PNG
Affichages : 5906
Taille : 11,1 Ko

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

**mfoxy** · 16/09/2020, 18h39

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

**cavo789** · 16/09/2020, 20h37

Bonsoir

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.

Oui mais les miennes (par rapport aux tiennes) fonctionnent

. 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.

**Thumb down** · 18/09/2020, 12h17

bonjour,
c'est juste de la dialectique!
une vue ou un requête c'est la même chose sauf que dans Sql Serveur on parle de vue.
tu peut écrire ta vue comme la requête que j'ai donné au poste précédent.

**Thumb down** · 17/09/2020, 22h20

Voilà une requête parramtré
Select * from table WHERE debut=@debut And fin=@fin

**facteur** · 18/09/2020, 10h30

Bonjour Thumb
je sais créer une requêe sql paramétrée

Ma question est : peut on créer "une vue" dont la requête est paramétré

**Thumb down** · 21/09/2020, 13h29

Non il n'y aucune raison !

Une procédure stockée c'est très bien.

**Thumb down** · 17/09/2020, 13h49

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sql = "SELECT  * FROM SQL_requete1#sql]"

Tu peux écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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]

**Thumb down** · 17/09/2020, 15h41

Pourquoi tu n'as pas créer une vue dans SQL serveur ?

**Pierre Fauconnier** · 22/09/2020, 12h14

J'ai édité et complété ma réponse au message précédent...

**facteur** · 22/09/2020, 12h26

Pierre
Voici ma procédure stockée
Les variables date sont bien référencés en date ligne 26, 27 et 62

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
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
USE [Customer]
GO

/****** Object:  StoredProcedure [dbo].[SP_PlanTri_TPGD_V2]    Script Date: 22/09/2020 12:23:33 ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO


-- =============================================
CREATE PROCEDURE [dbo].[SP_PlanTri_TPGD_V2]
	-- Add the parameters for the stored procedure here
@VACATION_STS_ACTIVE     Int = 0x00000001 , -- Vacation active
@VACATION_STS_PAUSED     Int = 0x00000002 , -- Vacation suspendue
@VACATION_STS_STOPPING   Int = 0x00000004,  -- Vacation en cours d'arrêt
@VACATION_STS_ARCHIVED   Int = 0x00000008,  -- Vacation archivée

@EVENT_TYPE_INJECTION   Int = 0 , -- Injection
@EVENT_TYPE_SORTING    Int = 2 , -- Tri
@EVENT_TYPE_REJECT      Int = 34 ,-- Rejet

@systemNum int ='0' -- plan de tri TPGD

,@debut Date
,@fin Date
AS
BEGIN

	SET NOCOUNT ON;

 -- Insert statements for procedure here
	SELECT 

T.Num as TacheTri,
T.Intitule,
DebutPlage,
FinPlage,
coalesce(convert(varchar,(D.DisplayChute)),'') as ENTITE, 
coalesce(convert(varchar,(D.DescRegateCode)),'') as Destination,          
coalesce(convert(varchar,(D.SortingType)), '' )as SortingType      


from [archive].dbo.Vacation as V
inner join [archive].dbo.Tache as T
ON  V.IdTache=T.Id

INNER JOIN [archive].dbo.TableTri as TableTri
on T.Id = TableTri.IdTache and TableTri.Type =0 --Type =0 estla selection de la table de tri normale

INNER JOIN [archive].dbo.PlanTri as PlanTri
on TableTri.id= PlanTri.IdTableTri    
       
Inner join [archive].dbo.Chute C
on PlanTri.Sortie=C.Num


INNER JOIN [archive].dbo.dsc as D
on D.chute=C.num and D.Idtache=V.idtache --and D.SortingType='TG1'

where V.SystemNum=@systemNum and ([V].[Sts] & @VACATION_STS_ACTIVE) <>0 or V.debut BETWEEN @debut AND @fin

GROUP BY 

T.Num,
T.Intitule,
DebutPlage,
FinPlage,
coalesce(convert(varchar,(D.DisplayChute)),''),
coalesce(convert(varchar,(D.DescRegateCode)),'') ,
coalesce(convert(varchar,(D.SortingType)),'')


ORDER BY
DebutPlage

END

GO

**Thumb down** · 17/09/2020, 15h59

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?

Nom : Sans titre.png
Affichages : 5789
Taille : 22,7 Ko

Nom : Sans titre.png
Affichages : 5789
Taille : 22,7 Ko

**facteur** · 17/09/2020, 20h14

Thumb down
effectivement, je ne me suis jamais penché sur cette fonctionnalité de vue.
Je n'envoyais pas l'utilité jusqu'à aujourd'hui

Je vais donc m'y mettre mai j'aurais sans doute besoin d'un coup de main...

**Thumb down** · 17/09/2020, 20h19

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

Je vais donc m'y mettre mai j'aurais sans doute besoin d'un coup de main...

Une vue c'est l'équivalent d'une requête dans Access !

**facteur** · 17/09/2020, 21h39

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.

**facteur** · 17/09/2020, 21h45

je suis en train de parcourir des forum sur la création de vue en sql server et honnêtement je ne vois pas de difference entre une requête sql et une vue au niveau de l'architecture

Exécuter une requête SQL à partir d'une feuille Excel [XL-2016]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager