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:
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
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
alors que je devrais avoir à acquitter chaque MsgBox pour passer à la ligne suivante et aussi incrémenter mon compteur itération..