bonjour et bien à vous,

voila j'ai un petit souci avec une boucle...Pour expliquer rapidement j'ai une listbox dans laquelle est contenu des noms de fichiers que je selectionne.

Dans mon code je lance un traitement et j'affiche un message pour la tester.
Mon souci c'est que dans mon message c'est toujours le meme nom de fichier
qui s'inscrit et c'est le dernier de la liste....

voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub Exec_Click()
Dim i As Variant
Dim TmpFile As String
Dim idFile As String
 
 
'initialisation de la variable
i = 0
 
 
If Me.List1 = "" Then
  'Message indiquant qu'il n'y a aucun fichier dans la selection
   MsgBox "Aucun(s) fichier(s) à traiter", vbExclamation, "Traitement"
Else
 
'Execution du traitement
  For i = 0 To List1.ListCount - 1
   idFile = List1.ListIndex
   FileName = List1.List(idFile)
 
     MsgBox "Fichier en cours de selection : " & FileName
  Next 
   'Temporisation permettant au traitement de se terminer correctement
   'Call Pause(3)
End If
End Sub
Est-ce que quelqu'un pourrait me dire ou ca ne va pas svp?

MErci pour votre aide et bon week a vous!!