[VBA/SQL] Incrémenter une date

Tu dois construire le texte de ta requete SQL dans le programme VBA.
exemple de logique :
dim sql as string
dim debutperiode as date
dim ddeb as string
dim dfin as string
boucle sur debutperiode, à partir de dateserial(2009,1,1) jusqu'à now(), par pas de 7
ddeb=debutperiod, bien formaté
dfin = debutperiode=6, bien formaté
sql="select etc..."
sql=sql+ " "+ ddeb
sql=sql+"...."
sql=sql+dfin
sql=sql+"..."
exécuter sql
fin de boucle

Le principe est très simple : tu crées le texte de la commande SQL, en y insérant chaque fois les dates que tu veux.

ddeb = format(debutperiode,"dd/mm/yyyy")
dfin=format(debutperiode+6,"dd/mm/yyyy")

sql = "select count(*) from e_envoi_souscription, e_cde_document, E_CDE "+ _
" where ((ees_mab_nume<>'0003' and ees_mab_nume<>'6300') or ees_mab_nume is null) " + _
...etc...
+ " and e_cde_document.cde_do_d between to_date('" _
+ ddeb + " 00:00:00' , 'dd/mm/yyyy hh24:mi:ss') + _
" and to_date('" + dfin + " 23:59:59', 'dd/mm/yyyy hh24:mi:ss') " + _
" and e_cde.cde_ty_se_c=e_cde_document.cde_do_ty_se_c " + _
...etc...
'exécuter sql

Tu veux changer des dates dans ta table, ou bien changer les critères de sélection dans ta requête ?

Tu veux faire une série de requetes avec chaque fois des dates différentes ?

Tu as deja du code VBA qui crée ta requete ?

Oui, je veux faire une série de requête de façon hebdomadaire, et récupérer les résultats de ces requêtes dans un fichier Excel (à l'aide d'une macro).

Qu'entends tu part "du code VBA qui créé une requête" ?

Merci par contre j'ai pas bien compris cette partie...:

sql=sql+ " "+ ddeb
sql=sql+"...."
sql=sql+dfin
sql=sql+"..."

la macro devrait-elle ressembler à ça du coup :

Sub Macro1()
Dim sql As String
Dim debutperiode As Date
Dim ddeb As String
Dim dfin As String
For debutperiode = DateSerial(2009, 1, 1) To Now() Step 7
ddeb = debutperiode
dfin = debutperiode + 6
sql = "select count(*) from e_envoi_souscription, e_cde_document, E_CDE _
where ((ees_mab_nume<>'0003' and ees_mab_nume<>'6300') or ees_mab_nume is null) _
and EES_ETAT='EN_COURS' _
and e_cde_document.cde_do_souscrip_ees_id = e_envoi_souscription.ees_id _
and e_cde_document.cde_do_ty_se_c='WV2' _
--and e_cde_document.cde_do_d between to_date('&date', 'dd/mm/yyyy hh24:mi:ss')-6 _
--and to_date('&date', 'dd/mm/yyyy hh24:mi:ss') _
and e_cde_document.cde_do_d between _
sql = sql + to_date('15/06/2009 00:00:00', 'dd/mm/yyyy hh24:mi:ss') + ddeb _
sql = sql + and to_date('21/06/2009 23:59:59', 'dd/mm/yyyy hh24:mi:ss') + dfin _
and e_cde.cde_ty_se_c=e_cde_document.cde_do_ty_se_c _
and e_cde.cde_d=e_cde_document.cde_do_d _
and e_cde.cde_c=e_cde_document.cde_do_cde_c _
and ees_duree_mois>0 _
and e_cde.cde_souscript_eed_ees_id is null;"
'exécuter sql
Next
End Sub

Je veux changer les dates des critères de sélection, celle-ci :

...
and e_cde_document.cde_do_d between
to_date('01/06/2009 00:00:00', 'dd/mm/yyyy hh24:mi:ss')
and to_date('07/06/2009 23:59:59', 'dd/mm/yyyy hh24:mi:ss')
...

;)

On m'a conseillé d'utiliser un trigger mais n'ayant pas de table contenant la date...je vois pas comment utiliser un trigger pour cette situation...! :s

Ok, je comprends ! :)

Pour ce qui est de l'exécution, parles-tu de la connexion à la base ?
Si c'est le cas, je bloque à ce niveau là voilà ce que j'ai concocter :

Private Sub recupNumeroSemaine()
'Récupérer le numéro de la semaine actuelle
Dim iNumeroSemaine As Integer
iNumeroSemaine = DatePart("ww", Now())
End Sub
--------------------------------------------------------------------------------------
Sub RemplirTableau()
For i = 1 To iNumeroSemaine Step 1
Sheets("Semaine " & i - 1).Select
Range("E6").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;chemin_de_la_base_.sql" _
, Destination:=Range("E6")) _
End With
Next
End Sub

