Discussion :

[Daranc]

Bonjour
Question comment passer un argument à MSQUERY ?
le problème est le suivant mois par mois nous faisons une analyse de la production d'un atelier la requête d'extraction des données se cale sur la date de début de mois en limite basse et sur le début du mois suivant en limite haute avec une donnée de ce type '01/mm/aaaa 00:00:00' .
je serais intéressé par le moyen d'entrer ces deux date dans deux cellules d'excel afin qu'elle interviennent directement dans le Query
Merci

[Maljuna Kris]

Saluton,
Sans vouloir me montrer le moins du monde désobligeant, quel est le rapport avec ce forum dédié aux requêtes MySQL ?

[Daranc]

la requête attaque une base MySQL
à la base

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
SELECT ARCH_TEMPS.CODE_OF, 
ARCH_TEMPS.CODE_ARTI, 
ARTICLE.DESI_ARTI, 
ARCH_TEMPS.CODE_MACH, 
ARCH_TEMPS.CODE_OPER, 
DECLARATION_REBUT.CODE_REBU, 
REBUT.DESI_REBU, 
ARCH_TEMPS.QUAN_BONN, 
ARCH_TEMPS.QUAN_REBU, 
ARTICLE.COUT_UNIT
FROM  BASE.dbo.ARCH_TEMPS ARCH_TEMPS,  BASE.dbo.ARTICLE  BASE, BASE.dbo.DECLARATION_REBUT DECLARATION_REBUT,  BASE.dbo.REBUT REBUT
WHERE ARCH_TEMPS.CODE_OF = DECLARATION_REBUT.CODE_OF 
AND ARCH_TEMPS.CODE_ARTI = ARTICLE.CODE_ARTI 
AND ARCH_TEMPS.CODE_ARTI = DECLARATION_REBUT.CODE_ARTI 
AND ARCH_TEMPS.CODE_OPER = DECLARATION_REBUT.CODE_OPER 
AND ARCH_TEMPS.DATE_CALE = DECLARATION_REBUT.DATE_CALE 
AND ARCH_TEMPS.CODE_EQUI = DECLARATION_REBUT.CODE_EQUI 
AND ARCH_TEMPS.CODE_MACH = DECLARATION_REBUT.CODE_MACH 
AND ARCH_TEMPS.CODE_OUTI = DECLARATION_REBUT.CODE_OUTI 
AND ARCH_TEMPS.MATR = DECLARATION_REBUT.MATR 
AND ARTICLE.CODE_ARTI = DECLARATION_REBUT.CODE_ARTI 
AND DECLARATION_REBUT.CODE_REBU = REBUT.CODE_REBU 
AND ((ARCH_TEMPS.CODE_ATEL='9998') 
AND (ARCH_TEMPS.DATE_CALE>{ts '2008-09-01 00:00:00'} 
AND ARCH_TEMPS.DATE_CALE<{ts '2008-10-01 00:00:00'}) 
OR (ARCH_TEMPS.CODE_ATEL='9998F') 
AND (ARCH_TEMPS.DATE_CALE>{ts '2008-09-01 00:00:00'} 
AND ARCH_TEMPS.DATE_CALE<{ts '2008-10-01 00:00:00'}))

ce que je veux passer en paramètre depuis le fichier Excel c'est {ts '2008-09-01 00:00:00'} ou juste 2008-09-01 là dessus je ne sais pas comment marche exactement les requêtes SQL

[Maljuna Kris]

Déjà, en modifiant légèrement tes valeurs temporelles, tu pourrais utiliser la syntaxe

Code :

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

1
2
ARCH_TEMPS.DATE_CALE 
BETWEEN {ts '2008-09-01 00:00:01'} AND {ts '2008-09-30 23:59:59'}

Ceci dit, ce post n'est sûrement pas sur le bon forum.
Tu devrais t'adresser à des connaisseurs de MS QUERY

[Daranc]

il y a un moment que j'en cherche
apparemment soit on est un SQListe pur et dur soit un MSQUERYste occasionnel (comme moi)
bon je vais rebalayez le NET à la recherche de renseignements
Salut et merci

[Maljuna Kris]

Effectivement, c'est pas gagné.
C't'idée aussi d'utiliser un truc aussi 'exotique'

[Daranc]

si si c'est gagné
avec msquery
la base de données est ciblèe
les tables sont ouverte en haut
pour paramétrer la requete je rentre normalement les condition concernant le filtre par atelier
deux conditions ce qui dans MS query me balance deux lignes en face des quelles j'ai les quatre paramètres de dates (début et fin pour chaque choix d'ateliers)
à la place de la date de début fin du premier atelier " >#01/08/2008# et <#01/09/2008#" je tape >[début] et < [fin]
je copie CtrlC et au moment de Ctrlisé dans la ligne du dessous le programme me demande les valeurs de chacun de deux paramètres
je retermine dans la deuxième ligne et je renvoie vers Excel
la suite est plus Excelienne
je repère deux cellules qui vont porter mes paramètres
C1 et C2
dans le code de la feuille

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Target.Address = [c2].Address Or _
     Target.Address = [c4].Address Then
 
     Dim P1 As Parameter
     Dim P2 As Parameter
     With Worksheets("Feuil1").QueryTables(1)
         Set P1 = .Parameters(1)
         Set P2 = .Parameters(2)
         P1.SetParam xlRange, Range("Feuil1!c2")
         P2.SetParam xlRange, Range("Feuil1!c3")
         .Refresh BackgroundQuery:=False
     End With
 End If
 End Sub

puis dans la requête clic droit
dans les options de requête j'indique ou sont les cellules qui contiennent les valeurs à passer à la requête il y a un champ de saisie et deux boutons d'option par critères
après ça il y a encore un truc pour les formules à droite de la requête sur le comportement de la requête et sur les formats ( une paire de béquilles complètes 'deux quoi')
et après coup n'importe qui peut s'en servir il suffit de change les dates (et de confirméer la mise en automatique à l'ouverture du fichier)

[Maljuna Kris]

Content que tu aies pu aboutir, mais je ne vois pas en quoi ce forum MySQLien aurait pu t'aider pour tout cela.
Peux-tu marquer le post comme résolu, STP.
Amike.

[Daranc]

effectivement le post est résolu mais je ne trouve pas le Tag
Ha si maintenant je l'ai eu