comment ouvrir un fichier txt dans une textbox ?

Bonjour à tous, quelqu'un peut-il me dire comment je pe (en utilisant un bouton ouvrir) ouvrir un fichier txt dans une textbox (fichier sauvgardé de cette même textbox)

J'èspère que quelqu'un pourra m'aider ...

Merci d'avance ...

Bonjour,

Alors, c simple:

Private Sub Ouvrir_Click() Open "fichier source" For Input As #1 Do If EOF(1) Then Exit Sub Line Input #1, Var Text1.Text = Text1.Text + Var Loop Until EOF(1) Close #1 End Sub

Merci et @ Plus

BIL@Loch

Avec un controle CommonDialog.....et une RichTextBox (RTF1)

Private Sub Command1_Click()

On Error GoTo Cancel

CommonDialog.FileName = ""
CommonDialog.Filter = "Fichier TEXTE (*.txt)|*.txt" ' Pour Word
CommonDialog.Flags = cdlOFNLongNames Or cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNPathMustExist ' Options de la Boîte de Dialogue
CommonDialog.ShowOpen
If CommonDialog.FileName <> "" Then RTF1.Filename=CommonDialog.FileName

Exit Sub

Cancel:

End Sub



It@li@

Ma façon permet au préalable de Rechercher le fichier

It@li@

lol ya une seconde de différence

Bonjour,

Avec un controle CommonDialog et un textbox (En melangeant le code de It@li@ et le mien :

Private Sub Ouvrir_Click() Dim Var As String On Error GoTo Cancel CommonDialog.FileName = "" CommonDialog.Filter = "Fichier TEXTE (*.txt)|*.txt" ' Pour Word CommonDialog.Flags = cdlOFNLongNames Or cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNPathMustExist ' Options de la Boîte de Dialogue CommonDialog.ShowOpen If CommonDialog.FileName <> "" Then Open CommonDialog.FileName For Input As #1 Do If EOF(1) Then Exit Sub Line Input #1, Var Text1.Text = Text1.Text + Var Loop Until EOF(1) Close #1 Cancel: End Sub

Merci et @ Plus

BIL@Loch

Ok, ça m'a bien servi merci ...
NuttyKizzy

je fais une légère correction dans le code de Bil@loch :

Do While Not EOF(1) Line Input #1, Var Text1.Text = Text1.Text & vbCr & Var Loop

cété rien du tout mais sans vbCr, tout le texte va être aligné l'un à la suite de l'autre.

Bonne journée

@§§§merci pour le code§§§@