VBA Excel – Accès aux dossiers spéciaux

Il est très simple de connaitre le chemin du dossier d’installation de Windows, du dossier système et du dossier des fichiers temporaire. Commencez par créer un objet Scripting.FileSystemObject :

Dim fs As New Scripting.FileSystemObject

Les dossiers spéciaux sont accessibles avec la fonction GetSpecialFolder() de l’objet Scripting.FileSystemObject.

Pour connaitre le dossier d’installation de Windows, passez la constante WindowsFolder ou la valeur 0 à cette fonction :

MsgBox fs.GetSpecialFolder(WindowsFolder)

MsgBox fs.GetSpecialFolder(0)

Lire la suite