Bonjour à tous,
Je suis étudiant ingénieur systèmes mécanique en stage et j'ai appris le VBA par mes propres moyens depuis 2 mois
Après avoir beaucoup cherché sur le net je viens vous poser ma question :
Est-il possible de récupérer une ligne (pointée) contenue dans un fichier texte ?
je veux dire par là, en gros, comment dire en vba "Va me chercher le contenu de cette ligne !"
voici ce que j'arrive à faire :
Code :
- Dim oFSO As Scripting.FileSystemObject
- Dim oFl As Scripting.File
- Dim oTxt As Scripting.TextStream
- 'Instanciation du FSO
- Set oFSO = New Scripting.FileSystemObject
- Set oFl = oFSO.GetFile(filePath)
- Set oTxt = oFl.OpenAsTextStream(ForReading)
- While Not oTxt.AtEndOfStream
- oTxt.ReadAll
- MsgBox oTxt.line
- Wend
|
ce morceau de programme m'affiche le nombre de lignes de mon fichier texte (filePath c'est le chemin du fichier bien entendu), je n'arrive à rien de plus
aussi, je me suis rendu compte qu'à la fin de ma boucle while, je me retrouve à la fin de mon fichier, et donc j'arrive plus à travailler avec. il faut le fermer et le rouvrir ?
Merci d'avance pour votre aide !
Romain