Importer un fichier

Y compris Power BI, Power Query et toute autre question en lien avec Excel
y
yann5990
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 23 avril 2015
Version d'Excel : 2007 FR

Message par yann5990 » 23 avril 2015, 14:06

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 ?
Avatar du membre
Excel-Malin
Membre habitué
Membre habitué
Messages : 118
Appréciation reçue : 1
Inscrit le : 29 janvier 2015
Version d'Excel : 2016 FR, 2013 EN
Contact :

Message par Excel-Malin » 23 avril 2015, 14:16

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
Encore plus sur Excel et VBA: Excel-Malin.com
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message