Streamreader en VBA

Bonjour,

Je cherche le code correspondant à l'utilisation suivante :

Dans un fichier txt, je veux récupérer et affecter chaque ligne à une textbox différente (soit ligne1 = textbox1 ; ligne2 = textbox2...)

A la manière d'un streamreader sur Visual Basic.

Le code que j'ai trouvé est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim filenum As Integer, contents As String, filename As String filenum = FreeFile Open Fichier_txt For Input As #filenum   Do Until EOF(filenum) Line Input #filenum, contents   Dim num As String num = contents Textbox1 = num   Debug.Print num Loop   Close #filenum

---

Quelqu'un a-t-il une solution ?:cry:

Merci pour votre aide !

Bonsoir,

Un début de piste, les noms des TextBox doivent commencer par "TextBox" et suivis du numéro ordinal, exemple TextBox1, TextBox2, etc... Le nombre de lignes doit correspondre au nombre de texbox. A mettre dans le module de la Form :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Private Sub UserForm_Initialize()   LireValeurs   End Sub   Sub LireValeurs()   Dim Tbl() As Controls Dim Ctrl As Control Dim Index As Integer Dim I As Integer Dim Ligne As String   'si erreur On Error GoTo FIN   Index = FreeFile   'ouvre le fichier (adapter le chemin) Open "D:\Texte.txt" For Input As #Index   Do While Not EOF(Index) Input #Index, Ligne I = I + 1 'pour l'exemple, les valeurs doivent être dans l'ordre ordinal des textbox Me.Controls("TextBox" & I).Value = Ligne Loop   Close #Index   Erase Tbl   Exit Sub   FIN:   MsgBox "Vérifier si le controle TextBox" & I & " existe !"   End Sub

---

Hervé.

Bonjour,

Ca ne fonctionne pas...

Si je remplace le chemin "C:\..." par la variable qui modifie x.pdf en x.txt, ça me retourne une chaîne vide.

Bonjour,

Je ne comprends pas, que vient faire le .pdf ici ? Tu parles de fichier texte donc de .txt et le fait de renommer un pdf en txt n'en fait pas pour autant un fichier texte !
Dans le fichier texte, les valeurs de chaque textbox doivent se trouver sur une ligne, exemple :
Valeur 1
Valeur 2
Valeur 3

Valeur 1 pour le TextBox1, Valeur 2 pour le TextBox2, etc...

Hervé.

Au temps pour moi !

Dans mon application, je dois charger deux fichiers : pdf et txt.

Sachant que le PDF contient un cv et que le fichier txt du même nom que le pdf des informations générales.

Par contre, je corrige : ça fonctionne parfaitement !

J'ai simplement inséré le code dans une procédure button_click.

Merci pour ton aide.