OVH Cloud OVH Cloud

Commande "ChDir" sous VBA

1 réponse
Avatar
Jérôme
Je fait r=E9f=E9rence =E0 la commande ChDir sous VBA Excel pour=20
v=E9rifier le contenu du r=E9pertoire (par exemple : ChDir=20
("c:\Mon dossier")).
Par la suite, je souhaite supprimer ce dossier dans mon=20
code VBA.

La suppression ne s'applique que sur le contenu du=20
dossier, mais pas sur le dossier lui-m=EAme car,=20
visiblement, la commande ChDir pr=E9c=E9dente conserve les=20
droits sur le r=E9pertoire, ce qui m'emp=EAche de le supprimer=20
par la suite tant que mon fichier Excel est ouvert.

Comment faire pour que les droits de suppression soit de=20
nouveau accessible sur le dossier, apr=E8s un ChDir sur ce=20
dossier.

Merci d'avance.

1 réponse

Avatar
Michel B.
Bonjour,

Vous devez respecter 2 règles pour détruire un répertoire.
1) Celui-ci doit être vide.
2) Vous ne devez pas être dans le répertoire en question.

Voici un petit exemple éprouvé :

Sub TravailleDossier()

Dim Dossier As String

Dossier = "C:Pluton"
MkDir Dossier
MsgBox "Création dossier Pluton"

ChDir Dossier

Dossier = "Venus"
MkDir Dossier
MsgBox "Création dossier Venus"

ChDir Dossier
MsgBox "Nouveau dossier"


Dossier = "C:Pluton"
ChDir Dossier

Dossier = "Venus"
RmDir Dossier

End Sub

Amicalement
Michel B.

-----Message d'origine-----
Je fait référence à la commande ChDir sous VBA Excel pour
vérifier le contenu du répertoire (par exemple : ChDir
("c:Mon dossier")).
Par la suite, je souhaite supprimer ce dossier dans mon
code VBA.

La suppression ne s'applique que sur le contenu du
dossier, mais pas sur le dossier lui-même car,
visiblement, la commande ChDir précédente conserve les
droits sur le répertoire, ce qui m'empêche de le
supprimer

par la suite tant que mon fichier Excel est ouvert.

Comment faire pour que les droits de suppression soit de
nouveau accessible sur le dossier, après un ChDir sur ce
dossier.

Merci d'avance.
.