Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Supposons que vous ayez un dossier contenant plusieurs fichiers et que vous souhaitiez identifier si un fichier spécifique existe dans ce dossier à partir d'Excel. Cet article, je vais vous présenter une méthode rapide pour vous de vérifier si un fichier existe dans un dossier spécifique dans les détails via Excel.

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


flèche bleue droite bulle Vérifiez si un fichier existe dans un dossier spécifique avec le code VBA


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

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans la fenêtre du module.

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

Sub Test_File_Exist_With_Dir()
'Updateby Extendoffice 20161109
    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 exist", vbInformation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = False
End Sub

Remarque: Dans le code ci-dessus, vous devez modifier le chemin d'accès et le nom du fichier C: \ Users \ DT168 \ Desktop \ Dossier de test \ Book2.xlsx " à votre besoin.

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

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

doc si le fichier existe 1

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

doc si le fichier existe 2



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.