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 ?
Importer un fichier
- Excel-Malin
- Membre habitué
- Messages : 118
- Appréciation reçue : 1
- Inscrit le : 29 janvier 2015
- Version d'Excel : 2016 FR, 2013 EN
- Contact :
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
-
- Sujets similaires
- Réponses
- Vues
- Dernier message
-
-
Importer les données d'un fichier vers un nouveau fichier Excel
par wafi » 21 mai 2019, 10:19 » dans Excel - VBA - 7 Réponses
- 259 Vues
-
Dernier message par wafi
22 mai 2019, 15:26
-
-
-
Importer des mots d'une cellule d'un fichier Excel à un autre fichier Excel
par Clem31140 » 21 août 2019, 13:36 » dans Excel - VBA - 12 Réponses
- 106 Vues
-
Dernier message par Clem31140
23 août 2019, 13:02
-
-
- 1 Réponses
- 733 Vues
-
Dernier message par LouReeD
30 décembre 2015, 22:43
-
- 2 Réponses
- 200 Vues
-
Dernier message par jmd
5 novembre 2018, 10:11
-
- 4 Réponses
- 77 Vues
-
Dernier message par jmd
29 mai 2019, 09:30
-
- 6 Réponses
- 240 Vues
-
Dernier message par etsije
29 octobre 2015, 11:54