Comment sauvegarder le contenu d'un control MSFlexgrid

Mat@ Messages postés 1 Date d'inscription dimanche 28 septembre 2003 Statut Membre Dernière intervention 28 septembre 2003 - 28 sept. 2003 à 18:08
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 4 oct. 2003 à 17:27
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!!! :-(

1 réponse

cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 2
4 oct. 2003 à 17:27
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
Rejoignez-nous