meilleure facon de sauvegarder le contenu d'un tableau dans un fichier ?Résolu

Question

Bonjour, 

Je d&#233;sire sauvegarder le contenu d'un MSFlexgrid dans un fichier sur un serveur.
Comment dois-je proc&#233;der?
Mon flex est tr&#232;s large, je ne peux donc pas le sauvegarder sous forme d'une image a moins de modifier sa largeur avant l'enregistrement...
L'enregistrement peut-il se forme sous la forme d'un tableau excel ?
Quelle solution est la plus sure et la plus simple image, fichier texte ou tableau excel et comment cette sauvegarde s'effectue t'elle?

Merci d'avance

cs_ITALIA · Accepted Answer

Voici une Fonction qui devrait t'aider...tu la pose dans un Module et tu l'appelle de cette Fa&#231;on :

Call FlexGrid_To_Excel(Me.Grille)
ou Bien sur tu Remplace Grille par le Nom de ton MSFLEXGRID

-------------------------------------------------------------------------------------------
Public Sub FlexGrid_To_Excel(TheFlexgrid As MSFlexGrid, 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
Dim intCol As Integer


TheCols = TheFlexgrid.Cols
TheRows = TheFlexgrid.Rows


If TheRows = 1 Then Exit Sub


If Not IsObject(objXL) Then
    MsgBox "Vous Avez Besoin d' Excel pour Cette Fonction", vbExclamation, "Envoie dans Excel"
    Exit Sub
End If


' Ouvre Excel
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


' Reformat
For intCol = 1 To TheCols
    wsXL.Columns(intCol).AutoFit
    wsXL.Range("a1", Right(wsXL.Columns(TheCols).AddressLocal, 1) & TheRows).AutoFormat GridStyle
Next


End Sub

It@li@

cs_ITALIA · Answer

La sauvegarde dans un Fichier excel c'est le mieux &#224; mon avis...

It@li@

cs_Eric25 · Answer

Et tu n'auras pas quelques pistes pour m'aider sur la fa&#231;on de le faire...
Merci d'avance

cs_Eric25 · Answer

Merci je vais essayer ca.

cs_Eric25 · Answer

Ca ne marche pas. Il doit falloir ins&#233;rer un composant relatif &#224; excel????

cs_ITALIA · Answer

Oui biensur ..dans Projet..R&#233;f&#233;rences coches Microsoft Excel XX Object Library

It@li@

cs_Eric25 · Answer

Merci. J'avais fini par trouver en cherchant un peu...
Ton code marche parfaitement. Seul soucis, mon soft va tourner sur un poste qui est encore sous windows 95 et il y a des soucis de compatibilit&#233; avec la r&#233;f&#233;rence qui n'est pas la m&#234;me. Ce poste va bient&#244;t pass&#233; sous XP donc ce n'est pas vraiment un pb.

Merci encore

cs_ITALIA · Answer

Non je ne pens pas

It@li@

Meilleure facon de sauvegarder le contenu d'un tableau dans un fichier ?

8 réponses

Discussions similaires