VBA Excel - comment supprimer un dossier de Windows

Bonjour,

je voudrais savoir quel est le code pour supprimer un dossier dans Windows avec le VBA d'Excel.

Pour le test, j'ai fais une macro qui créer un dossier et je voudrais maintenant une autre macro pour supprimer ce dossier.

voilà la macro qui créer le dossierdébut :

Sub CreateDeleteFolder()

Dim oFSOd As Scripting.FileSystemObject

Dim oDrv As Drive

Dim oFld As Folder

'Instanciation du FSO

Set oFSOd = New Scripting.FileSystemObject

'Crée le repertoire

Set oFld = oFSOd.CreateFolder("D:\TestDelete")

End Sub

Et maintenant qu'est-ce que je dois écrire pour le supprimer?

J'ai pensé à ça mais ça marche pas (je début avec les FSO et je sais pas trop ce que j'écris):

Sub DeleteFolder()

Dim oFSO As Scripting.FileSystemObject

Dim oDrv As Drive

Dim oFl As Folder

'Instanciation du FSO

Set oFSO = New Scripting.FileSystemObject

'Instanciation du FSO

Set oFl = ("D:\TestDelete")

'supprimer le repertoire

oFl.Delete

End Sub

Merci de votre attention

Bonjour Chyps17,

Une solution plus simple est d'utiliser les commandes MS-DOS. En l'occurrence, voici une solution pour ta macro de création de dossier :

Sub CreateDeleteFolder()

ChDir "D:/" 'change le répertoire courant
MkDir "DELETE" 'crée le dossier DELETE dans le répertoire courant

End Sub

Ensuite, pour supprimer un répertoire, utilise l'instruction RmDir :

Sub DeleteFolder()

ChDir "D:/"    'change le répertoire courant
RmDir "DELETE"    'supprime le dossier DELETE dans le répertoire courant

End Sub

merci beaucoup, c'est une super méthode!!!

mais il y avait un problème avec cette ligne :

MkDir "DELETE"  'crée le dossier DELETE dans le répertoire courant

il me met un erreur 75

erreur d'accès chemin/fichier

alors j'ai fais directement la céation et la suppression et ça marche :

Sub CreatFolder()

MkDir "D:\TestDelete" 'crée le dossier "TestDelete"

End Sub

Sub DeleteFolder()

RmDir "D:\TestDelete"    'supprime le dossier "TestDelete"

End Sub

Bonjour,

Si ton pb est terminé merci de cloturer en cliquant sur le V de couleur vert à coté du bouton Editer. Au besoin lis tout de même le lien qui t'a été envoyé dans ta BAL lors de ton inscription.

Merci de ta participation.

pour revenir à la méthode que j'utilisai au début (FileSystemObject),

pour corriger ma macro "Sub DeleteFolder()", il suffisait simple d'ajouter "oFSO.GetFolder" devant l'adresse du dossier :

Sub DeleteFolder()

Dim oFSO As Scripting.FileSystemObject
Dim oDrv As Drive
Dim oFl As Folder

'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
'Instanciation du Fl
Set oFl = oFSO.GetFolder("D:\TestDelete")

'supprimer le repertoire
oFl.Delete

End Sub