Comment peut-on =E0 l'activation de la feuille ouvrir un=20
fichier en lecture =E9criture dans un msflexgrid
Voici mon code pour enregistrer le fichier
//////////////////////////////////
Private Sub cmdEnregistrer_Click()
Dim colonne As Integer
Dim ligne As Integer
Dim cptligne As Integer
Dim cptcolonne As Integer
Dim chaine As String
Dim emp
emp =3D App.Path
Open emp + "\nomfichier.txt" For Output As #1
colonne =3D Me.flex1.Cols
ligne =3D Me.flex1.Rows
For cptligne =3D 0 To ligne - 1
For cptcolonne =3D 0 To colonne - 1
chaine =3D chaine & Me.flex1.TextMatrix(cptligne, cptcolonne)
chaine =3D chaine & "|"
Next cptcolonne
Print #1, chaine
chaine =3D ""
Next cptligne
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
le_troll
Bonjour,
Dans la load tu fait call nom_procédure et ça va faire ce qui est prévu dans la procédure
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Ce message est plein de virus "certifiés" Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison ! ------------------------------------------
a écrit dans le message de news: 13ef01c47bac$af947530$ Comment peut-on à l'activation de la feuille ouvrir un fichier en lecture écriture dans un msflexgrid
Voici mon code pour enregistrer le fichier
//////////////////////////////////
Private Sub cmdEnregistrer_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.flex1.Cols ligne = Me.flex1.Rows For cptligne = 0 To ligne - 1 For cptcolonne = 0 To colonne - 1 chaine = chaine & Me.flex1.TextMatrix(cptligne, cptcolonne) chaine = chaine & "|" Next cptcolonne Print #1, chaine chaine = "" Next cptligne
Close #1
End Sub
/////////////////////////////////////////
Bonjour,
Dans la load tu fait call nom_procédure et ça va faire ce qui est prévu
dans la procédure
--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------
<anonymous@discussions.microsoft.com> a écrit dans le message de news:
13ef01c47bac$af947530$a501280a@phx.gbl...
Comment peut-on à l'activation de la feuille ouvrir un
fichier en lecture écriture dans un msflexgrid
Voici mon code pour enregistrer le fichier
//////////////////////////////////
Private Sub cmdEnregistrer_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.flex1.Cols
ligne = Me.flex1.Rows
For cptligne = 0 To ligne - 1
For cptcolonne = 0 To colonne - 1
chaine = chaine & Me.flex1.TextMatrix(cptligne, cptcolonne)
chaine = chaine & "|"
Next cptcolonne
Print #1, chaine
chaine = ""
Next cptligne
Dans la load tu fait call nom_procédure et ça va faire ce qui est prévu dans la procédure
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Ce message est plein de virus "certifiés" Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison ! ------------------------------------------
a écrit dans le message de news: 13ef01c47bac$af947530$ Comment peut-on à l'activation de la feuille ouvrir un fichier en lecture écriture dans un msflexgrid
Voici mon code pour enregistrer le fichier
//////////////////////////////////
Private Sub cmdEnregistrer_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.flex1.Cols ligne = Me.flex1.Rows For cptligne = 0 To ligne - 1 For cptcolonne = 0 To colonne - 1 chaine = chaine & Me.flex1.TextMatrix(cptligne, cptcolonne) chaine = chaine & "|" Next cptcolonne Print #1, chaine chaine = "" Next cptligne
