VBA: Vérifier si le Dossier existe

Avez vous besoin de vérifier si un dossier existe? En VBA, tester l'existence d'un dossier (répertoire) est une affaire assez simple. Pour cela, tout comme lors de la vérification si un fichier existe en VBA, nous allons utiliser la combinaison de deux fonctions VBA : Len et Dir

La fonction Dir retourne le nom du répertoire spécifié (en tant que variable de type String). Il suffit ensuite de déterminer la longueur du résultat avec la fonction Len. Si le résultat est >0, cela signifie que le dossier existe.

Contrairement à la vérification de l'existence d'un fichier, il est nécessaire de mentionner dans la fonction Dir que nous cherchons un dossier.  Cela se fera en utilisant la constante vbDirectory en tant que seconde argument (optionnel) de la fonction Dir.

Après la théorie, voici donc la pratique…

Fonction VBA pour tester l'existence d'un dossier

La fonction suivante utilise un paramètre (de type String) qui contient le chemin complet vers le dossier testé. Le résultat retourné par la fonction sera l'une des valeurs True (si répertoire existe) ou False (s'il n'existe pas).

La présence ou non de la barre oblique inverse ("\") à la fin du chemin du dossier n'influence pas le résultat. Donc peu importe si vous utilisez C:\Temp ou C:\Temp\, le résultat sera le même…

Exemple de vérification de l'existence d'un dossier en VBA

Ci-dessous, vous trouverez le code VBA qui illustre l'utilisation de la fonction DossierExiste dont le code se trouve plus haut.

Dans cet exemple, on vérifie si le dossier "Dossier_test" existe sur le disque "C:\".

Pour aller plus loin en VBA

Si un répertoire n'existe pas, il ne reste alors qu'à le créer! Rien de plus facile: VBA est là pour cela: Création des dossiers et sous-dossiers en VBA

Et si le dossier existe, vous pouvez facilement le copier: VBA: copier un dossier et son contenu

Vous pouvez trouver plus d'informations sur la fonction Dir sur la page internet qui lui est dédiée sur le site de Microsoft.

Et pour terminer, voici quelques tutoriels et codes VBA qui pourraient vous être utiles…

• Liste de toutes les fonctions disponibles en VBA
• La structure Select Case en VBA – comment facilement gérer des conditions multiples
• Fonctions Excel en VBA: comment utiliser RECHERCHEV directement en VBA
• Débloquer VBA dans les fichiers venant d'internet
• Compresser et décompresser avec ZIP en VBA