J'ai ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
 Dim File As Collection
 Dim i As Integer
 Set File = Prog.AnalyzeFile(Text1.Text)
 For i = 1 To File.Count
  If Mid(File.Item(i), 1, 8) = "Message=" Then
   MsgBox "Message : " & Mid(File.Item(i), 9)
  End If
 Next i
End Sub
Comment faire pour que quand il a fini d'analyser il envoi quelque chose . . .

Je sais pas si ça pourrait être un truc comme ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Dim A as Boolean
If i > file.count then A=True
Merci