Import .txt vers Textbox

[Temjeh]

Bonjour et merci d'avance

J'ai chercher sur le site mais sans succès.

Le titre explique.

J'aimerais alimenter mon Textbox1 multirows de mon UF par fichier text

Ex: Textbox1.Text = ThisWorkbook.Path & "\base\01.txt"

Merci pour votre temps

Temjeh

 

[camarchepas]

Re : Import .txt vers Textbox

Bonjour ,

Comme ceci peut être .

Attention le textbox doit être en multiligne = true

Private Sub UserForm_Initialize()
Dim Phrase As String, Tempo As String
Open ThisWorkbook.Path & "\base\01.txt" For Input As #1
Do While Not EOF(1)
    Input #1, Tempo
    Phrase = Phrase & vbCrLf & Tempo
Loop
Close #1
TextBox1.Text = Phrase
End Sub

 

[Temjeh]

Re : Import .txt vers Textbox

Merci beaucoup

La perfection

Juste un info, je met l'option scrollbar à verticale mais elle n'apparait pas.
Y a t-il un truc que j'oublie?

Merci

 

[Temjeh]

Re : Import .txt vers Textbox

Ok il fallait que je clic dedans pour la voir

Merci encore

 

[camarchepas]

Re : Import .txt vers Textbox

Oui ,

ou peut être :