Comment sauvegarder le contenu d'un control MSFlexgrid

Question

Comment es-ce que je peux enregistrer le contenu d'un control MSFlexgrid dans un fichier texte (*.txt). Je ne sais pas ce qu'il faut utiliser comme expression. Il me faudrait un exemple!!! :-(

cs_PROGRAMMIX · Answer

Voici ce que je te propose :

Sub EnregistrerFlexgrid()

'Déclaration des variables
Dim NbreColonnes As Integer
Dim NbreLignes As Integer

Dim Colonne As Integer
Dim Ligne As Integer

Dim Fichier As String
Dim numFichier As Integer

Dim LigneTexte As String

'Définition du nombre de lignes et de colonnes du FlexGrid
NbreLignes = MonFlexGrid.Rows
NbreColonnes = MonFlexGrid.Cols

'Définition du nom du fichier
Fichier = App.Path
If Right(App.Path, 1) <> "" Then Fichier = Fichier & ""
Fichier = Fichier & "MonFlexGrid.TXT"

'Canal pour l'enregistrement
numFichier = Freefile

'Ouverture du fichier en mode écriture
Open Fichier For Output As #numFichier

'Passe en revue les lignes
For Ligne = 0 To nbreLignes

'Passe en revue les colonnes
For Colonne = 0 To nbreColonnes

'Recueille le texte de la cellule et l'ajoute au reste de la variable
LigneTexte = LigneTexte & vbTab &MonFlexGrid.TextMatrix (Ligne, Colonne)

'Passe à la colonne suivante
Next

'Efface les espaces éventuels
LigneTexte = Trim (LigneTexte)

'Ecrit la ligne dans le fichier
Print #numFichier, LigneTexte

'Vide la variable
LigneTexte = ""

'Passe à la ligne suivante
Next

'Ferme le fichier
Close #numFichier

End Sub

Programmix

Comment sauvegarder le contenu d'un control MSFlexgrid

1 réponse

Discussions similaires