Discussion :

[dmoluc]

Bonjour à tous,

J'ai un MSFlexgrid que j'enregistre en format text avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DAUDET78]

Le résultat n'est pas au top^car il y a plein de traits verticaux sur la feuille

Ca me semble normal .... c'est toi qui les ajoute

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chaine = chaine & "|"

[dmoluc]

merci c'est déjà ça : à force de piquer des codes à droites à gauche sans les comprendres totalement, je fais des bétises

[dmoluc]

j'ai essayé de faire l'inverse de l'enregistrement en utilisant input, mais je n'arrive toujours pas à ouvrir le fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 MonFichier
Dim colonne As Integer
Dim ligne As Integer
Dim cptligne As Integer
Dim cptcolonne As Integer
Dim chaine As String
Dim emp
 
 
CommonDialog1.ShowOpen
 
MonFichier.Text = CommonDialog1.FileName
 
Open "MonFichier" For Input 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

"CommonDialog1.FileName" contient bien le fichier mais impossible de l'ouvrir, cette ligne de code ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Open "MonFichier" For Input As #1

quelqu'un aurait une idée, ce serait sympat, merci

[DAUDET78]

Peut être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open MonFichier.text For Input As #1

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim MonFichier
'................
MonFichier.Text = CommonDialog1.FileName

La variable MonFichier n'a pas de propriété Text cette variable n'est pas un objet.

[iclic]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Open "MonFichier" For Input As #1

Si tu ouvres un fichier en 'INPUT , il faut prendre le code approprié
pour le lire

soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
input #1, chaine

Mais attention s'il y a des virgules dans le texte...

ou alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Line input #1, chaine

NB: PRINT, c'est pour écrire et on ouvre alors le fichier en OUTPUT ou APPEND