enregistrement dans msflexgrid après modification

Question

1)lorsque j'ai modifié mon flexgric ,je clique sur un bouton enregistré et mon problème c'est qu'il me dit que mon fichier est déja ouvert

2) lorsque je met la ligne en commentaire,il me dit mode d'accès au fichier incorrect???????

////////////////////////////
Code
///////////////////////////
Private Sub cmdEnregistrertab1_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 + "
omfichier1.txt" For Output As #1 <<<<<<<<<<<1
colonne = Me.flex2.Cols
ligne = Me.flex2.Rows
For cptligne = 0 To ligne - 1
For cptcolonne = 0 To colonne - 1
chaine = chaine & Me.flex2.TextMatrix(cptligne, cptcolonne)
chaine = chaine & "|"
Next cptcolonne
Print #1, chaine <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<2
chaine = ""
Next cptligne

Close #1

End Sub

Je ne comprend pas??????

cs_CanisLupus · Answer

Salut, je ne vois qu'une chose, c que ton fichier 
emp + "
omfichier1.txt"
doit être ouvert dans autre mode quelquepart ds ton prog ou que le numéro de fichier (#1) est déjà utilisé pour un autre fichier.
Dans ce dernier cas, utilises freefile :

Dim numfic
numfic=freefile

et tu remplaces les #1 de ta proc par numfic.

Cordialement

CanisLupus

cs_stargates · Answer

j'ai essayé ta ma méthode mais il me donne la même erreur(55)

Dans le fond c'est normal puisque je le modifie
Je vais reposer ma question

Comment enregistrer les modifications d'un fichier ouvert???

Merci pour ta patience

cs_CanisLupus · Answer

Excuse, je n'utilise pas les flexgrid, faudra que j'essaie dès que g un moment.

Pour répondre à ta dernière question, je ne vois pas d'autre solution, actuellement, que de fermer le fichier qui est déjà ouvert ou le réécrire sous un autre nom par ex : emp + "
omfichier2.txt".

Cordialement

CanisLupus

Enregistrement dans msflexgrid après modification

3 réponses

Discussions similaires