CHOISIR AU HASARD UNE LIGNE DE TEXTE D'UN .TXT

Private Sub Command1_Click()


' Coller un Textbox dans votre form et un CommandButton



'Declare les variables
Dim NbrLigne, I, Hasard, Phrase

On Error GoTo Erreur
Err.Number = Clear 'efface une eventuelle erreur ... (pas obligatoire mais prudent ...)


For I = 1 To 2
NbrLigne = 0
Open "C:\Documents and Settings\Administrateur\Bureau\Blague.txt" For Input As #1
Do While Not EOF(1)
     Line Input #1, Phrase
     NbrLigne = NbrLigne + 1
     If NbrLigne = Hasard Then Exit Do
Loop
' Choisit une ligne au hasard ..
Hasard = Int((Rnd * NbrLigne) + 1)
Close #1     ' Ferme le fichier (obligatoire)
Next I

' On décide de l'afficher ... mais vous faites ce que vous voulez après ... :)
Text1.Text = Phrase

Exit Sub
Erreur: ' a part l'erreur d'ouverture di fichier inexistant, y'en a pas d'autres...
MsgBox "Erreur boufon !!!" & vbCrLf & "Ton fichier n'existe pas ..."
Err.Number = Clear



End Sub