Suis-je sur la bonne voie, car pour le moment il m'indique une erreur au niveau du chemin, mais cela vient peut être de chez moi...

Avec le code que j'ai posté dans mon message précédent, je n'ai jamais réussi à me connecter...
Je suis actuellement en entreprise, en stage mais avec une macro+connexion à une base qui marche sur plusieurs postes je ne peux pas me connecter non plus, du coup une personne doit venir me paramétrer mon PC pour pouvoir y accéder, le problème vient surement donc de là...!

Quand tu parles de rajouter sql:=sql, c'est en lieu et place de Connection :

...
With ActiveSheet.QueryTables.Add(sql:=sql _
"FINDER;chemin_de_la_base_.sql" _
...

Non, sql:= vient en plus du reste.
connection:= indique le chemin vers la base de donnes
sql:= indique ce qu'on veut en extraire

With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;chemin_de_la_base_.sql" _
, Destination:=Range("E6"), _
sql:=sql)

Ok ,très bien merci ! :)

Par contre, vu que le VBA se charge de l'incrémentation des jours et du "step" que dois-je faire de la partie ci-dessous, dans ma base de données ?

...
and e_cde_document.cde_do_d between
to_date('15/06/2009 00:00:00', 'dd/mm/yyyy hh24:mi:ss')
and to_date('21/06/2009 23:59:59', 'dd/mm/yyyy hh24:mi:ss')
...

Je pensais l'avoir expliqué dans mon texte du mercredi 24 juin 2009 à 14:53:55...
Peut-etre que je ne comprends pas ta question : la requete SQL est présente dans ta base, mais tu ne l'utiliseras plus, car ta requete viendra à chaque fois de Excel.

Ah !!! Ok !

Excel effectuera donc le traitement et récupérera les données en se connectant à la base, si j'ai bien compris :)

Mais du coup, le chemin a spécifier doit se faire vers mon fichier de requête (.sql) ou vers autre chose ?

Merci beaucoup en tout cas, vous avez été d'une grande aide !

Le chemin a spécifier (pour accéder à la base de données) est défini dans le "connection:="
Les détails dépendent du type de base de données, je ne peux pas t'aider.

Si tu peux te connecter à la base "à la main" à partir d'Excel, tu peux t'en inspirer (par exemple en enregistrant une macro) pour l'accés par programme.

Me revoilà :P

Première petite erreur vraiment bizarre, lorsque j'enlève le commentaire "exécuter sql" il m'annonce "Erreur de synthaxe"...:

Dim sql As String
Dim debutperiode As Date
Dim ddeb As String
Dim dfin As String
For debutperiode = DateSerial(2009, 1, 1) To Now() Step 7
ddeb = Format(debutperiode, "dd/mm/yyyy")
dfin = Format(debutperiode + 6, "dd/mm/yyyy")
sql = "select count(*) from e_envoi_souscription, e_cde_document, E_CDE" + _
"where ((ees_mab_nume<>'0003' and ees_mab_nume<>'6300') or ees_mab_nume is null)" + _
"and EES_ETAT='EN_COURS'" + _
"and e_cde_document.cde_do_souscrip_ees_id = e_envoi_souscription.ees_id" + _
"and e_cde_document.cde_do_ty_se_c='WV2'" + _
"and e_cde_document.cde_do_d between" + _
"and to_date('" + ddeb + " 00:00:00' , 'dd/mm/yyyy hh24:mi:ss')" + _
"and to_date('" + dfin + " 23:59:59', 'dd/mm/yyyy hh24:mi:ss') " + _
"and e_cde.cde_ty_se_c=e_cde_document.cde_do_ty_se_c" + _
"and e_cde.cde_d=e_cde_document.cde_do_d" + _
"and e_cde.cde_c=e_cde_document.cde_do_cde_c" + _
"and ees_duree_mois>0" + _
"and e_cde.cde_souscript_eed_ees_id is null;" _
Next
End Sub

-------------------------------------------------------

Autre question, j'ai un soucis sur ma boucle car je dois boucler sur mes onglets (step 1) ET sur ma base SQL (step 7) dans la MEME boucle...Mais pour le moment j'ai 2 variables différentes ("i" et "debutperiode")...

Auriez-vous une solution ?

Tu dois supprimer le caractere de continuation ("_") à la ligne avant le "next".

Pour incrémenter un compteur d'onglet, tu peux, par exemple :

dim c_onglet as int
c_onglet=0
For debutperiode = DateSerial(2009, 1, 1) To Now() Step 7
c_onglet=c_onglet+1
...
Next
End Sub