creation requete avec une borne de dates

[cedric]

Bonjour
Je souhaite faire une macro qui créer une requete. la voila :
macro X()
With ActiveSheet.QueryTables.Add(Connection:= _
'ODBC;DSN=cegid;UID=sa;APP=Microsoft Office XP;WSID=POSTE;LANGUAGE=us_english;Network=DBNMPNTW;Trusted_Connection=Yes' _
, Destination:=Range('A8'))
.CommandText = Array( _
'SELECT ECRITURE.E_DATECOMPTABLE, ECRITURE.E_GENERAL, GENERAUX.G_GENERAL, ECRITURE.E_DEBIT, ECRITURE.E_CREDIT' & Chr(13) & '' & Chr(10) & 'FROM mabase.dbo.ECRITURE ECRITURE, mabase.dbo.GENERAUX GENERAUX' & Chr(13) & '' & Chr(10) & 'WHERE (ECRITU' _
, _
'RE.E_DATECOMPTABLE>={ts '2002-01-01 00:00:00'}) AND (ECRITURE.E_DATECOMPTABLE<={ts '2002-03-29 00:00:00'})' _
)
.Name = 'Lancer la requête à partir de cegid'
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub

Mon probleme est le suivant, pour les bornes de date, je veux aller les récuperer dans une feuille Excel et je ne sais pas comment me débrouiller.
Si quelqu'un a une idée.
Merci d'avance

 

[MichelXld]

bonjour

si par exemple tes dates sont dans les cellules A1 et A2 , tu pourrais essayer


macro X()
With ActiveSheet.QueryTables.Add(Connection:= _
'ODBC;DSN=cegid;UID=sa;APP=Microsoft Office XP;WSID=POSTE;LANGUAGE=us_english;Network=DBNMPNTW;Trusted_Connection=Yes' _
, Destination:=Range('A8'))
.CommandText = Array( _
'SELECT ECRITURE.E_DATECOMPTABLE, ECRITURE.E_GENERAL, GENERAUX.G_GENERAL, ECRITURE.E_DEBIT, ECRITURE.E_CREDIT' & Chr(13) & '' & Chr(10) & 'FROM mabase.dbo.ECRITURE ECRITURE, mabase.dbo.GENERAUX GENERAUX' & Chr(13) & '' & Chr(10) & 'WHERE (ECRITU' _
, _
'RE.E_DATECOMPTABLE>={ts '' & Range('A1') & ''}) AND (ECRITURE.E_DATECOMPTABLE<={ts '' & Range('A2') & ''})' _
)
.Name = 'Lancer la requête à partir de cegid'
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub



bonne soiree
MichelXld