creation requete avec une borne de dates

C

cedric

Guest
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

XLDnaute Barbatruc
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
 

Discussions similaires

Statistiques des forums

Discussions
300 761
Messages
1 987 020
Membres
209 681
dernier inscrit
Excelcrable