extraction des données entre deux dates

Bonjour à tous,

je suis débutant en VBA j'ai réussi à effectuer la connexion avec ma bd Orale et même faire une extraction avec une requête simple(select * from ...) jusqu'à la tout va bien.
objectif :à partir de deux champs texte qui contiennent une date de début et une date de fin à saisir, exécuter une requête d'extraction des valeurs incluent entre ces deux dates .

j’espère d’être claire dans mes explications .

Cordialement

Bonsoir ACHRAF , La forum
Hypothèse :
en feuil1 des données : en colonne A les date et En colonne B les montant
en feuil2 tu saisi en B1 la date de départ et en B2 la date fin
pour obtenir le total des sommes entre ces deux date en B3 tu utilise ce code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Calculer() Dim Tablo Dim i As Long Tablo = Sheets("Feui1").Range("A2", "B" & Sheets("Feuil1").Range("B" & Rows.Count).End(xlUp).Row) For i = LBound(Tablo, 1) To UBound(Tablo, 1) If Tablo(i, 1) >= Sheets("feuil2").Range("B1") And Tablo(i, 1) <= Sheets("feuil2").Range("B2") Then resultat = resultat + Tablo(i, 2) End If Next i Sheets("feuil2").Range("B3") = resultat Application.ScreenUpdating = True End Sub

j'essaye de saisir les deux dates à partir d'une interface VB et non dans les champs de ma Feuil ??

Bonjour,
D'après la lecture de ta demande, il s'agit d'exporter des données suivant critères
La solution certainement à l'aide du filtre avancé d'excel (en VBA la méthode AdvancedFilter)
A lire le tutoriel Les filtres avancés ou élaborés dans Excel
A voir également Exporter des lignes suivant critères avec la méthode AdvancedFilter

S'il s'agit de faire la somme ou la moyenne ou d'autres agrégations suivant critères le principe est le même avec une zone de données et une zone des critères avec les fonctions de la catégorie Base de données (BDSOMME, BDMOYENNE, etc.)

Bonjour,
Ou et comment extrais tu ta requête?

si c'est dans VBA poste ton script SQL.

Citation:

et même faire une extraction avec une requête simple(select * from ...)

Code:

select * from [DateTable] where format([deb],'yyyy-mm-dd')=>'2017-02-23' and format([Fin],'yyyy-mm-dd')<='2017-05-23'

1 pièce(s) jointe(s)

on fait c'est ça ma requête (je sais qu'elle est un peu compliquée mais j'ai pas le choix), en exécutant cette requête il m'affiche une interface pour saisir date_début et date_fin après l'extraction se fait sous SQLDeveloper ,et maintenant je veux éviter cette étape et de la faire dès le début via une interface VBA comme j'ai mentionné au début dans ma question :
requête :
Pièce jointe 247792

Code:

