Bonjour =E0 tous;
J'ai r=E9cup=E9r=E9 un code pour enregistrer des donn=E9es lors d'un diapor=
ama
es ce que on pourrais me dire pourquoi ce code ci dessous ne
fonctionne pas ?
sa me met erreur de compilation au niveau de " /data.txt
merci =E0 vous
Private Sub CommandButton1_Click()
Dim fso, f
Set fso =3D New Scripting.FileSystemObject
set f =3D fso.OpenTextFile(CurDir& "/data.txt",_ForAppending,true)
f.WriteLine TextBox1.Text & vbTab & TextBox2.Text
f.Close
MsgBox (" Donn=E9es enregistr=E9es ")
Me.TextBox1.Text =3D " o "
Me.TextBox2.Text =3D " o "
End Sub
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
Papyjac
BOnjour syleg
il faut mettre 1 espace avec & ; Supprimer _ après "'" set f = fso.OpenTextFile(CurDir & "/data.txt", ForAppending,true)
-- Papyjac
"" a écrit :
Bonjour à tous; J'ai récupéré un code pour enregistrer des données lors d'un diaporama es ce que on pourrais me dire pourquoi ce code ci dessous ne fonctionne pas ? sa me met erreur de compilation au niveau de " /data.txt merci à vous
Private Sub CommandButton1_Click() Dim fso, f Set fso = New Scripting.FileSystemObject set f = fso.OpenTextFile(CurDir& "/data.txt",_ForAppending,true) f.WriteLine TextBox1.Text & vbTab & TextBox2.Text f.Close MsgBox (" Données enregistrées ") Me.TextBox1.Text = " o " Me.TextBox2.Text = " o " End Sub
BOnjour syleg
il faut mettre 1 espace avec & ; Supprimer _ après "'"
set f = fso.OpenTextFile(CurDir & "/data.txt", ForAppending,true)
--
Papyjac
"syleg35@hotmail.fr" a écrit :
Bonjour à tous;
J'ai récupéré un code pour enregistrer des données lors d'un diaporama
es ce que on pourrais me dire pourquoi ce code ci dessous ne
fonctionne pas ?
sa me met erreur de compilation au niveau de " /data.txt
merci à vous
Private Sub CommandButton1_Click()
Dim fso, f
Set fso = New Scripting.FileSystemObject
set f = fso.OpenTextFile(CurDir& "/data.txt",_ForAppending,true)
f.WriteLine TextBox1.Text & vbTab & TextBox2.Text
f.Close
MsgBox (" Données enregistrées ")
Me.TextBox1.Text = " o "
Me.TextBox2.Text = " o "
End Sub
il faut mettre 1 espace avec & ; Supprimer _ après "'" set f = fso.OpenTextFile(CurDir & "/data.txt", ForAppending,true)
-- Papyjac
"" a écrit :
Bonjour à tous; J'ai récupéré un code pour enregistrer des données lors d'un diaporama es ce que on pourrais me dire pourquoi ce code ci dessous ne fonctionne pas ? sa me met erreur de compilation au niveau de " /data.txt merci à vous
Private Sub CommandButton1_Click() Dim fso, f Set fso = New Scripting.FileSystemObject set f = fso.OpenTextFile(CurDir& "/data.txt",_ForAppending,true) f.WriteLine TextBox1.Text & vbTab & TextBox2.Text f.Close MsgBox (" Données enregistrées ") Me.TextBox1.Text = " o " Me.TextBox2.Text = " o " End Sub
syleg35
Bonjour Papyjac merci pour ta réponse et bonne soirée ! @+
On 8 oct, 14:14, Papyjac wrote:
BOnjour syleg
il faut mettre 1 espace avec & ; Supprimer _ après "'" set f = fso.OpenTextFile(CurDir & "/data.txt", ForAppending,true)
-- Papyjac
"" a écrit :
> Bonjour à tous; > J'ai récupéré un code pour enregistrer des données lors d'un di aporama > es ce que on pourrais me dire pourquoi ce code ci dessous ne > fonctionne pas ? > sa me met erreur de compilation au niveau de " /data.txt > merci à vous
> Private Sub CommandButton1_Click() > Dim fso, f > Set fso = New Scripting.FileSystemObject > set f = fso.OpenTextFile(CurDir& "/data.txt",_ForAppending,true) > f.WriteLine TextBox1.Text & vbTab & TextBox2.Text > f.Close > MsgBox (" Données enregistrées ") > Me.TextBox1.Text = " o " > Me.TextBox2.Text = " o " > End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour Papyjac
merci pour ta réponse et bonne soirée !
@+
On 8 oct, 14:14, Papyjac <Papy...@discussions.microsoft.com> wrote:
BOnjour syleg
il faut mettre 1 espace avec & ; Supprimer _ après "'"
set f = fso.OpenTextFile(CurDir & "/data.txt", ForAppending,true)
--
Papyjac
"syle...@hotmail.fr" a écrit :
> Bonjour à tous;
> J'ai récupéré un code pour enregistrer des données lors d'un di aporama
> es ce que on pourrais me dire pourquoi ce code ci dessous ne
> fonctionne pas ?
> sa me met erreur de compilation au niveau de " /data.txt
> merci à vous
> Private Sub CommandButton1_Click()
> Dim fso, f
> Set fso = New Scripting.FileSystemObject
> set f = fso.OpenTextFile(CurDir& "/data.txt",_ForAppending,true)
> f.WriteLine TextBox1.Text & vbTab & TextBox2.Text
> f.Close
> MsgBox (" Données enregistrées ")
> Me.TextBox1.Text = " o "
> Me.TextBox2.Text = " o "
> End Sub- Masquer le texte des messages précédents -
Bonjour Papyjac merci pour ta réponse et bonne soirée ! @+
On 8 oct, 14:14, Papyjac wrote:
BOnjour syleg
il faut mettre 1 espace avec & ; Supprimer _ après "'" set f = fso.OpenTextFile(CurDir & "/data.txt", ForAppending,true)
-- Papyjac
"" a écrit :
> Bonjour à tous; > J'ai récupéré un code pour enregistrer des données lors d'un di aporama > es ce que on pourrais me dire pourquoi ce code ci dessous ne > fonctionne pas ? > sa me met erreur de compilation au niveau de " /data.txt > merci à vous
> Private Sub CommandButton1_Click() > Dim fso, f > Set fso = New Scripting.FileSystemObject > set f = fso.OpenTextFile(CurDir& "/data.txt",_ForAppending,true) > f.WriteLine TextBox1.Text & vbTab & TextBox2.Text > f.Close > MsgBox (" Données enregistrées ") > Me.TextBox1.Text = " o " > Me.TextBox2.Text = " o " > End Sub- Masquer le texte des messages précédents -