Bonjour à tous,

Débutant VBA, j'ai crée un macro qui vérifie la présence de fichiers excel dans un répertoire et il m'envoie un msgbox si fichier manquant. mais si plusieurs fichiers manquants, serait il possible qu'un seul msgbox précisant quels fichiers manquants?

exemple :

fichier1A.csv
fichier1B.csv
fichier1C.csv
fichier2A.csv
fichier2B.csv
fichier2C.csv et ainsi de suite (en gros une douzaine)

voici macro :
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
27
28
29
30
31
32
33
34
35
Sub Test()
Dim i As Integer
 
    i = VerifClasseur("C:\Chemin\fichier1A.csv")
    Select Case i
         Case 53: MsgBox "Fichier fichier1A.csv introuvable"
      End Select
 
     i = VerifClasseur("C:\Chemin\fichier1B.csv")
    Select Case i
        Case 53: MsgBox "Fichier fichier1B.csv introuvable"
    End Select
 
    i = VerifClasseur("C:\Chemin\fichier1C.csv")
    Select Case i
         Case 53: MsgBox "Fichier fichier1C.csv introuvable"
     End Select
 
 
End Sub
 
 Private Function VerifClasseur(Fichier As String) As Integer
Dim x As Integer
 
    On Error Resume Next
    x = FreeFile()
 
    Open Fichier For Input Lock Read As #x
    Close x
 
    VerifClasseur = Err.Number
 
    On Error GoTo 0
 
End Function
Je pense qu'il est possible de simplifier ce code?

Merci d'avance
Rough