Si tu veux mettre plusieurs instructions dans le meme IF il faut ajouter le ENDIF a la fin :

IF r$ = "s" THEN
OPEN "txt.txt" FOR INPUT AS #1
INPUT #1, r$
CLOSE #1
ENDIF

Tu peux donner le code complet ?

Ah ok. Merci. Parce qu´avant quand je mettais IF et END IF à la fin il me mettait "END IF sans bloc IF". Mais en fait je mettais la première direct après le THEN et pas à la ligne.

Le code:

DO
INPUT "Quelle est votre partition (Accueil: a | Quitter: q | Ouvrir: s)"; r$
IF r$ = "q" THEN END
IF r$ = "s" THEN
INPUT "Quel est le nom du fichier"; fichier$
OPEN fichier$ FOR INPUT AS #1
INPUT #1, r$
CLOSE #1
END IF
PLAY r$
CLS
INPUT "Une autre partition (o/n) enregistrer (e)"; f$
IF f$ = "o" THEN GOTO 1
IF f$ = "n" THEN GOTO 10
IF f$ = "e" THEN INPUT "Quel est le nom du fichier"; fichier$
OPEN fichier$ FOR OUTPUT AS #1
PRINT #1, r$
CLOSE #1
GOTO 1
LOOP

Oups. J´ai oublié de préciser que le 10 de GOTO 10 c´est l´accueil du prog et que le 1 de GOTO 1 c´est là où on entre les notes à jouer.

Ah voilà! J´ai trouvé grâce à toi

Voilà en fait j´ai mis comme ça:

DO
INPUT "Quelle est votre partition (Accueil: a | Quitter: q | Ouvrir: s)"; r$
IF r$ = "q" THEN END
IF r$ = "s" THEN
INPUT "Quel est le nom du fichier"; fichier$
OPEN fichier$ FOR INPUT AS #1
INPUT #1, r$
CLOSE #1
END IF
PLAY r$
CLS
INPUT "Une autre partition (o/n) enregistrer (e)"; f$
IF f$ = "o" THEN GOTO 1
IF f$ = "n" THEN GOTO 10
IF f$ = "e" THEN
INPUT "Quel est le nom du fichier"; fichier$
OPEN fichier$ FOR OUTPUT AS #1
PRINT #1, r$
CLOSE #1
GOTO 1
END IF
LOOP

Et ça fonctionne. Je peux en enregistrer plusieurs et les réouvrir après et ça marche. Merci! Mais y a moyen de les enregistrer en .txt directement sans avoir besoin de le préciser dans fichier$?

Oui tu peux le faire avec un simple + :
OPEN fichier$ +".txt"

ça marche impec´! Merci beaucoup à tous!