Création et vérification d'un dossier

billouu · 27 Novembre 2008

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 · 27 Novembre 2008

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

Bonjour

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

VB:

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 · 27 Novembre 2008

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

Création et vérification d'un dossier

billouu

Guest

Staple1600

XLDnaute Barbatruc

billouu

Guest

Discussions similaires

Création et vérification d'un dossier

billouu

Guest

Staple1600

XLDnaute Barbatruc

billouu

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency