ouvrir et enregistrer un MsFlexgrid
Bonjour à tous,
J'ai un MSFlexgrid que j'enregistre en format text avec ce code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Private Sub enregistrer_Click()
Dim colonne As Integer
Dim Ligne As Integer
Dim cptligne As Integer
Dim cptcolonne As Integer
Dim chaine As String
Dim emp
emp = App.Path
Open emp + "nomfichier.txt" For Output As #1
colonne = Me.MSFlexGrid1.Cols
Ligne = Me.MSFlexGrid1.Rows
For cptligne = 0 To Ligne - 1
For cptcolonne = 0 To colonne - 1
chaine = chaine & Me.MSFlexGrid1.TextMatrix(cptligne, cptcolonne)
chaine = chaine & "|"
Next cptcolonne
Print #1, chaine
chaine = ""
Next cptligne
Close #1
End Sub |
Le résultat n'est pas au top^car il y a plein de traits verticaux sur la feuille mais les données sont bien enregistrées. Le gros problème est de pouvoir ouvrir les fichiers enregistrés au format text.
J'ai bricoler un bout de code qui utilise la boite de dialogue ouvrir mais je n'arrive pas à lire et encore moins à écrire le contenu du fichier dans mon MSFlexgrid ( j'utilise le même MSFexgrid qui à créer le fichier pour le r'ouvrir)
voici le code qui ne fonctionne pas :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
|
Private Sub ouvrir_Click()
Dim ff As Integer
Dim i As Integer
Dim j As Integer
Dim A$
Dim MonFichier
i = MSFlexGrid1.Rows
ff = FreeFile
CommonDialog1.ShowOpen
MonFichier = CommonDialog1.FileName
Open MonFichier For Input As #ff
Do While Not EOF(ff)
MSFlexGrid1.Rows = i + 1
For j = 0 To 104
If Not EOF(ff) Then
Input #ff, A$
MSFlexGrid1.TextMatrix(i, j) = A$
Else
Exit Do
End If
Next j
i = i + 1
Loop
Close #ff
End Sub |
il doit me manquer un petit quelque chose que mes maigre connaissances ne me permettent pas de trouver :?
merci pour votre aide toujours précieuse
cordialement
Didier