recuperer des données de fichier txt dans des labels

fabian123

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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

Nous a quitté
Repose en paix
Re : recuperer des données de fichier txt dans des labels

Bonjour,

j'ai fait un essai chez moi et voici le code
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)
 

Pièces jointes

  • Labels.zip
    8.6 KB · Affichages: 22

Discussions similaires

Réponses
3
Affichages
372

Statistiques des forums

Discussions
312 938
Messages
2 093 780
Membres
105 825
dernier inscrit
Bestio Flavio