Importer un fichier

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 ?

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
Rechercher des sujets similaires à "importer fichier"