Une macro Excel pour déterminer si un classeur existe - nuls

Cette macro Excel vous permet de passer un chemin de fichier pour évaluer si le fichier est là. Par exemple, vous pouvez avoir un processus qui manipule un fichier quelque part sur votre PC. Par exemple, vous devrez peut-être ouvrir un classeur existant pour y ajouter des données quotidiennement. Dans ce cas, vous devrez peut-être tester pour voir si le fichier que vous devez manipuler existe.

Fonctionnement de la macro

La première chose à remarquer à propos de cette macro est qu'elle est une fonction et non une procédure Sub. Faire de cette macro une fonction vous permet de lui passer n'importe quel chemin de fichier.

Dans cette macro, vous utilisez la fonction Dir, qui renvoie une chaîne qui représente le nom du fichier correspondant à ce que vous lui passez. Cette fonction peut être utilisée de plusieurs façons, mais ici, vous l'utilisez pour vérifier si le chemin du fichier que vous lui passez existe:

Fonction FileExists (FPath As String) As Boolean 'Étape 1: Déclarez vos variables Dim FName As String 'Etape 2: Utilisez la fonction Dir pour obtenir le nom de fichier FName = Dir (FPath)' Etape 3: Si le fichier existe, renvoyez True; sinon False If FName "Then FileExists = Vrai _ Else: FileExists = False Fin Fonction

L'étape 1 déclare une variable String qui contient le nom de fichier renvoyé par la fonction Dir. FName est le nom de la variable String.

< ! --2 ->

A l'étape 2, vous essayez de définir la variable FName en passant la variable FPath à la fonction Dir. Cette variable FPath est passée via les déclarations de fonctions (voir la première ligne de le code).Cette structure vous empêche d'avoir à coder en dur un chemin de fichier, en le passant comme une variable.

Si la variable FName ne peut pas être définie, le chemin que vous avez passé n'existe pas. variable est vide L'étape 3 traduit simplement ce résultat en une expression Vrai ou Faux.

Encore une fois, cette fonction peut être utilisée pour évaluer n'importe quel chemin de fichier que vous lui passez. la beauté de l'écriture de la macro en tant que fonction

La macro suivante montre comment utiliser cette fonction:

Sub Macro1 () Si FileExists ("C: TempMyNewBook ​​.xlsx") = True Then MsgBox "Fichier existe". Sinon MsgBox "Fichier inexistant". End If End Sub

Comment utiliser la macro

Pour implémenter cette macro, vous pouvez copier et coller les deux parties du code dans un module standard:

1. Activez Visual Basic Editor en appuyant sur Alt + F11.

2. Cliquez avec le bouton droit sur le nom du projet / classeur dans la fenêtre du projet.

3. Choisissez Insérer → Module.

4. Tapez ou collez le code dans le nouveau module.