Lorsque vous programmez vos macros, vous devrez peut-être déterminer si un fichier particulier existe sur le disque. Par exemple, le but de votre macro peut être d’ouvrir et de lire à partir d’un fichier texte. Avant de faire cela, vous voudrez vérifier si le fichier existe, afin d’éviter une erreur.

La fonction VBA suivante peut être utilisée pour vérifier l’existence d’un fichier. Tout ce que vous avez à faire est de lui transmettre le nom de fichier complet sous forme de chaîne, et la macro renvoie soit True (si le fichier existe), soit False (si ce n’est pas le cas).

Function FileThere(FileName As String) As Boolean      FileThere = (Dir(FileName) > "")

End Function

Cette fonction fonctionne à l’aide de la fonction Dir, qui recherche un fichier dans un répertoire. Si le fichier existe, Dir renvoie le chemin complet du fichier. La condition Vrai / Faux de la fonction est dérivée en comparant ce que Dir renvoie à une chaîne vide. Si quelque chose est renvoyé, le fichier existe car Dir ne renvoie pas de chaîne vide.

Vous pouvez utiliser la fonction similaire à la suivante:

If FileThere("c:\myfile.txt") Then      '      ' Do stuff here      ' Else      MsgBox "File Not There!"

End If

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2516) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Determining_If_a_File_Exists [Déterminer si un fichier existe].