Bobino10
Messages postés3Date d'inscriptionlundi 22 avril 2013StatutMembreDernière intervention24 avril 2013
-
24 avril 2013 à 09:18
Bonjour,
Je rencontre une difficulté pour la mise à jour de ma requête .
Voici le code (en souligné ce qui me renvoie un débogage):
Private Sub CommandButton1_click()
Deb = InputBox("Saisir la date du début du commissionnement (Exemple: 2013-03-01)")
Fin = InputBox("Saisir la date de fin du commissionnement (Exemple: 2013-03-31)")
Annee = Mid(Deb, 1, 4)
Mois = Mid(Deb, 6, 2)
Jdeb = Mid(Deb, 9, 2)
Jfin = Mid(Fin, 9, 2)
Worksheets("Base").Select
With Selection.ListObject.QueryTable
.Connection = _
"ODBC;DSN=PGIS5;UID=%username%;Trusted_Connection=Yes;APP=Microsoft Office 2010;WSID=OTSRV006"
.CommandText = Array( _
"SELECT 2013 AS 'Année', 2 AS 'Mois', TIERS.T_REPRESENTANT AS 'Commercial', AFFAIRE.AFF_RESPONSABLE AS 'Responsable', TIERS.T_TIERS AS 'Code Client', TIERS.T_LIBELLE AS 'Raison sociale', AFFAIRE.AFF_AF" _
, _
"FAIRE AS 'Code Affaire', AFFAIRE.AFF_AVENANT AS 'Avenant', AFFAIRE.AFF_INTERVALGENER AS 'Intervalle', AFFAIRE.AFF_DATEDEBUT AS 'Début Contrat', AFFAIRE.AFF_LIBREAFF1 AS 'Durée', AFFAIRE.AFF_DATEFIN AS" _
, _
" 'Fin contrat', AFFAIRE.AFF_RESILAFF AS 'Motif résiliation', AFFAIRE.AFF_TOTALHT, (AFFAIRE.AFF_TOTALHTDEV-AFFAIRE.AFF_TOTALPR) AS 'Marge Int'" & Chr(13) & "" & Chr(10) & "FROM OCEANET.dbo.AFFAIRE AFFAIRE, OCEANET.dbo.TIERS TIERS" _
, _
"" & Chr(13) & "" & Chr(10) & "WHERE AFFAIRE.AFF_TIERS = TIERS.T_TIERS AND ((AFFAIRE.AFF_ETATAFFAIRE='ENC') AND (AFFAIRE.AFF_DATEDEBUT Between {ts '" & Deb & "'} And {ts '" & Fin & "'}) OR (AFFAIRE.AFF_ETATAFFAIRE" _
, _
"='CLO') AND (AFFAIRE.AFF_DATEDEBUT Between {ts '" & Deb & "'} And {ts '" & Fin & "'}) OR (AFFAIRE.AFF_ETATAFFAIRE='CLO') AND (AFFAIRE.AFF_DATEFIN Between {ts '" & Deb & "'} And" _
, " {ts '" & Fin & "'}))")
<code> .Refresh BackgroundQuery:=False
End With
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=IF(AND([@[Début Contrat]]>DATE(" & Annee & "," & Mois & "," & Jdeb & "-1),[@[Début Contrat]]<DATE(" & Annee & "," & Mois & "," & Jfin & "+1)),""N"",""R"")"