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