FAQ: Comment créer un répertoire en VBA


#1

Bonjour
Une question fréquemment posée sur Excel:

Comment vérifier l’existence d’un répertoire et le créer s’il n’existe pas en VBA? (Par exemple pour y sauver un fichier)


#2

La fonction VBA suivante permet de verifier l’existence d’un dossier et de le creer si besoin

Function creerRepertoire(Chemin As String) As Boolean
On Error Resume Next
creerRepertoire= GetAttr(Chemin) And vbDirectory
    If creerRepertoire= True Then
        Exit Function
    Else
        MkDir (Chemin)
    End If
End Function

il suffit ensuite de l’utiliser ainsi dans une macro :

creerRepertoire("C:\mon_nouveau_dossier")

On fait notamment appel aux instructions MkDir pour créer un dossier et GetAttr pour verifier l’existence