Msflexgrid
cs_titi89
Messages postés
13
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2004
-
12 mars 2003 à 20:17
cs_titi89 Messages postés 13 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 23 septembre 2004 - 14 mars 2003 à 19:46
cs_titi89 Messages postés 13 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 23 septembre 2004 - 14 mars 2003 à 19:46
2 réponses
diablosv
Messages postés
118
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
26 février 2014
14 mars 2003 à 14:04
14 mars 2003 à 14:04
salut
j'espere sa pourra t'aider
chemin = App.Path & "\recettes" & Text1.Text & ".txt"
Open chemin For Output As #1
For i = 1 To Form1.MSFlexGrid1.Rows - 1 ' -1 pour ne pas prendre en compte la barre de titre
With Form1.MSFlexGrid1
.Row = i
.Col = 1
idvar = .Text
.Col = 0
nomvar = .Text
.Col = 3
valeurvar = .Text
Print #1, nomvar & "," & idvar & "," & valeurvar
End With
Next i
Close #1
@+ diablo.sv
j'espere sa pourra t'aider
chemin = App.Path & "\recettes" & Text1.Text & ".txt"
Open chemin For Output As #1
For i = 1 To Form1.MSFlexGrid1.Rows - 1 ' -1 pour ne pas prendre en compte la barre de titre
With Form1.MSFlexGrid1
.Row = i
.Col = 1
idvar = .Text
.Col = 0
nomvar = .Text
.Col = 3
valeurvar = .Text
Print #1, nomvar & "," & idvar & "," & valeurvar
End With
Next i
Close #1
@+ diablo.sv
cs_titi89
Messages postés
13
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2004
14 mars 2003 à 19:46
14 mars 2003 à 19:46
un grand merci à toi
je m'en vais essayé cela tout de suite
encore merci
@+
je m'en vais essayé cela tout de suite
encore merci
@+
