VBA: Ouvrir Dossier dans Windows Explorer


VBA est un langage qui peut être utilisé non seulement avec la suite Microsoft Office mais également avec le système d'exploitation Windows. C'est ainsi qu'il est possible d'ouvrir un dossier particulier dans une nouvelle fenêtre de "Windows Explorer" (= l'explorateur des dossiers) avec VBA.

VBA: ouvrir dossier dans Windows Explorer

VBA: ouvrir dossier dans Windows Explorer

Pour faire cela, on fera appel à la fonction VBA  Shell. Cette fonction permet au VBA d'ouvrir une application / un logiciel (ici l'explorateur de dossiers Windows Explorer).

Appel à la fonction Shell pour ouvrir un dossier en VBA

Le code qui suit montre les différents paramètres de l'appel à la fonction Shell:

 

Dans cet exemple, la fonction est paramétrée pour ouvrir le dossier (fictif) C:\dossier_test\sous_dossier\

On fait passer dans cette fonction les arguments suivants:

  1. le chemin de l'application à ouvrir: Environ("WINDIR") & "\explorer.exe"
  2. le chemin du dossier à ouvrir dans Windows Explorer: le contenu de la variable MonDossier
  3. l 'information concernant la manière d'afficher le dossier nouvellement ouvert

Le paramètre vbNormalFocus ouvre le dossier dans une fenêtre normale qui sera active. Selon votre besoin, vous pouvez le remplacer par:

  • vbNormalNoFocus (taille normale, fenêtre pas active)
  • vbMaximizedFocus (taille maximisée, fenêtre active)
  • vbMinimizedFocus (taille minimisée, affichée comme une icône active)
  • vbMinimizedNoFocus (taille minimisée,  affichée comme une icône inactive)

Suivent deux codes VBA complets et prêts à l'utilisation (il suffit de les copier/coller) dans votre fichier/projet.

Procédure VBA: Ouvrir un dossier

Voici l'utilisation la plus simple et la plus directe – le nom du dossier fait partie du code. Pour éviter des erreurs, une vérification a été ajouté pour tester si le dossier que l'on veut ouvrir existe. Ce test est cependant facultatif.

 

Fonction VBA: Ouvrir un dossier

Cette fonction a un argument (de type String) qui contient le chemin vers le Dossier. Comme pour le code VBA précédent, la vérification de l'existence du dossier a été ajouté.

 

Remarque: comme vous l'avez constaté, on fait appel également à la fonction VBA Environ() qui nous permet d'obtenir les informations concernant le système. Pour en savoir plus: Explications et exemples d'utilisation de la fonction Environ()

 

14 0

 

Pourrait vous intéresser

Partagez cette page...
Share on FacebookShare on Google+Share on LinkedInTweet about this on TwitterShare on RedditShare on TumblrDigg thisEmail this to someone

Laissez un commentaire

Votre adresse de messagerie ne sera pas publiée.