Bonjour.
J'ai ce bout de code VBA qui devrait me lire le contenu d'un fichier .CSV ligne par ligne et m'afficher chaque ligne dans une MsgBox:
Au lieu de cela, ma MsgBox texte m'affiche toutes les lignes de mon fichiers (les 35 premières plus précisément) les unes en dessous des autres, puis une fois acquittée, ma MsgBox itération m'affiche le N°1
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub lecture(fichier As String) Dim it As Integer Open fichier For Input As #1 Do While Not EOF(1) Line Input #1, texte MsgBox texte it = it + 1 MsgBox "itération N° " & it Loop Close #1 End Sub
alors que je devrais avoir à acquitter chaque MsgBox pour passer à la ligne suivante et aussi incrémenter mon compteur itération..
Partager