Bonjour à tous !
Voilà mon problème...
J'extrait des données d'une base de données en utilisant :
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...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
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 !
Partager