Vérifier l'existence d'un fichier

Ce code permet de vérifier qu'un fichier existe ou non, de 2 méthodes différentes.

La première méthode permet de vérifier l'existence du fichier en spécifiant le chemin complet + le nom du fichier à vérifier.
L'argument "strDirFile" représente donc le chemin complet du fichier à vérifier.

Public Function FileExist(strDirFile) As Boolean

If Dir(strDirFile) <> "" Then FileExist = True

End Function

La deuxième méthode permet de vérifier l'existence du fichier en spécifiant d'une part le nom du répertoire ou vérifié, et d'autre part, le nom du fichier à vérifé.
L'argument "strDir" correspond au nom du répertoire et l'argument "strFile" correspond au nom du fichier.

Public Function FileExistBis(strDir As String, _
strFile As String) As Boolean

With Application.FileSearch
    .LookIn = strDir
    .FileName = strFile
    .FileType = msoFileTypeAllFiles
    FileExistBis = False
    If .execute > 1 Then FileExistBis = True
End With

End Function

Auteur : Jessy SEMPERE