Comment vérifier si un fichier existe dans un dossier puis le supprimer dans Excel ?

Dans ce tutoriel, vous apprendrez un script VBA pour vérifier si un fichier spécifique existe dans un dossier désigné, et s'il existe, le supprimer du dossier dans Excel.

Vérifiez si un fichier existe dans un dossier puis supprimez-le dans Excel avec un code VBA

Le script VBA suivant permet de vérifier si un fichier spécifique existe dans un dossier et de le supprimer s'il est présent. Veuillez procéder comme suit.

1. Dans un classeur Excel ouvert, appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Dans la fenêtre Microsoft Visual Basic for Applications, cliquez sur Insérer > Module, puis copiez le script VBA suivant dans la fenêtre Module (Code).

Code VBA : Vérifiez si un fichier existe dans un dossier spécifié, puis supprimez-le

Sub CheckFileThenDelete()
'Updated by Extendoffice 20221024
Dim FilePath As String
    FilePath = "C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx"
    
    If Dir(FilePath) <> "" Then
    MsgBox "The file exists in the folder, click the OK button to delete it.", vbInformation, "Kutools for Excel"
        Kill FilePath
    Else
    If Dir(FilePath) = "" Then
    MsgBox "The file does not exist.", vbInformation, "Kutools for Excel"
    End If
    End If
End Sub

Remarque : Dans le code VBA, C:\Users\Win10x64Test\Desktop\save attachments\aaa.xlsx est le chemin du fichier que vous souhaitez vérifier. Dans cet exemple, je veux vérifier si un fichier Excel nommé “aaa” existe dans un dossier nommé “save attachments” sur le bureau. Vous pouvez modifier le chemin du fichier et l'extension pour répondre à vos besoins.

3. Appuyez sur la touche F5 pour exécuter le code.

4. Si le fichier existe, une boîte de dialogue Kutools pour Excel apparaîtra comme indiqué dans la capture d'écran ci-dessous. Cliquez sur le bouton OK pour supprimer ce fichier du dossier.

Si le fichier n'existe pas dans le dossier, une autre boîte de dialogue Kutools pour Excel apparaîtra également pour vous avertir.