Cette macro est utile pour les personnes qui travaillent régulièrement avec des fichiers dispersés n’importe où sur le disque. Par exemple, vous devez ouvrir un classeur existant pour y entrer des données quotidiennes. Dans de tels cas, il peut être utile de vérifier si le fichier requis existe réellement. La macro suivante vous permet de vérifier si le fichier existe en utilisant le chemin d’accès pour accéder au fichier.
Comment ca marche?
La première chose à faire attention: la macro décrite ci-dessous est une fonction, pas une procédure. Grâce à cela, nous pouvons utiliser n’importe quel chemin pour accéder au fichier qu’il contient.
La fonction Dir a été utilisée dans la macro. Il renvoie le nom du fichier (sous la forme d’une série de caractères). Cette fonction peut être utilisée de plusieurs manières. Dans ce cas, nous vérifierons si le chemin d’accès spécifié au fichier existe.
Function FichierExiste (FPath As String) As Boolean 'Étape 1: Déclarer une variable Dim NomF As String 'Étape 2: Télécharger le nom du fichier en utilisant la fonction Dir NomF = Dir(FPath) 'Étape 3: Si le fichier existe, retournez True, sinon - False If NomF <> "" Then FichierExiste = True _ Else: FichierExiste = False End Function
Commentaires
1. À la première étape, une variable est déclarée qui stocke le nom de fichier renvoyé par la fonction Dir. NomF est le nom de cette variable.
2. À l’étape deux, nous passons à la définition de la variable NomF. Pour cela, nous passons la variable FPath à la fonction Dir, qui passe par la déclaration de fonction (voir la première ligne de code). Une telle solution permet d’utiliser la variable au lieu du codage permanent du chemin du fichier.
3. Si la variable NomF ne peut pas être définie, cela signifie que le chemin d’accès indiqué n’existe pas. La variable FName sera vide. Dans la troisième étape, les résultats sont transférés aux mots True et False.
Il peut être utilisé pour vérifier n’importe quel chemin pour descendre au brochet. Voici la possibilité de sauvegarder cette macro en tant que fonction.
Vous trouverez ci-dessous une macro qui vous permet d’utiliser cette fonction.
Sub MaMacro() If FichierExiste("C:\Temp\monfichier.xlsx") = True Then MsgBox "Le fichier existe." Else MsgBox "Le fichier n'existe pas." End If End Sub
Comment utiliser la macro?
Pour implémenter cette macro, vous pouvez copier et coller les deux extraits de code dans une version standard. À cette fin:
1. Utilisez les touches Alt + F11 pour activer Visual Basic Editor.
2. Dans la fenêtre Projet, cliquez avec le bouton droit sur le nom du projet ou de la feuille de calcul.
3. Sélectionnez Insérer / Module dans le menu.
4. Tapez ou collez le code dans le module nouvellement créé.