Importer un fichier

[yann5990]

Bonjour,

J'essaie d'afficher dans les cases excel:

Le nom de l'étudiant
Les notes qu'il a reçu

Pour cela je dois importer dans Excel un fichier .txt du genre:

Matthieu Dupont;4;15;11.5;12
Pierre Durand;9;18;12;9.5
...

J'ai essayé de faire ceci:

Dim monFichierSource As String
Dim texte As String
Dim ligneTexte As String

monFichierSource = Application.GetOpenFilename()

Open monFichierSource For Input As #1
Range("A1").Select

Do Until EOF(1)
Line Input #1, ligneTexte
ActiveCell.Value = ligneTexte
ActiveCell.Offset(1, 0).Select
Loop
Close #1

Mais ça marche pas car je n'arrive pas à séparer le texte lorsqu'il y a un ";"
Quelqu'un peut m'aider svp ?

[Excel-Malin]

Pour faire simple, tu peux utiliser ceci:

Dim monFichierSource As String
Dim texte As String
Dim ligneTexte As String

monFichierSource = Application.GetOpenFilename()

Open monFichierSource For Input As #1
Range("A1").Select

Do Until EOF(1)
Line Input #1, ligneTexte
ActiveCell.Value = ligneTexte
ActiveCell.Offset(1, 0).Select
Loop
Close #1

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Semicolon:=True