Création et vérification d'un dossier

[billouu]

Bonjour,

Je souhaiterai créer une macro qui me permet, lors de l'appui sur un bouton de créer un dossier. Seulement j'ai besoin de vérifier avant si ce dossier existe déjà. Donc la création du fichier fonctionne lors du premier appui sur le bouton, mais lors du second (quand le fichier existe déjà) cela ne fonctionne pas.

Private Sub CommandButton1_Click()
If ("E:MES_DOCUMENTS\Thèmes\Annexes 1") = "" Then
MkDir ("E:\MES_DOCUMENTS\Thèmes\Annexes 1")
Else: End If
End Sub

Il me marque erreur de chemin d'accès "erreur 75"

 

[Staple1600]

Re : Création et vérification d'un dossier

Bonjour

EDITION :voici deux exemples (adapter les noms en conséquence)

Sub testdossier()
Dim Chemin$, Nom_Dossier$
Chemin = "D:\Test\"
Nom_Dossier = "Annexes 1"
If Dir(Chemin & Nom_Dossier, vbDirectory) = "" Then
MkDir (Chemin & Nom_Dossier)
End If
End Sub
Sub testdossierII()
If Dir("D:\Test\Annexes 1", vbDirectory) = "" Then
MkDir ("D:\Test\Annexes 1")
End If
End Sub

Utilises la fonction Dir
Regardes l'aide VBA (ALT+F11 puis F1). Il y a un très bel exemple

MyName = Dir(MyPath, vbDirectory) ' Extrait la première entrée. Do While MyName <> "" ' Commence la boucle.

 

[billouu]

Re : Création et vérification d'un dossier

Merci beaucoup Staple, c'est le "vddirectory" que je ne comprenai pas, dailleurs a vrai dire jvoi pas vraiment ce qu'il signifie, enfin ... cela fonctionne

Je voudrais également savoir s'il est possible de rajouter une fonction afin d'ouvrir ce dossier sous l'explorateur windows.

Merci d'avance