Code VBA actualisation

Fermé
Bobino10 Messages postés 3 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 24 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"")"

End Sub
</code>
MERCI POUR VOTRE AIDE !

Bobino10