Suprimer un dossier

Dim FichierPath As string
 
FichierPath=ThisWorkbook.Path & "\Diplome\" & ComboFeuil.Text
If Dir(FichierPath)<>"" Then Kill FichierPath

Sub Effacer_un_fichier()


  Dim objFSO, objDossier, objFichier, Le_Fichier_a_supprimer, FS
  Dim Repertoire

  On Error Resume Next
  
  'Il suffit de changer le chemin ici pour le chemin du dossier
  'dans lequel se trouve votre fichier
  Repertoire = "C:\Documents and Settings\Etienne\Bureau\TEST\"
  
  'Vous n'avez ici qu'à renommer le fichier avec le nom du fichier
  'que vous souhaitez supprimer
  Le_Fichier_a_supprimer = "TEST.txt"
  
  
  FS = Repertoire & Le_Fichier_a_supprimer
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objDossier = objFSO.GetFolder(Repertoire)
  
  'On va analyser chacun des fichiers du dossier qui vous avez sélectionné et
  'si un des fichiers que contient se dossier porte le nom que vous avez
  'inscrit plus haut, alors il le supprimera.
  
  If (objDossier.Files.Count > 0) Then
     For Each objFichier In objDossier.Files
        If objFichier = FS Then objFichier.Delete
     Next
  End If

  Set objDossier = Nothing
  Set objFSO = Nothing

End Sub

Private Sub CommandButton1_Click()
Dim DossierPath As String
 
DossierPath = ThisWorkbook.Path & "\Diplome\" &  ComboFeuil.Text
If Dir(DossierPath, vbDirectory) <> "" Then RmDir DossierPath
End Sub

Sub test()
Dim objFSO, objDossier, Chemin as String
Chemin = ThisWorkbook.Path & "\Diplome\" & ComboFeuil.Text
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.GetFolder(Chemin)
objDossier.Delete
End Sub