Discussion :

[Falckner]

Bonjour,

Je souhaite, via une macro VBA, créer un répertoire stocké dans une variable. Si le répertoire n'existe pas, il est créer, s'il existe, fin de la procèdure.

J'ai bricolé le bout de code ci-dessous. quand je l'execute une 1er fois (cad quand le répertoire n'existe pas), il s'execute sans probl^me. Par contre, quand le répertoire existe, il s'arrête sur l'instruction MkDir. J'ai l'impression que le code ne respecte pas la condition. Est-ce que quelqu'un peut me dire ou je me suis planté ?

Merci d'avance.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub Commande2_Click()
 
Dim CheminDossier As String
Dim Nouveaudossier As String
 
Nouveaudossier = "\tot"
 
CheminDossier = CurrentProject.Path & Nouveaudossier
 
    ' Vérifier si le répertoire existe
    If Dir(CheminDossier) <> "" Then
        ' Le répertoire existe déjà
        MsgBox "Le répertoire '" & CheminDossier & "' existe déjà.", vbExclamation, "Répertoire existant"
        Exit Sub ' Sortir de la procédure si le répertoire existe
    End If
 
    ' Créer le répertoire (uniquement si le répertoire n'existe pas)
    MkDir CheminDossier
 
    ' Afficher un message de confirmation
    MsgBox "Le répertoire '" & CheminDossier & "' a été créé avec succès.", vbInformation, "Répertoire créé"
 
End Sub

Pièce jointe 656634

[loufab]

Bonjour,

Non tel que tu as "bricolé" le code ça respecte rigoureusement ce qui est décrit dans la documentation de la commande.

Si tu fais un dir(quelquechose) et que quelquechose est un répertoire il te renvoi "". C'est normal.

Si tu mets une virgule après quelquechose tu va t'apercevoir que la commande te propose des options. Il faut lui préciser que c'est un répertoire avec l'item correspondant.

Cordialement,

[deedolith]

Hello,

Je recommande plutôt de passer par FSO qui est plus parlant et plus versatile:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Public Sub Commande2_Click()
    Dim FSO As Scripting.filesystemobject
    Set FSO = CreateObject("Scripting.FileSystemObject")
 
    If (FSO.FolderExists(CheminDossier)) Then
        ' //Le répertoire existe déjà
    Else
        '// le répertoir n'existe pas
        FSO.CreateFolder CheminDossier
    End If
End Sub

[Falckner]

Bonjour,

Tout d'abord, merci à tous les deux. Petite précision, mon niveau VBA et à 1 sur un niveau allant jusqu'à 10 !


Pour loufab :

Merci pour ton explication. Effectivement, en ajoutant "vbDirectory" ca fonctionne !

Pour deedolith :

Merci, ca fonctionne nikel (à condition d'ajouter la "librairie" : Microsoft Scripting Runtine )
Pour le coup, je vais m'instruire en lisant l'article suivant histoire de comprendre ce que je fais : https://warin.developpez.com/access/fichiers/
D'apès l'introduction de l'article, cette commande offre plus de possibilité.

A bientôt