Discussion :

[Rough43]

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

[pgz]

Bonjour.

Tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub Test()
Dim i As Integer, s As String
 
If VerifClasseur("C:\Chemin\fichier1A.csv") = 53 Then s = s & vbCrLf & "Fichier fichier1A.csv introuvable"
If VerifClasseur("C:\Chemin\fichier1B.csv") = 53 Then s = s & vbCrLf & "Fichier fichier1B.csv introuvable"
If VerifClasseur("C:\Chemin\fichier1C.csv") = 53 Then s = s & vbCrLf & "Fichier fichier1C.csv introuvable"
 
If s <> "" Then MsgBox Mid$(s,3)
 
End Sub

Cordialement,

PGZ

[jfontaine]

Bonjour,

Pour ma part j'utilise FSO qui me permet de lister les fichiers d'un répertoire et ainsi faire ma vérification en utilisant les formules excel (Recherchev) a partir d'une liste des fichiers a trouver

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
 
Dim Fso As Object
Dim FsoRepertoire As Object
Dim FsoFichier As Object
Dim i As Long
 
Dim str() As String
 
Set Fso = CreateObject("Scripting.FileSystemObject")
Set FsoRepertoire = Fso.GetFolder("C:\")
 
'Boucle sur fichiers du repertoire
 
i = 1
For Each FsoFichier In FsoRepertoire.Files
    str = Split(FsoFichier.Name, ".")
    If str(UBound(str)) = "xls" Then
        Range("A" & i).Value = FsoFichier.Name
        i = i + 1
    End If
Next

[kiki29]

Salut,pour tester l'existence d'un fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Function ExistenceFichier(sFichier As String) As Boolean
    ExistenceFichier = Dir$(sFichier) <> ""
End Function

[Rough43]

J'ai testé vos réponses et cela a résolu mon problème!

Merci à jfontaine et à pgz!

Bien Cordialement!!

rough

et merci à kiki29!!!