Bonjour a tous,
Voila je suis entrain de faire une petite application de rien du tout et j'ai un petit souci. Je suis un petit novice en prog.
Dans cette appli je dois etre capable de selectionner un a plusieurs fichiers qui seront visible dans une liste et lancer un traitement dont voici le code :
j'ai, lors de l'execution, une erreur : "Run-time Error 13" Type mismatch."
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 Private Sub Exec_Click() Dim i As Integer 'initialisation de la variable i = 0 'traitement sur la selection de fichiers For i = 0 To Me.List1 If Me.List1 = "" Then MsgBox "Aucun(s) fichier(s) à traiter", vbExclamation, "Traitement" Else 'Execution du traitement End If Next End Sub
1- cela vient-il de mon type de variable?
2- Est-ce que avec la boucle que j'utilise il me traitera bien tout les fichiers que j'aurais selectionnes et qui se trouveront dans ma list?
Merci pour votre aide.
Partager