Vérifier si le fichier est déjà dans un dossier, Excel VBA

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éé.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x