exporter une datagrid dans une feuille Excel

Bonjour,

En fait, la procédure fonctionne dès lors que le nombre de lignes à prendre
sont visibles à l'ecran. Dès que je passe à une ligne qui n'étaient pas
visible alors j'ai un message d'erreur (ce n'est peut être pas la cause!?).
De ma grille, 10 lignes sont visibles à l'ecran. Après, il faut utiliser
l'ascenceur.

Ci-dessous le code :

Code:

Public Sub ExporterExcelDataGrid(DGrid As Object)

Dim Xls As New Excel.application
Dim liLec As Long
Dim liCol As Long
Dim lsChaine As String
Dim liLigne As Long

On Error GoTo GestErr

Set Xls = New Excel.application
Xls.Workbooks.Add

'En-tête
Xls.ActiveWorkbook.ActiveSheet.Cells(1, 1) = "Code Lot"
Xls.ActiveWorkbook.ActiveSheet.Cells(1, 2) = "Libellé"

With DGrid
For liCol = 1 To .Columns.Count
.Col = liCol - 1
For liLec = 1 To .ApproxCount
.Row = liLec - 1
lsChaine = Trim(.Text)
Xls.ActiveWorkbook.ActiveSheet.Cells(liLec + 1, liCol) = lsChaine
Next liLec
Next liCol
End With

'selection des 2 premieres cellules pour mise en gras
Xls.ActiveWorkbook.ActiveSheet.Range("A1:B1").Font.Bold = True
Xls.ActiveSheet.Range("A:B").Columns.AutoFit
Xls.ActiveSheet.Columns("F:F").HorizontalAlignment = xlRight
Xls.Visible = True
Set Xls = Nothing

Exit Sub

GestErr:
On Error Resume Next
s_error "Export Excel "
End Sub


Merci

"Noja" wrote:

Bonjour,

Quelqu'un pourrait'il m'indiquer comment exporter une DataGrid dans une
feuille Excel.

Merci