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)
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)
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