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 ?