Salut !
Voilà j'ai un petit problème en VB, je voudrais affiché une question que j'ai faite dans un fichier .txt Seulement sa ne marche pas. Voici le code correspondant :
Private Sub cmdjouer_Click()
frmjeu.Visible = True
Open App.Path \ "jeu.txt" For Input As #1
Do While Not EOF(1)
Input #1, strquestion, strreponse
txtquestion = strquestion
If txtreponse = strreponse Then
intscore = intscore + 1
Else
intscore = intscore - 1
End If
Loop
MsgBox ("Votre score sur se quizz est de : " & intscore & " points")
End Sub
Sachant que j'ai utiliser le app.path car c'est un quizz que je d'autre personne vont essayé et que j'ai aussi vérifier le nom du fichier texte.
Merci d'avance 