[VBA] Résultats d'une requête sur deux feuilles
Bonjour à tous !
Voilà mon problème...
J'extrait des données d'une base de données en utilisant :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=HORIZONSQL;UID=BIDULE;PWD=;DBQ=TRUCSQL;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;" _
), Array("MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;")), Destination:=Range("A2"))
.CommandText = requete
.Name = "Lancer la requête à partir de TRUCSQL"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With |
Cela fonctionne parfaitement, sauf quand le nombre de lignes est supérieur au nombre de lignes possibles sur Excel (environ 65 000). Il affiche sur la feuille les 65 000, mais bien sûr les autres sont perdues...
Comment "lui dire" qu'il passe sur une deuxième feuille lorsqu'il dépasse 65 000 lignes ? Si cela est possible...
Merci beaucoup d'avance !