[Excel VBA] Créer des dossiers sous VBA
Résolu
Bonjour à tous,
Je souhaiterais ajouter une commande à l’un de mes codes VBA qui crée un dossier si celui n’existe pas.
J’utilise sans problème la commande mkdir pour créer le dossier, mais pas la commande folderexists pour vérifier préalablement qu’il n’existe pas (à dire vrai je ne comprends ni l’aide de VBA, ni celle de Microsoft Online pour cette commande).
Quelqu’un pourrait-il m’aider ?
Juste une dernière chose, le nom du dossier n’est pas fixe. Ma commande mkdir est par exemple :
MkDir ("test\" & Cells(1, 1).Value)
D’avance merci !
Je souhaiterais ajouter une commande à l’un de mes codes VBA qui crée un dossier si celui n’existe pas.
J’utilise sans problème la commande mkdir pour créer le dossier, mais pas la commande folderexists pour vérifier préalablement qu’il n’existe pas (à dire vrai je ne comprends ni l’aide de VBA, ni celle de Microsoft Online pour cette commande).
Quelqu’un pourrait-il m’aider ?
Juste une dernière chose, le nom du dossier n’est pas fixe. Ma commande mkdir est par exemple :
MkDir ("test\" & Cells(1, 1).Value)
D’avance merci !
Configuration: Windows XP Internet Explorer 6.0
8 réponses
-
Une fonction qui fait ce que tu veux :
'Fonction qui vérifie si le dossier spécifié existe
Function RepertoireExiste(Chemin As String) As Boolean
On Error Resume Next
RepertoireExiste = GetAttr(Chemin) And vbDirectory
End Function
Après, il n'y a plus qu'à tester : If Not (RepertoireExiste(Name)) Then
