Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Erreur de compilation

2 réponses
Avatar
syleg35
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

2 réponses

Avatar
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



Avatar
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 -