Comment vérifier si un fichier existe dans un dossier spécifique ?

Si vous avez un dossier contenant plusieurs fichiers et que vous devez déterminer si un fichier spécifique existe, Excel peut vous aider à automatiser cette tâche. Cet article fournit une méthode VBA simple pour vérifier si un fichier existe dans un dossier donné.

Vérifiez si un fichier existe dans un dossier spécifique avec du code VBA

Vérifiez si un fichier existe dans un dossier spécifique avec du code VBA

Pour vérifier si un fichier existe ou non dans un dossier spécifique sur une feuille de calcul Excel, vous pouvez appliquer le code VBA suivant, veuillez procéder comme suit :

1. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.

Code VBA : Vérifiez si un fichier existe dans un dossier spécifique :

Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice
    Application.ScreenUpdating = False
    Dim FilePath As String
    FilePath = ""
    On Error Resume Next
    FilePath = Dir("C:\Users\DT168\Desktop\Test folder\Book2.xlsx")
    On Error GoTo 0
    If FilePath = "" Then
        MsgBox "File doesn't exist", vbInformation, "Kutools for Excel"
    Else
        MsgBox "File exists", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = False
End Sub

Remarque : Dans le code ci-dessus, vous devez modifier le chemin et le nom du fichier C:\Users\DT168\Desktop\Test folder\Book2.xlsx" selon vos besoins.

3. Après avoir collé le code, appuyez sur la touche F5 pour exécuter ce code :

(1.) Si le fichier existe, vous obtiendrez la capture d'écran suivante :

(2.) Si le fichier n'existe pas, vous recevrez l'avertissement suivant :