MsFlexGrid ---- ExcelRésolu

Question

Salut, tous le monde,
J'utilise cette fonction pour extraire les donn&#233;es d'un MsFlexGrid vers Excel...
&#231;a Fonctionne bien sauf pour les dates...

en les ecrivant dans excel il m'inverse parfois les jour et les mois.......
Comment ca se fait ? Avez vous une fonction &#224; me proposer ? ou des Corrections ?
Merci d'avance

Public Sub FlexGrid_To_Excel(TheFlexgrid As MSFlexGrid,TheRows As Integer, TheCols As Integer, Optional GridStyle As Integer = 1, Optional WorkSheetName  As String)
    
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.Worksheet
Dim intRow As Integer ' counter
Dim intCol As Integer ' counter

If Not IsObject(objXL) Then
    MsgBox "Vous Avez Besoin d' Excel",vbExclamation, "Envoie dans Excel"
    Exit Sub
End If

On Error Resume Next

ObjXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet

With wsXL
    If Not WorkSheetName = "" Then
        .Name = WorkSheetName
    End If
End With
    
For intRow = 1 To TheRows
    For intCol = 1 To TheCols
        With TheFlexgrid
            wsXL.Cells(intRow, intCol).Value = _
               .TextMatrix(intRow - 1, intCol - 1) & " "
        End With
    Next
Next

End Sub

It@li@

cs_PROGRAMMIX · Answer

Le pourquoi, je ne le sais pas exactement... une histoire de "param&#233;trage de langue" au niveau des applications.

Aussi, souvent au lieu de taper Cells(intRow, intCol).Value, j'utilise plut&#244;t Cells(intRow, intCol).Formula.

A toi de voir si &#231;a change quelque chose pour toi.

Programmix

cs_ITALIA · Answer

Merci Programmix mais  le .Formula ne change rien, j'ai trouv&#233; une solution, en rempla&#231;ant :

wsXL.Cells(intRow, intCol).Value =   .TextMatrix(intRow - 1, intCol - 1) & " "

 Par 

If  Len(.TextMatrix(intRow - 1, intCol - 1))  = 10 And IsDate(.TextMatrix(intRow - 1, intCol - 1)) Then
wsXL.Cells(intRow, intCol).Value = Format(.TextMatrix(intRow - 1, intCol - 1) & " ", "mm/dd/yy")
Else
    wsXL.Cells(intRow, intCol).Value = .TextMatrix(intRow - 1, intCol - 1) & " "
End If

It@li@

MsFlexGrid ----> Excel

2 réponses

Discussions similaires