Discussion :

[themummy]

Bonjour,
je veut tout simplement ne pas répéter ce bloc de code:

Code :

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

1
2
3
4
ObjMyRecordSet.Close
strSQL31 = "select SUM(MONTANT_ttc) from STK_VENTE_Directe where ((Date_MVT > '01/10/2012') And (Date_MVT < '02/10/2012') And NUM_MAGASIN = 1)"
ObjMyRecordSet.Open strSQL31
ActiveSheet.Range("C33").CopyFromRecordset (ObjMyRecordSet)

Les variables qui changent est:
- strSQL (de 1 a 31)
-'01/10/2012' (incrémenter le jour de 1 a 31)
-'02/10/2012' (incrémenter le jour de 2 a 31)
-ActiveSheet.Range("C33") 'incrémenter les cellules pour affecter les resultats

j'ai essayer avec ce code mais sa marche pas du tout je suis perdu^^

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
For i = 1 To 20
    For j = 1 To 20
     For k = 2 To 21
       For l = 1 To 22
ObjMyRecordSet.Close
strSQLi = "select SUM(MONTANT_ttc) from STK_VENTE_Directe where ((Date_MVT > '" & j & "/10/2013') And (Date_MVT < '" & k & "/10/2013') And NUM_MAGASIN = 15)"
Set ObjMyRecordSet.ActiveConnection = objmyconn
ObjMyRecordSet.Open strSQLi
ActiveSheet.Range("H" & l).CopyFromRecordset (ObjMyRecordSet)
     Next l
    Next k
   Next j
Next i

Merci de vos efforts

[themummy]

Bon j'ai résolu mon problème voici la solution si quelqu’un tombe dans la même situation:

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
NbJourMois = 31
j_Deb = 1
j_Fin = 2
 
For j = 3 To NbJourMois
 
 ' Requête :
  ObjMyRecordSet.Close
 strSQL = "select SUM(MONTANT_ttc) from STK_VENTE_Directe where ((Date_MVT > '" & j_Deb & "/10/2013') And (Date_MVT < '" & j_Fin & "/10/2013') And NUM_MAGASIN = '" & numag_2013 & "')"
 Set ObjMyRecordSet.ActiveConnection = objmyconn
 ObjMyRecordSet.Open strSQL
 ' copie de la valeur
 ActiveSheet.Range("H" & j).CopyFromRecordset (ObjMyRecordSet)
 
 ' On passe aux jours suivants
 j_Deb = j_Deb + 1
 j_Fin = j_Fin + 1
Next