Menu
Donnez votre avis

VBA - Test si un fichier existe

Posez votre question



Cette fonction teste si un fichier existe dans un répertoire donné. Si le nom du fichier n'est pas définit dans l'appel, la fonction retourne Faux.


Exemple d'appel :
Option Explicit

Sub TestFic()
Dim mFic As String, mRep As String
    
    mFic = "MonFichier.txt"
    mRep = "C:\"
    MsgBox Fichier_Existe(mFic, mRep, "\")
End Sub

Fonction :
Function Fichier_Existe(F As String, D As String, Sep As String) As Boolean
    If F <> "" Then
        D = IIf(Right(D, 1) = Sep, D, D & Sep)
        Fichier_Existe = (Dir(D & F) <> "")
    End If
End Function

Publié par pijaku.

Ce document intitulé «  VBA - Test si un fichier existe  » issu de CommentCaMarche (https://www.commentcamarche.net/) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Ajouter un commentaire

Commentaires

Commenter la réponse de Utilisateur anonyme
VBA - Test si un nombre est pair ou impair
VBA - Fonction retournant l'alphabet