recuperer des données de fichier txt dans des labels

[fabian123]

Bonjour à toutes et tous!

je crois que la question est dans le titre!

j'ai donc un fichier .txt dans lequel est enregistré des informations (séparées les unes des autres par une tabulation)
Je précise que je n'ai dans ce fichier qu'une seule ligne et qu'il n'y en aura jamais plus.
exemple:

Nom (tabulation) Prénom (tabulation) âge

Je souhaiterais charger dans des label (plaçé dans un formulaire) les infos de mon fichier txt...

label1.caption = Nom (repris dans mon fichier txt)
label2.caption = Prénom(repris dans mon fichier txt)
label3.caption = âge(repris dans mon fichier txt)

si quelqu'un peut m'aider... je bloque!

je sais que je dois ouvrir mon fichier txt, que je dois utiliser la fonction input...mais après, je ne sais pas comment reprendre chaque info et la replacer dans le label correspondant.

Merci d'avance pour votre aide!

 

[fabian123]

Re : recuperer des données de fichier txt dans des labels

j'ai trouvé un début de réponse avec ce code, mais je n'arrive pas à séparer les éléments de mon fichier txt. Avec ce code, il m'affiche toute la phrase dans mon label1 (Nom Prénom Age)

voici mon code:

Open ThisWorkbook.Path & "\Coordonnees.txt" For Input As #1
While Not EOF(1)
Input #1, a$
Label.Nom.Caption = NomCoach.Caption + a$ + Chr$(13) + Chr$(10)
Label.Prenom.Caption = ??
Label.Age.Caption = ??
Wend
Close #1

 

[RENAUDER]

Re : recuperer des données de fichier txt dans des labels

Bonjour,

j'ai fait un essai chez moi et voici le code

Private Sub UserForm_Activate()
    Open ActiveWorkbook.Path & "\labels.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, txtLine
        Tbl = Split(txtLine, vbTab)
        'Ecrit les données dans les labels
        Me.lblNom.Caption = Tbl(0)
        Me.lblPrenom.Caption = Tbl(1)
        Me.lblAge.Caption = Tbl(2)
    Loop
    Close #1
End Sub

Fichiers joints (à mettre dans le même répertoire)

 

[fabian123]

Re : recuperer des données de fichier txt dans des labels

Bonjour RENAUDER,


Merci ça fonctionne très bien!!

Merci beaucoup pour ton aide!