Déterminer si un classeur existe en utilisant VBA dans Microsoft Excel

Posted on: 2020年10月22日 2020年11月12日
Tags: files-workbook-and-worksheets-in-vba

Dans Microsoft Excel, nous pouvons vérifier si le fichier existe à un emplacement spécifique à l’aide du code VBA. La macro affichera l’état sous forme de boîte de message. Dans cet article, nous identifierons, si l’état d’un fichier spécifique existe ou non, à l’aide du code VBA. Nous pouvons utiliser la fonction Dir pour vérifier si le fichier existe à l’emplacement en utilisant Excel VBA.

En utilisant ce programme, nous pouvons vérifier s’il existe un fichier qui existe déjà au même emplacement. Pour que nous puissions supprimer ou renommer l’ancien fichier.

===

Question: Lorsque nous créons une macro pour automatiser la tâche, nous enregistrons généralement le fichier de sortie dans un emplacement. Je voudrais avoir une macro pour vérifier et montrer en retour que le fichier est disponible ou non sur le chemin spécifique.

Pour illustrer cet exemple, nous allons enregistrer le fichier «Sample.xlsx» dans le chemin «D: \ FolderName \ Sample.xlsx»

Pour identifier si le classeur existe, nous devons suivre les étapes ci-dessous pour lancer l’éditeur VB:

Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic

===

Cliquez sur Insérer puis Module Cela créera un nouveau module * Entrez le code suivant dans le module standard

Sub FileExists()

Dim FilePath As String

Dim TestStr As String

FilePath = "D:\FolderName\Sample.xlsx"

TestStr = ""

On Error Resume Next

TestStr = Dir(FilePath)

On Error GoTo 0

If TestStr = "" Then

MsgBox "File doesn't exist"

Else

Workbooks.Open "D:\FolderName\Sample.xlsx"

End If

End Sub

Maintenant que la macro est prête à fonctionner, nous utiliserons la touche de raccourci F5 et le fichier «Sample» s’ouvrira

Si le fichier n’est pas disponible au chemin prédéfini, la boîte de message suivante s’affiche

Si vous avez aimé nos blogs, partagez-les avec vos amis sur Facebook. Et vous pouvez aussi nous suivre sur Twitter et Facebook.

Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer, compléter ou innover notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]