Comment déterminer si un fichier existe dans VBA Excel

Instructions

1. Copiez le code suivant:

   Option Explicit

   Fonction FileOrDirExists (chemin d'accès As String) As Boolean

    «Objet Macro: la fonction retourne TRUE si le fichier spécifié
   »Ou dossier existe, false sinon.
   'PathName: Supporte Windows lecteurs mappés ou UNC
   ': Prise en charge des chemins Macintosh
   «Utilisation du fichier: Fournir chemin complet du fichier et l'extension
   'Utilisation des dossiers: Fournir chemin complet du dossier
   «Accepte avec / sans fuite" "(Windows)
   «Accepte avec / sans fuite": "(Macintosh)
   Dim iTEMP As Integer
   «Ignorer les erreurs pour permettre une évaluation d'erreur
   On Error Resume Next
   iTEMP = GetAttr (PathName)
   'Vérifiez si l'erreur existe et mis réponse appropriée
   Select Case Err.Number
   Case Is = 0
   
   
   
   FileOrDirExists = True
   Case Else
   FileOrDirExists = False
   End Select
   «Vérification des erreurs de CV
   On Error Goto 0
    

   End Function

   TestItWithWindows sub ()

    «Objet Macro: Pour tester la fonction de FileOrDirExists avec Windows
   «Seulement inclus pour démontrer la fonction. Non requis pour une utilisation normale!
   Dim sPath As String
   «Changez votre répertoire ici
   sPath = "C: Test.xls"
   'Test si le répertoire ou le fichier existe
   Si FileOrDirExists (Späth), puis
   MsgBox sPath "Existe!"
   Autre
   MsgBox sPath " n'existe pas."
   Fin si
    

   
   
   

   End Sub

   Sous TestItWithMacintosh ()

    «Objet Macro: Pour tester la fonction de FileOrDirExists avec un Macintosh
   «Seulement inclus pour démontrer la fonction. Non requis pour une utilisation normale!
   Dim sPath As String
   «Changez votre répertoire ici
   sPath = "HardDriveName: Documents: Test.doc"
   'Test si le répertoire ou le fichier existe
   Si FileOrDirExists (Späth), puis
   MsgBox sPath "Existe!"
   Autre
   MsgBox sPath " n'existe pas."
   Fin si
    

   End Sub

2. Ouvrez Excel et appuyez sur "Alt-F11" pour entrer dans le Visual Basic Editor.

3. Cliquez sur "Insérer" puis cliquez sur "Module".

4. Collez le code dans la droite; volet de la main en appuyant sur "Ctrl" V ".

5. Changer "Text.xls» au nom de fichier que vous recherchez.

6. Appuyez sur "F5" pour exécuter la procédure. La procédure sera de retour une fenêtre pop-up vous indiquant si le fichier existe.

/ ol '}, google_image_size:' 336x280 '}) - AdblockPlus.detect (function (usesABP) {if (usesABP) {googleAds.overrideAd (' GoogleAdsense336x280 ', {google_ad_channel:' cpu_computer_software, texte, suggested8, Art6 '}) - }}) -