L'une des utilisations les plus avantageuses d'Excel VBA Dans cet article, je vais vous montrer comment vérifier si un fichier existe ou non sur nos ordinateurs en utilisant Excel. VBA .

Code VBA pour vérifier si un fichier existe ou non (vue rapide)

 Sub Check_If_a_File_Exists() Nom_de_fichier = "E:\ExcelWIKI\Book1.xlsm" Nom_de_fichier = Dir(Nom_de_fichier) Si Nom_de_fichier = "" Alors MsgBox "Le fichier n'existe pas." Else MsgBox "Le fichier existe." End If End Sub 

Télécharger le cahier d'exercices

Téléchargez ce cahier d'exercices pour vous entraîner pendant que vous lisez cet article.

Aperçu du code VBA permettant de vérifier si un fichier existe ou non (analyse étape par étape)

Donc, sans plus attendre, passons à notre discussion principale d'aujourd'hui. Nous allons décomposer la VBA code pas à pas pour apprendre comment vérifier si un fichier existe ou non sur nos ordinateurs.

⧪ Étape 1 : Insertion des données nécessaires

Au tout début du code, nous devons insérer les données nécessaires. Il n'y a qu'une seule entrée requise dans ce code, et c'est le nom du fichier que nous recherchons. Insérez le nom complet du fichier (avec le répertoire associé).

 Nom_fichier = "C:\ExcelWIKI\Book1.xlsm" 

⧪ Étape 2 : Extraction du nom du fichier avec la fonction Dir de VBA

Ensuite, nous allons utiliser une petite astuce. Nous allons utiliser la fonction VBA Fonction Dir pour extraire le nom du fichier. S'il n'existe pas de fichier de ce type, la commande Fonction Dir retournera une chaîne nulle.

 Nom_du_fichier = Dir(Nom_du_fichier) 

⧪ Étape 3 : vérification de l'existence du fichier à l'aide d'un bloc If.

C'est l'étape la plus importante. Nous avons dit précédemment que si aucun fichier du nom donné n'existe, la fonction Dir renvoie une chaîne de caractères nulle. Nous utiliserons cette propriété dans un fichier de type If-block pour vérifier si le fichier existe ou non.

 Si File_Name = "" Then MsgBox "Le fichier n'existe pas." Else MsgBox "Le fichier existe." End If 

Donc, le complet VBA Le code sera :

⧭ Code VBA :

 Sub Check_If_a_File_Exists() Nom_de_fichier = "E:\ExcelWIKI\Book1.xlsm" Nom_de_fichier = Dir(Nom_de_fichier) Si Nom_de_fichier = "" Alors MsgBox "Le fichier n'existe pas." Else MsgBox "Le fichier existe." End If End Sub 

⧭ Sortie :

Exécutez le code. Sur mon ordinateur, une boîte de message s'affiche, "Le fichier existe" parce qu'il existe réellement sur ma machine.

Sur votre machine, la sortie peut être différente selon que le fichier existe ou non.

Lire la suite : Excel VBA : vérifier si une feuille existe (2 méthodes simples)

Développer une macro pour vérifier l'existence ou non d'une plage de fichiers en utilisant Excel VBA

Ici, nous avons un ensemble de données dans une feuille de calcul Excel qui contient le nom de certains fichiers ainsi que les répertoires dans la gamme B4:B8 .

Notre objectif est de développer un Macro qui écrira Existe / N'existe pas à côté de chacun d'eux après avoir vérifié s'ils existent ou non sur l'ordinateur.

⧪ Étape 1 : ouverture de la fenêtre VBA

Appuyez sur ALT + F11 sur votre clavier pour ouvrir le Visual Basic fenêtre.

⧪ Étape 2 : Insertion d'un nouveau module

Aller à Insérer> ; Module dans la barre d'outils. Module Un nouveau module appelé Module1 (ou n'importe quoi d'autre en fonction de vos antécédents) s'ouvrira.

⧪ Étape 3 : Mise en place du code VBA

C'est l'étape la plus importante. Insérez les éléments suivants VBA dans le module.

⧭ Code VBA :

 Sub Check_If_a_Range_of_File_Exist() Set Rng = ActiveSheet.Range("B4:B8") For i = 1 To Rng.Rows.Count File_Name = Dir(Rng.Cells(i, 1)) If File_Name = "" Then Rng.Cells(i, 2) = "Doesn't Exist" Else Rng.Cells(i, 2) = "Exists" End If Next i End Sub 

⧪ Étape 5 : Exécution du code

Cliquez sur le Run Sub / UserForm dans la barre d'outils ci-dessus.

Le code s'exécutera. Et vous obtiendrez "Existe" pour les fichiers qui existent, et "N'existe pas" pour les fichiers qui n'existent pas.

Lire la suite : Comment vérifier si une valeur existe dans une plage dans Excel (8 façons)

Conclusion

Il s'agit donc du processus d'élaboration d'un Macro pour envoyer un courriel à partir d'Excel avec une pièce jointe. Vous avez des questions ? N'hésitez pas à nous les poser. Et n'oubliez pas de visiter notre site ExcelWIKI pour plus d'articles et de mises à jour.