1
2
set Rs=Conx.execute(Sql) 'Exécution de la requête via ta connection
ActiveCell.CopyFromRecordset Rs

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
sql="SELECT DRI_ACC.DRI_CODE," & vbCrLfSql=sql & "      DRI_ACC.DRI_LINK," & vbCrLf
Sql=sql & "      DRI_REF.DRI_SEC_SETTLT_SYST_REF AS REF_GSP," & vbCrLf
Sql=sql & "      DRI_ACC.DRI_CLIENT_REF AS REF_CLIENT," & vbCrLf
Sql=sql & "      SCO.SCO_CODE AS ISIN," & vbCrLf
Sql=sql & "      SCO.SCO_NAME AS LIB_ISIN," & vbCrLf
Sql=sql & "      DRI_ACC.DEP_CODE," & vbCrLf
Sql=sql & "      DEP.DEP_NAME," & vbCrLf
Sql=sql & "      DRI_ACC.SAC_CODE," & vbCrLf
Sql=sql & "      SAC.SAC_NAME," & vbCrLf
Sql=sql & "      DRI_ACC.STS_CODE," & vbCrLf
Sql=sql & "      (SELECT ICO_CODE FROM ITL_CONTEXT WHERE IL_LNG_ID = '001' AND ICO_PSEUDO = DRI_ACC.IL_CTX_ID) AS CONTEXTE," & vbCrLf
Sql=sql & "      to_char(PFC_54X.DATE_CREATION, 'YYYY/MM/DD HH24:MI:SS')AS DATE_CREATION_PFC_54X," & vbCrLf
Sql=sql & "      to_char (PFC_54X.DATE_MODIFICATION,'YYYY/MM/DD HH24:MI:SS')AS DATE_MODIF_PFC_54X," & vbCrLf
Sql=sql & "      to_char (DRI_ACC.DRI_CREATE_DATE,'YYYY/MM/DD HH24:MI:SS' )AS DATE_CREATION_SIB," & vbCrLf
Sql=sql & "      to_char (DRI_EV.DRI_INPUT_DATE,'YYYY/MM/DD HH24:MI:SS') AS DATE_EV_SIB," & vbCrLf
Sql=sql & "      to_char (DRI_ACC.DRI_INPUT_DATE,'YYYY/MM/DD HH24:MI:SS' )AS DATE_ACQ_SIB," & vbCrLf
Sql=sql & "      to_char (PFC_548.DATE_CREATION,'YYYY/MM/DD HH24:MI:SS' )AS DATE_CREATION_PFC_548," & vbCrLf
Sql=sql & "      to_char (PFC_548.DATE_MODIFICATION,'YYYY/MM/DD HH24:MI:SS') AS DATE_ACQ_PFC_548," & vbCrLf
Sql=sql & "     to_char (PFC_54X.DATE_MODIFICATION - PFC_54X.DATE_CREATION)* 86400 AS TRAITEMENT_PFC," & vbCrLf
Sql=sql & "     to_char (DRI_EV.DRI_INPUT_DATE - PFC_54X.DATE_MODIFICATION)* 86400 AS TRAITEMENT_SIB," & vbCrLf
Sql=sql & "     to_char (DRI_ACC.DRI_INPUT_DATE - DRI_EV.DRI_INPUT_DATE)* 86400 AS DELAI_ALLER_RETOUR_T2S," & vbCrLf
Sql=sql & "     to_char (PFC_548.DATE_MODIFICATION - DRI_EV.DRI_INPUT_DATE)* 86400 AS DELAI_1ER_548," & vbCrLf
Sql=sql & "     to_char (PFC_548.DATE_MODIFICATION - PFC_54X.DATE_CREATION)* 86400 AS DELAI_TOTAL_548" & vbCrLf
Sql=sql & " FROM PFCMSGH PFC_54X, PFCMSGH PFC_548, DRI_HISTO DRI_ACC, DRI_HISTO DRI_EV, DEPOSITARY DEP, SECURITIES_ACCOUNT SAC, DRI_HISTO DRI_REF, SECURITY_CODIF SCO" & vbCrLf
Sql=sql & " WHERE 1=1" & vbCrLf
Sql=sql & " AND (DRI_ACC.dri_create_date >= TO_DATE(:date_deb_DDMMYYYY,'DDMMYYYY')" & vbCrLf
Sql=sql & " AND DRI_ACC.dri_create_date < TO_DATE(:date_fin_DDMMYYYY,'DDMMYYYY'))" & vbCrLf
Sql=sql & " AND PFC_54X.ID = (SELECT MIN(ID) FROM LIEN_MESSAGE WHERE LME_APP_CODE = DRI_ACC.DRI_CODE||DRI_ACC.DRI_LINK AND IL_APP_ID = '001' AND IC_LME_SENS = '001')" & vbCrLf
Sql=sql & " AND PFC_54X.IL_PFS_ID = '075'" & vbCrLf
Sql=sql & " AND SAC.SAC_CODE = DRI_ACC.SAC_CODE AND SAC.SAC_BAK_CODE = DRI_ACC.SAC_BAK_CODE" & vbCrLf
Sql=sql & " AND DRI_ACC.SEC_CODE = SCO.SEC_CODE AND SCO.COF_CODE = 'ISIN'" & vbCrLf
Sql=sql & " AND DRI_ACC.DEP_CODE = DEP.DEP_CODE" & vbCrLf
Sql=sql & " AND PFC_548.ID = (SELECT MIN(ID) FROM LIEN_MESSAGE WHERE LME_APP_CODE = DRI_ACC.DRI_CODE||DRI_ACC.DRI_LINK AND IL_APP_ID = '001' AND IL_REP_ID IN ('193','194','195','198','201') AND LME_CREATION_DATE >= DRI_ACC.DRI_INPUT_DATE)" & vbCrLf
Sql=sql & " " & vbCrLf
Sql=sql & " AND PFC_548.IL_PFS_ID = '040'" & vbCrLf
Sql=sql & " " & vbCrLf
Sql=sql & " AND DRI_ACC.DRI_INPUT_DATE = (SELECT MIN(DRI_INPUT_DATE) FROM DRI_HISTO DRI_MIN WHERE DRI_MIN.DRI_CODE = DRI_ACC.DRI_CODE AND DRI_MIN.DRI_LINK = DRI_ACC.DRI_LINK AND DRI_MIN.IL_STA_ID = '009')" & vbCrLf
Sql=sql & " AND DRI_ACC.IL_STA_ID = '009'" & vbCrLf
Sql=sql & " AND DRI_REF.DRI_CODE = DRI_ACC.DRI_CODE AND DRI_REF.DRI_LINK = DRI_ACC.DRI_LINK" & vbCrLf
Sql=sql & " AND DRI_REF.DRI_INPUT_DATE = (SELECT MIN(DRI_INPUT_DATE) FROM DRI_HISTO DRI_MIN WHERE DRI_MIN.DRI_CODE = DRI_ACC.DRI_CODE AND DRI_MIN.DRI_LINK = DRI_ACC.DRI_LINK AND DRI_MIN.DRI_SEC_SETTLT_SYST_REF IS NOT NULL)" & vbCrLf
Sql=sql & " AND DRI_EV.DRI_CODE = DRI_ACC.DRI_CODE AND DRI_EV.DRI_LINK = DRI_ACC.DRI_LINK" & vbCrLf
Sql=sql & " AND DRI_EV.DRI_INPUT_DATE = (SELECT MIN(DRI_INPUT_DATE) FROM DRI_HISTO DRI_MIN WHERE DRI_MIN.DRI_CODE = DRI_ACC.DRI_CODE AND DRI_MIN.DRI_LINK = DRI_ACC.DRI_LINK AND DRI_MIN.IL_STA_ID = '012')" & vbCrLf
Sql=sql & " AND DRI_EV.IL_STA_ID = '012'" & vbCrLf
Sql=sql & " AND NOT EXISTS (SELECT NULL FROM DRI_HISTO WHERE DRI_CODE = DRI_ACC.DRI_CODE AND IL_STA_ID IN ('001','007')" & vbCrLf
Sql=sql & " UNION SELECT NULL FROM DRI_HISTO_RECENT WHERE DRI_CODE = DRI_ACC.DRI_CODE AND IL_STA_ID IN ('001','007'))" & vbCrLf
Sql=sql & " AND TRUNC(PFC_54X.DATE_MODIFICATION) = TRUNC(PFC_548.DATE_CREATION) " & vbCrLf
Sql=sql & " AND DRI_ACC.STS_CODE = 'T2S';" & vbCrLf
Sql=sql & " select count(*)," & vbCrLf
Sql=sql & "       substr(to_char(dri_create_date, 'YYYY/MM/DD HH24:MI:SS'), 12, 2) AS HOURS," & vbCrLf
Sql=sql & "       substr(to_char(dri_create_date, 'YYYY/MM/DD HH24:MI:SS'), 15, 2) AS MINUTES," & vbCrLf
Sql=sql & "       trunc(dri_create_date), " & vbCrLf
Sql=sql & "       (SELECT ICO_CODE||' - '||ICO_NAME  FROM ITL_CONTEXT WHERE IL_LNG_ID = '001' AND ICO_PSEUDO = DRI.IL_CTX_ID) AS CONTEXTE," & vbCrLf
Sql=sql & "       (SELECT IOC_CODE||' - '||IOC_NAME FROM ITL_OPERATION_CODE WHERE IL_LNG_ID = '001' AND IOC_PSEUDO = DRI.IL_OPC_ID) AS CODE_OPE," & vbCrLf
Sql=sql & "       DRI.DEP_CODE, DEP.DEP_NAME," & vbCrLf
Sql=sql & "       DRI.STS_CODE" & vbCrLf
Sql=sql & " FROM DRI_HISTO DRI, DEPOSITARY DEP" & vbCrLf
Sql=sql & " WHERE 1=1" & vbCrLf
Sql=sql & " AND DRI.IL_STA_ID IN ('003','008')" & vbCrLf
Sql=sql & " AND DRI.DEP_CODE = DEP.DEP_CODE" & vbCrLf
Sql=sql & " AND DRI.dri_create_date >= TO_DATE(:date_deb_DDMMYYYY,'DDMMYYYY')" & vbCrLf
Sql=sql & " AND DRI.dri_create_date < TO_DATE(:date_fin_DDMMYYYY,'DDMMYYYY')" & vbCrLf
Sql=sql & " group by" & vbCrLf
Sql=sql & "       substr(to_char(dri_create_date, 'YYYY/MM/DD HH24:MI:SS'), 12, 2)," & vbCrLf
Sql=sql & "       substr(to_char(dri_create_date, 'YYYY/MM/DD HH24:MI:SS'), 15, 2)," & vbCrLf
Sql=sql & "       trunc(dri_create_date), " & vbCrLf
Sql=sql & "       DRI.IL_CTX_ID," & vbCrLf
Sql=sql & "       DRI.IL_OPC_ID," & vbCrLf
Sql=sql & "       DRI.DEP_CODE," & vbCrLf
Sql=sql & "       DEP.DEP_NAME," & vbCrLf
Sql=sql & "       DRI.STS_CODE;"

1 pièce(s) jointe(s)

j'ai eu l'erreur suivant :
Pièce jointe 247802

Bonjour ,

après une nuit de recherche j'arrive pas à trouver une une solution à cette erreur , any help please ??

cdt