Bonjour,
je bloque sur un problème qui est le suivant :
j'ai 1 appli qui extracte d'une base SQL server vers 1 fichier Excel.
Comme les quantités extraites sont importantes, on fait une extraction "par lot" (comme en vb.net, pas de Lot DTS)...
Ca marche bien sauf que ça ne gère pas si on dépasse les 65536 lignes autorisées dans 1 onglet excel...
Résultat il manque des enreg. dans les fichiers générés.

Voici le code utilisé pour l'extract :
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
20
21
22
23
24
25
26
27
 
appExcel.DisplayAlerts = False
xlBook = appExcel.Workbooks.Open(Extraction_DI.sNomRepSource & "temp.xls")
xlSheet = xlBook.Sheets.Item(1)
xlSheet.Name = "Résultats"
xlSheet.Activate()
 
With xlSheet.QueryTables.Add(sChaineExcel, xlSheet.Range("A1"))
            .CommandText = sSQL
            .Name = "Résultats"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .BackgroundQuery = True
            .RefreshStyle = Excel.XlCellInsertionMode.xlOverwriteCells
            .SavePassword = False
            .SaveData = False
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .PreserveColumnInfo = True
            .Refresh(BackgroundQuery:=False)
End With
xlSheet.Range("A1").Select()
appExcel.ActiveWorkbook.SaveAs(sFichier)
appExcel.ActiveWorkbook.Close()
Si quelqu'un connait le moyen de gerer cette "limite" de 65536 dans une extraction par lot ?
Merci d'avance